Aktuelle Zeile in StringGrid farblich hervorheben

[jbg]

Zitat von jbg:

nicht direkt auf dein Problem bezogen

habe ich geschrieben, also kein Copy&Paste sondern ein "nachdenk" wäre angebrachter.
Aber hier hast du einen für dich passenden Code:

Code:

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

  if gdSelected in State then
  begin
    Grid.Canvas.Font.Color := clBlack;
    Grid.Canvas.Brush.Color := RGB(200, 200, 255);
    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;

Jetzt musst du nur noch die Farben anpassen.