Farbanje redova u dbgrid-u

[ MatezYU @ 08.06.2006. 12:01 ] @

Kako mogu da resim sledeci problem... Recimo ako je vrednost nekog podatka u bazi veca od 1000 onda ceo taj red u dbgrid-u da se ofarba u zeleno a ako je manji od 1000 onda u crveno... Cisto kao neka vizuelna kontrola...
Hvala

[ _deran_ @ 08.06.2006. 13:29 ] @

Code:

procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if podatak.asinteger>=1000 then
    DBGrid1.Canvas.Font.Color := clgreen
      else
    DBGrid1.Canvas.Font.Color := clred;
  DBGrid1.DefaultDrawDataCell (Rect, Column.Field, State);
end;