Einzelnen Beitrag anzeigen

jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#8
  Alt 26. Jul 2002, 11:35
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.
  Mit Zitat antworten Zitat