Vertikale Linie??

[SaFu]

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]

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]

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

[mkinzler]

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]

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