TStringGrid zellen färben

[Grizu]

Das ist der Code den ich benutzt habe:

Delphi-Quellcode:

procedure Tm_settings.tab_visu_settingsDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
  var
  gr : TStringGrid;
begin
gr := (Sender as TStringGrid);

if not odd(aCol) and not (gdFixed in State) then begin
  gr.Canvas.Brush.Color := TColor($D9D9C0);
  gr.Canvas.FillRect(Rect);
  gr.Canvas.TextOut(Rect.Left + 3, Rect.Top + 4, gr.Cells[ACol, ARow]);
end;

if (ARow = 5) then begin
  gr.Canvas.Brush.Color := TColor($FFCC99);
  gr.Canvas.FillRect(Rect);
  gr.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, gr.Cells[ACol, ARow]);
end;

end;