eine Zelle in einem Drawgrid färben

[eddy]

Hallo Björn,

vielleicht hilft das weiter:

Code:

const
  SelectedColor = clYellow;

procedure TFBrowser.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdSelected in state) then begin
    TDrawGrid(Sender).Canvas.Brush.Color := SelectedColor;
    TDrawGrid(Sender).Canvas.FillRect(Rect);
    TDrawGrid(Sender).Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, 'Test');
  end;
end;

Ansonsten versuch' es mal unter <Suchen> mit "Grid färben". Jedemenge Beispiele sind vorhanden.

mfg
eddy