In einem Grid bestimmte Zellenwerte einfärben

[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