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

Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbegrenz

Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbegrenz

Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg

Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg

Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg

Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg 28. Dez 2007, 07:14 Wo steht der Code (Methode/Event)? Markus Kinzler
	Zitat

Svenkan Registriert seit: 10. Feb 2007 Ort: Bersenbrück 547 Beiträge Delphi 7 Enterprise	#3 Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg 28. Dez 2007, 23:45 OnDrawColumnCell Sven Kannenberg
	Zitat

thkerkmann Registriert seit: 7. Jan 2006 Ort: Pulheim Brauweiler 464 Beiträge Delphi 2010 Professional	#4 Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg 29. Dez 2007, 09:38 Hi, lass mal das ... Pen.Style := psClear; weg. Ich denke das ist nicht nötig, oder ? Gruss Thomas Kerkmann Ich hab noch einen Koffer in Borland. http://thomaskerkmann.wordpress.com/
	Zitat

Svenkan Registriert seit: 10. Feb 2007 Ort: Bersenbrück 547 Beiträge Delphi 7 Enterprise	#5 Re: Data Grid - Nach Canvas-Zeichnung verschwinden Zeilenbeg 29. Dez 2007, 10:35 Dat wars! Danke Sven Kannenberg
	Zitat