如何在stringgird 中改变每个小格或每行的字体颜色，或背景色

Question

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);var
  index: integer;
begin
  index := Row * DrawGrid1.ColCount + Col;
  with Sender as TDrawGrid do
  begin
    Canvas.Brush.Color := clBackGround;
    Canvas.FillRect(Rect);
    ImageList1.Draw(Canvas,Rect.Left,Rect.Top,index);
    if gdFocused in State then
      Canvas.DrawFocusRect(Rect);
  end;end;
循环你自己去写吧.