Delphi-PRAXiS - Delphi Vertikale Linie??

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Vertikale Linie?? (https://www.delphipraxis.net/113068-vertikale-linie.html)

SaFu	2. Mai 2008 06:36

Vertikale Linie??

Hi

Ich bekomme es einfach nicht gebacken, ich versuche eine vertikale Linie im StringGrid zu zeichnen da kommt alles raus nur keine gerade Linie

Was mach ich falsch :oops:

Delphi-Quellcode:

			 if (ACol = 1) And (ARow In [1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23]) then

  begin

   StringGrid1.Canvas.Pen.Color := clBlack;

   StringGrid1.Canvas.MoveTo(Rect.Top, Rect.Bottom);

   StringGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

  end;

end;

mkinzler

2. Mai 2008 06:41

Re: Vertikale Linie??

Die Koordinaten, die du angibst sehen auch etwas komisch aus
Warum nimmst du .Top als X-Position?
Wo soll die Linie gezeichnet werden links, rechts, diagonal?

SaFu	2. Mai 2008 07:15

Re: Vertikale Linie??

Liste der Anhänge anzeigen (Anzahl: 1)

Ich möchte die Linie von oben nach unten zeichenen
Aber irgenwie will das nicht so

mkinzler

2. Mai 2008 07:19

Re: Vertikale Linie??

Delphi-Quellcode:

			StringGrid1.Canvas.MoveTo(Rect.Left, Rect.Top);

StringGrid1.Canvas.LineTo(Rect.Left, Rect.Bottom);

bzw.

Delphi-Quellcode:

			StringGrid1.Canvas.MoveTo(Rect.Right, Rect.Top);

StringGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

SaFu	2. Mai 2008 07:25

Re: Vertikale Linie??

Danke so gehts und ich glaube jetzt habe ich das auch verstanden :thumb:

Alle Zeitangaben in WEZ +1. Es ist jetzt 21:43 Uhr.