Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbegrenz

[Svenkan]

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?

[mkinzler]

Wo steht der Code (Methode/Event)?

[Svenkan]

OnDrawColumnCell

[thkerkmann]

Hi,

lass mal das

... Pen.Style := psClear;

weg. Ich denke das ist nicht nötig, oder ?

Gruss

[Svenkan]

Dat wars!
Danke