StretchDraw mit Paintbox

[Darty]

Ich habe auf einer PaintBox gezeichnet. Da die Zeichnung grösser ist als die Form möchte ich es in der Originalgrösse mit Hilfe Scrollbalken belassen. Aber auch die Möglichkeit die Zeichnung auf der Form einzupassen. Ebenso dann auch zu vergrössern um es näher zu betrachten.
Ich denke das es mit StretchDraw möglich ist. Nur weiss ich irgendwie nicht wie ich die Parameter vorallem das letzte TGraphics belege.

Ich hoffe mir kann jemand dabei helfen. so sieht es bei mir in Moment aus.

Delphi-Quellcode:

Form1.PaintBox1.Canvas.StretchDraw(Rect(0,0,Form1.Panel1.Width,
  Form1.Panel1.Height),?);

Die PaintBox1 liegt auf der Panel1 falls man das wissen musst. Und der letzte Parameter "?" habe ich ausgelassen weil ich nicht wusste was reinkommt.
Ehrlich gesagt wollte zuerst mit dem StretchDraw arbeiten um zu wissen wie es genau funktioniert und was auswirkt um eventuell damit weiterzuarbeiten. Nur kann ich es wohl da nicht richtig anwenden oder ?

[Nicodius]

das was hinten steht ("?") ist das was du reinzeichnen willst ;)

Zitat:

procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);

[Darty]

Also wieder in die PaintBox ?? So dachte ich es zuerst, funzt aber nicht :gruebel: