DbGridde Renklendirme

[metemete]

Kod: Tümünü seç

procedure TCari.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Case cari.ADODataSet2islem.asstring ='Test' of
true:dbgrid1.Canvas.Brush.Color:=clred;
false:dbgrid1.Canvas.Brush.Color:=clgreen;
end; 
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);


end;

secili satır rengi değişiyor yazı fontu beyaz oluyor sadece.hücre rengi maviolmuyor.
renklendirmeden öncesinde olduğu gibi seçili satırın renginin mavi
olmasını nasıl sağlarım?

[aslangeri]

case ifadesinden önce state paremetresini kontrol et eğer (gdselected) {yanlış yazmadıysam} ise renklendirme işlemini yaptırma veya rengi mavi beyaz yap. sana kalmış. kolay gelsin.