In einem Grid bestimmte Zellenwerte einfärben

[implementation]

Ich möchte in einem ValueListEditor die Werte der rechten Spalte blau färben.
Das hört sich einfach an, aber scheint doch schon Probleme zu bereiten.

Hier der aktuelle Inhalt des OnDrawGrid-Ereignisses:

Delphi-Quellcode:

procedure TForm1.ValueListEditor1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol=1 then ValuelistEditor1.Canvas.Font.Color := clBlue
  else           ValueListEditor1.Canvas.Font.Color := cLBlack;
end;

Der Fall hört sich klar an, da sofort die Font-Eigenschaft des ganzen Grid-Canvas verändert wird.
Aber gibt es eine andere Möglichkeit?
Es wird schließlich nicht so was wie CellCanvas übergeben.

[Hawkeye219]

Hi,

du kannst so vorgehen:

Delphi-Quellcode:

procedure TForm1.ValueListEditor1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
  if ((ARow = 0) or (ACol <> 1)) then
    Exit; // nicht in Zeile 0 (Header) und nur in Spalte 1

  ValueListEditor1.Canvas.Font.Color := clBlue;
  ValueListEditor1.Canvas.TextOut (Rect.Left + 2, Rect.Top + 2, ValueListEditor1.Cells[ACol, ARow]);
end;

Gruß Hawkeye

[implementation]

danke!
es klappt so!