// Merhaba arkadaşlar burda table1tutar alanın 500000000 Tl ye eşit yada küçük olması durumunda
gridin ilgili sutunu kırmızı olacaktır.
gridde kosulu or yada and kullanarak paranteslere dikkat ederek dilerseniz tüm satırıda renklendirebilirsiniz.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Column.Field = table1tutar ) and (table1tutar.Asstring <=500000000) then
DBGrid1.Canvas.Font.Color :=clBlue
else if gdselected in State then
DBGrid1.Canvas.Font.Color := clHighlightText
else DBGrid1.Canvas.Font.Color :=clBlack;
DBGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
end;