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

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

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi Grafik in der TImage vergrössern ? (Zoom-Funktion) (https://www.delphipraxis.net/3371-grafik-der-timage-vergroessern-zoom-funktion.html)

Darty

9. Mär 2003 10:15

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

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

9. Mär 2003 10:42

vielleicht hilft Dir dieses?

DennyC

9. Mär 2003 11:56

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

9. Mär 2003 15:24

@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

9. Mär 2003 22:27

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.

Alle Zeitangaben in WEZ +1. Es ist jetzt 17:37 Uhr.