Warna Cel Pada DBGrid

procedure TForm1.DBGrid1DrawColumnCell

(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if Table1.FieldByName(nama field table').AsCurrency>40000 then

begin

DBGrid1.Canvas.Font.Color:=clWhite;

DBGrid1.Canvas.Brush.Color:=clBlack;

end;

if DataCol = 4 then //4 th column is 'Salary'

DBGrid1.DefaultDrawColumnCell

(Rect, DataCol, Column, State);

end;