Grafik in der TImage vergrössern ? (Zoom-Funktion)

[Darty]

Hi Leutz,

ich habe für mein Programm ein TImage auf ein ScrollBox gelegt. Nun möchte ich eine "Zoom-Funktion" einbauen. 1xZoom sollte die Original Grösse des Bildes haben. Bei 2xZoom sollte sich das Bild doppelt gross darstellen u.s.w.
Nur komme ich gerade nicht drauf wie ich es hinbekommen könnte ?

Danke schon mal für die Hilfe ..

[Mirilin]

vielleicht hilft Dir dieses?

[DennyC]

Hallo!

Wenn Du einfach nur die Bildansicht zoomen möchtest und eh mit TImage und TScrollBox arbeitest, setze doch bei TImage die Stretch-Eigenschaft auf True und verdopple einfach Width und Height für eine 2x-Zoom. So kannst Du mit Mitteln der Mathematik x-fach verkleinern und vergrößern.

Denny

[Darty]

@Mirilin: Eine "Lupe"-Funktion. Werde ich mir auch mal genauer anschauen, aber ziehe den Vorschlag von DennyC vor da es ausreichend ist für mein Program.

@DennyC: Ja dass ist wirklich eine gute Idee. Werde diesen Weg einschlagen .. :coder:

Danke nochmals ! :thuimb:

[Darty]

Wollte nur sagen dass es gut geklappt hatte.

Habe z.B. zuerst die tatsächliche Bild-Breite aus Image1.Picture.width ausgelesen. Und diesen Wert dann mit zum Beispiel 2 Multipliziert wenn ich es zweifach zoomen möchte. Diesen Wert dann in Image.width einkopiert. Und TImage.Stretch musste noch True sein.
das selbe auch mit Height und schon hat man so eine "Zoom" Funktion.