Im Grid die Linien selber zeichnen (farbe)

[Jackie1983]

Servus,

habe da mal wieder ne frage zum StringGrid.
Wenn ich in der Draw Methode nichts habe, wird mein Grid
ohne text ohne farbe dargestellt, ist ja auch richtig so, aber man sieht die Linien.

Diese möchte ich gerne anpassen, wo kann ich das?

Mfg

[Satty67]

Zumindest ausblenden geht mit

Delphi-Quellcode:

GridLineWidth := 0;

dann selber zeichnen

[Lannes]

Hallo,

oder anstelle von FillRect > Rectangle mit einem in allen Richtungen vergrößertes Rect verwenden und dadurch die Linien übermalen

Delphi-Quellcode:

StringGrid1.Canvas.Pen.Color := clRed;
StringGrid1.Canvas.Rectangle(Rect.Left - 1,Rect.Top - 1,Rect.Right + 1,Rect.Bottom + 1);

[Jackie1983]

Zitat:

Zitat von Satty67

Zumindest ausblenden geht mit

Delphi-Quellcode:

GridLineWidth := 0;

dann selber zeichnen

Aber wenn man GridLineWidth auf 3 hat oder so muss man ja die
Linien auch irgend wie zeichnen können.

Zitat:

Zitat von Lannes

Hallo,

oder anstelle von FillRect > Rectangle mit einem in allen Richtungen vergrößertes Rect verwenden und dadurch die Linien übermalen

Delphi-Quellcode:

StringGrid1.Canvas.Pen.Color := clRed;
StringGrid1.Canvas.Rectangle(Rect.Left - 1,Rect.Top - 1,Rect.Right + 1,Rect.Bottom + 1);

werde mal schauen

thx

[Satty67]

Zitat:

Zitat von Jackie1983

Aber wenn man GridLineWidth auf 3 hat oder so muss man ja die Linien auch irgend wie zeichnen können.

Mit GridLineWidth > 0 forderst du TStringGrid auf, die Linie zu zeichnen. In der Paint-Methode wird dann die Linienfarbe fest auf clSilver festgelegt.

Also musst Du die Paint-Methode von StringGrid ändern, was zuviel unnötiger Aufwand wäre oder eben die Line ausschalten und selber zeichnen. Wenn Du den Source der VCL hast, kannst auch mit Copy&Paste arbeiten und Dir ein StringGrid ableiten und da LineColor als public Property anlegen.

[QuickAndDirty]

Die Methode Drawcell überschreiben
und aus TDrawgrid.Drawcell den Code stehlen und abändern. Das selbe gilt für den Code in TSTRINGGRID.Drawcell.

habe ich so gemacht geht super

[Lannes]

Hallo,

Zitat:

Zitat von Jackie1983

Aber wenn man GridLineWidth auf 3 hat oder so muss man ja die
Linien auch irgend wie zeichnen können.

dann setz zusätzlich Pen.Width auf GridLineWidth:

Delphi-Quellcode:

StringGrid1.Canvas.Pen.Color := clRed; 
StringGrid1.Canvas.Pen.Width := StringGrid1.GridLineWidth
StringGrid1.Canvas.Rectangle(Rect.Left - 1,Rect.Top - 1,Rect.Right + 1,Rect.Bottom + 1);