Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi DBGrid Col und Row Seperatorlinien - Farbe ändern? (https://www.delphipraxis.net/44960-dbgrid-col-und-row-seperatorlinien-farbe-aendern.html)

richard_boderich 27. Apr 2005 14:48


DBGrid Col und Row Seperatorlinien - Farbe ändern?
 
Hallo allerseit's.

Ich würde gern die Farbe der Seperatorlinien von Col und Row Feldern ändern.
Also nicht die Hintergrundfarben der Cols oder Row Felder, sodern die Trennungslinien dazwischen.
Standard is clNavy. Ich hätte sie aber gern clblack. Habe schon im Forum
gesucht unter "DBGrid AND Farbe" und nix gefunden. :(
Ich hoffe ihr könnt mir helfen. Many THX für eure Mühe schonmal vorweg.

So long,

Euer Richard

PS:Konnte man nicht auch mal die Dicke dieser Linien ändern, oder war das nur beim Stringrid so?

chuck 27. Apr 2005 15:29

Re: DBGrid Col und Row Seperatorlinien - Farbe ändern?
 
Bin gerade auf der Arbeit und kann es daher nicht ausprobieren, aber hast du mal probiert beim Ondraw Ereigniss mit Canvas.Brush... Farbe usw. zu ändern?

richard_boderich 27. Apr 2005 15:49

Re: DBGrid Col und Row Seperatorlinien - Farbe ändern?
 
Hi Chuck,

Ja hab ich. Du kommst bloß nicht an die Rect Koordninaten für die gesamte Rowlinie heran.

Ich hatte mal folgendes probiert.

Delphi-Quellcode:

// im DBGrid1DrawColumnCell vom Grid

Grid.Canvas.Pen.Color := clblack;
Grid.Canvas.Brush:=bsclear;
Grid.Canvas.Rectangle(rect.left,rect.top,rect.right,rect.bottom); // war aber nicht das was ich
wollte, hier hatt er zwar jede Zelle umrandet, aber die Seperatorlinien ausgelassen. :|
So long,

der Richard

richard_boderich 27. Apr 2005 16:02

Re: DBGrid Col und Row Seperatorlinien - Farbe ändern?
 
Ok Leute,

habe es selber lösen können. Ist zwar nicht elegant aber funktioniert.
Wenn jemand ne schnellere oder bessere Variante hatt, bitte posten :)

Delphi-Quellcode:

  Grid.canvas.Brush.Style:=bsclear;
  Grid.Canvas.Pen.Color:=clblack;
  Grid.Canvas.Rectangle(rect.Left-1,rect.Top-1,rect.Right+1,rect.bottom+1);
:roll: :wall: :mrgreen:

bis denne,

Richard


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz