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;