Canvas Bezugspunkt ändern

[Lannes]

Hallo,

da bietet sich doch eine Hilfsprozedur an:

Delphi-Quellcode:

procedure PosRectangle(aCanvas: TCanvas;Left,Top,Width,Height: Integer);
begin
  aCanvas.Rectangle(Left,Top,Left+Width,Top+Height);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PosRectangle(PaintBox1.Canvas,30,30,70,70);
end;