Aktuelle Zeile in StringGrid farblich hervorheben

[jbg]

Der Code hier ist zwar nicht direkt auf dein Problem bezogen, zechnet aber eine bestimmte Zeile in einer anderen Farbe:

Code:

var Grid: TStringGrid;
begin
  Grid := Sender as TStringGrid;

  if gdSelected in State then Grid.Canvas.Font.Color := clBlack;
  if ARow + 1 = DayOfTheWeek(Now) then
  begin
    Grid.Canvas.Brush.Color := RGB(255, 200, 200);
    Grid.Canvas.Font.Style := [fsBold];
  end else Grid.Canvas.Brush.Color := Grid.Color;
  Grid.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Grid.Cells[ACol, ARow]);
end;