Delphi-PRAXiS - Delphi Paintbox

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

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Paintbox (https://www.delphipraxis.net/1987-paintbox.html)

Hoi Leuts,
Ich möchte etwas in eine Paintbox malen.
Nur wird das ganze im Form und nicht in der Paintbox gezeichnet.
Was ist falsch?:

Code:

			procedure TForm2.PaintBox1Paint(Sender: TObject);

var

anfang: TPoint;

begin

anfang:=Point(paintbox1.Width , paintbox1.Height ); 

with PaintBox1.Canvas do  

begin

Canvas.Pen.Color:=clYellow;

Canvas.MoveTo(anfang.x,anfang.y);

Canvas.LineTo(anfang.x +20,anfang.y+20);

Canvas.MoveTo(anfang.x -20,anfang.y-20);

Canvas.LineTo(anfang.x +20,anfang.y+20);

end;

end;

Moin Privateer,

Du schreibst:

Delphi-Quellcode:

with PaintBox1.Canvas do

und fängst dann die eigentlichen Zeilen mit Canvas an.

Dadurch beziehst Du Dich aber auf den Canvas des Formulares, denn ein Paintbox1.Canvas.Canvas gibt's ja nicht.

AAAAAAAAAAAAHHHHHHHHHHH :mrgreen: