Delphi-PRAXiS - Delphi TImage: mit Mouse-wheel ein Bild vergrößern bzw. verkleinern

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

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TImage: mit Mouse-wheel ein Bild vergrößern bzw. verkleinern (https://www.delphipraxis.net/38531-timage-mit-mouse-wheel-ein-bild-vergroessern-bzw-verkleinern.html)

TImage: mit Mouse-wheel ein Bild vergrößern bzw. verkleinern

Hallo,

Ich lade ein Bild in ein TImage.

Jetzt möchte ich mit dem Mousewheel das Bild vergrößern bzw. verkleinern

Weiss jemand wie man das machen könnte, denn das TImage hat ja kein mousewheel-Event?

Re: TImage: mit Mouse-wheel ein Bild vergrößern bzw. verklei

*push*

Hat keiner ne Ahnung wie man das oben machen könnte?

Ach ja, die Form hat ein MousewheelDown und MousewheelUp.

Nur weiss ich noch nicht wie man ein Bild (Picture) in einem Image von der Größe her verändern kann.

Ich hab mal folgendes probiert:

Code:

			const

Prozent = 90;

Image1.Picture.Height := trunc(Image1.Picture.Height * Prozent / 100);

Image1.Picture.Width  := trunc(Image1.Picture.Width * Prozent / 100);

Nur wenn ich diesen Code compilieren will, dann bekomm ich die Meldung, dass man eine Nur-Lesen-Variable nicht beschreiben kann.

Wie kann man das machen?