Registriert seit: 19. Feb 2012
Ort: Czech Republic, Prag
126 Beiträge
Delphi 10.1 Berlin Architect
|
FMX Image zoom onMouseWheel
27. Sep 2019, 17:28
Hi to all.
I need to zoom the image in Delphi FMX under Windows.
I have one image on the form and upload a bitmap of 4500 x 4500 px (component image1) into it.
I insert a Selection 1 (TSelection) component on the image 1 component (selection1.Parent: = image1).
I insert image2 into the Selection component and set align allClient.
Now I need both components image1onMouseWheel to zoom: image 1 + Selection1.
I'm doing it so I can do it
image1.MakeScreenshot and had an original image size of image1 and a reduced image size of image 2.
Can it be done?
Thank you
Daniel
|