Home » Tipps & Tricks » Komponenten » TStringGrid » Zeilen eines Stringgrids färben

Zeilen eines Stringgrids färben

Folgender Code färbt jede zweite Zeile rot. Dazu wird das OnDrawCell Event verwendet.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, 
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if not Odd(ARow) and not (gdFixed in State) then
    with StringGrid1 do
    begin
      Canvas.Brush.Color := clRed;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
    end;
end;

Bei Delphi 3 muss aus dem ACol, bzw. aus dem ARow ein Col bzw. ein Row gemacht werden.