Aktuelle Zeile in StringGrid farblich hervorheben

[CalganX]

Hi @all!
Hat jemand eine Idee, wie ich die aktuelle makierte Zeile in einem StringGrid farblich hervorheben kann?

Auf HILFE hoffend,
Chris

[Tpercon]

Schau dir mal das OnDraw Ereginis an.

Gruß

[jbg]

Kleine Verbesserung: OnDrawCell

[Tpercon]

Hast natürlich recht.

[CalganX]

Ja, habe ich mir angesehen. Sieht so aus:

Code:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

end;

Hat jemand vielleicht einen Source?

Chris

[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;

[CalganX]

@jbg: Erstmal danke, aber leider klappt das nicht so ganz... *sniff*

Chris

[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.