CxGrid Satır Rengi Sorunu

[hasan]

Kod: Tümünü seç

procedure TTaksit_Formu.Taksit_Takip_GridDBTableView1StylesGetContentStyle( 
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; 
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); 

 Var 
    KolonKALAN_TUTAR,KolonVADE_TARIHI: TcxCustomGridTableItem; 
begin 

  KolonVADE_TARIHI:= (Sender as TcxGridDBTableView).GetColumnByFieldName('VADE_TARIHI'); 
   KolonKALAN_TUTAR:= (Sender as TcxGridDBTableView).GetColumnByFieldName('KALAN_TUTAR'); 
      if (ARecord.Values[KolonVADE_TARIHI.Index]) < (Now - Data.AUTO_TABLEUYARI_SAYISI.AsInteger ) then 
        if (ARecord.Values[KolonKALAN_TUTAR.Index]) > 0 then 
       AStyle := cxStyleNullKalan_Tutar; 
End;

Arkadaşlar yukarıda yazmış olduğum kod program ilk açıldığında çalışmıyor.gridte scroll yapınca veya gridin üzerine başka form açılınca yada CxGrid.refresh yapınca düzeliyor , açılışta nasıl yapabilirim bunu öğrenmek istiyorum.