How to zoom images loaded in TImage control in Delphi XE2 Trial?

delphi zooming delphi-xe2 timage
Dev picture Dev · Oct 24, 2011 · Viewed 7.2k times · Source

I have developed a small utility to load different types of image files in TImage control in Delphi XE2. Now I would like to implement and test zooming functionality, with built-in controls only (i.e. not using any 3rd party component).

Answer

NGLN picture NGLN · Oct 24, 2011

See the second part of this answer which zooms in and out a TImage by using the mouse wheel.

Note: It repositions the image component.

Related questions

Zoom canvas area in Delphi

I making something that looks like Paint in Delphi. I found how to make zoom function: procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer); var i: Integer; begin if AZoomFactor = 100 then SetMapMode(Canvas.Handle, MM_TEXT) else begin SetMapMode(Canvas.Handle, MM_…

Read More
The application was unable to start correctly (0xc000007b)

I have a client/server app which I have been developing on a single PC. Now it needs two serial ports, so I borrowed a PC from a friend. When I build my app and try to run or debug …

Read More
Indentation shortcuts in Visual Studio

I'm new to Visual Studio 2010 and C#. How can I indent the selected text to left/right by using shortcuts? In the Delphi IDE the equivalents are Ctrl+Shift+I and Ctrl+Shift+U

Read More