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.