Diagonale Linie

[Gast]

Hallo 8)

Kann ich z.B. auf einem TPanel eine schräge Linie (z.B. Diagonale eines Quadrat) anzeigen lassen?

Gruß

Paul Jr.

[Blizzard]

tpanel hat kein tcanvas object also gehts da ned ganz so einfach
aber du könntest ne paintbox oder en timage nehmen das würd dann etwa so aussehen

Delphi-Quellcode:

paintbox1.canvas.moveto(0,0);
paintbox1.canvas.lineto(paintbox1.width,paintbox1.height);

mfg
Blizzard

[Sharky]

Hai Paul Jr.

Du könntest zb. auf das Pannel ein TImage legen.
Bei diesem dann Align := alClient. Dann kannst Du auf dem Image zeichnen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 x,y : Integer;
begin
 Image1.Canvas.Brush.Color := Panel1.Color;
 Image1.Canvas.FillRect(ClientRect);
 Image1.Canvas.MoveTo (10,10);  //Startpunkt der Linie
 Image1.Canvas.LineTo (50,50);  //Endpunkt der Linee
end;

[Gast]

Hallo Blizzard 8) , Hallo Sharky 8) ,

ich werde beide Vorschläge ausprobieren...

Danke

Gruß

Paul Jr.

[Gast]

Hallo Sharky 8) ,

Das von Dir ist TOLL... sag mir bitte noch wie kann ich die
Stärke der Linie bestimmen?

Vielen Dank im Voraus

Paul Jr.

[Daniel B]

Hallo,

siehe noch Canvas.Pen.Width, Pen.Color usw..

Grüsse, Daniel

[Gast]

Danke Daniel ,

das GENAU habe ich noch gebraucht...

Gruß

Paul Jr.