Geleceği tarihe göre dbgrid renklensin

[trkartal]

dbgridde verileri gösteriyorum.
geleceği tarih bugünkü tarih ile 30 gün arasında ise dbgriddeki o satırın renklenmesini istiyorum.

Bu konuda bana yardımcı olurmusunuz.

[warder]

OnDrawColumnCell olayı içinde belirtiğiniz şartı işleyip istediğiniz rengi verebilirsiniz.
C++ ama aktif kullandığım örnek aşağıda...

Kod: Tümünü seç

void __fastcall TFrmAna::DBGridOyunDrawColumnCell(TObject *Sender, const TRect &Rect,
		  int DataCol, TColumn *Column, TGridDrawState State)
{
	if(DataMod->QMOyun->FieldByName("SECIM")->AsString == "1") {
		DBGridOyun->Canvas->Brush->Color = static_cast<TColor>(RGB(200, 250, 100));
		DBGridOyun->DefaultDrawColumnCell(Rect, DataCol, Column, State);
		DBGridOyun->Canvas->Brush->Color = clInfoBk;
	}
}	

[White Rose]

dbgridin drawcolumncell olayına aşağıdaki kodu yazıp deneyin

Kod: Tümünü seç

var
  Tarih: TDate;
begin
     Tarih:=DBGrid.DataSource.DataSet.FieldByName('TARIH_ALANI').AsDateTime;
         
          if (Tarih>=Date) and (Tarih<=Date+30) Then begin
              DBGrid.Canvas.Brush.Color:=clred;               
              DBGrid_Mushar.Canvas.Font.Color :=Clwhite;
          End;
   
     DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[trkartal]

Siz Değerli Arkadaşlara Teşekkürlerimi sunuyorum...