Forum: Datenbanken
by Luckner,
7. Mär 2020
Habe, nach einem Hinweis, die Zeile:
TextOut( Rect.Left, Rect.Top, Column.Field.Text ); durch
GridArtikelGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
ersetzt und es funktioniert jetzt. Danke.
Forum: Datenbanken
by Luckner,
7. Mär 2020
Hallo,
um die Farben in einem DBGrid zu ändern habe ich folgende Routine eingetragen:
procedure TFrameArtikel.GridArtikelGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with GridArtikelGrid.Canvas do
begin