Guten Abend,
ich lasse, zur besseren Übersicht, die Zeilen meines DataGrids verschiedenfarbig markieren.
z.B.
Delphi-Quellcode:
(...)
begin
TDBGrid(Sender).Canvas.Brush.Color:=cl_vertr_hin;
TDBGrid(Sender).Canvas.Brush.Style:=bsSolid;
TDBGrid(Sender).Canvas.Pen.Style:=psclear;
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).Canvas.Font.Color:=clBlack;
TDBGrid(Sender).Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,Column.Field.AsString);
end;
Das Problem bei der Sache ist, dass beim Scrollen oder anderweitigem Wechsel der Datenmenge, die Zeilenbegrenzung auf einmal verschwindert und stattdessen nur noch ein weißer Strich durchgeht.
Wie lässt sich dies verhindern?