请问：DBGrid中不同的行变量产生不同的行颜色？

Question

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;Field: TField; State: TGridDrawState);
　　begin
  　　 if Table1.Fieldbyname(′Salary′).value<=SpinEdit1.value then
     　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
　　 else
     　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
  　　 DBGrid1.Canvas.FillRect(Rect);
  　　 DBGrid1.Canvas.TextOut(Rect.left＋2,Rect.top＋2,Field.AsString);
　　end;

Answer 1

在Grid表格DrawColumnCell事件中加入代码：
  IF 变量Then
    Begin
     Grid.Canvas.Brush.Color := $00309BCF;
     Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    End