photo zome in /out

[hamza]

Hello to all

I have a photo  BUT how can i zome in /out  it by lazarus???do you have a library???


thanks in advane

[Mike.Cornflake]

Strange - first attempt to reply vanished (like an old oak table..)

Find the "Edit: Alternative with TImage instead of TImgView32:" code in the first answer
http://stackoverflow.com/questions/6049047/graphics32-pan-with-mouse-drag-zoom-to-mouse-cursor-with-mouse-wheel/6050477#6050477

If you're new to lazarus/delphi, then this quick intro might be useful (doesn't do zoom - you'll still need to above code for that)
http://lazplanet.blogspot.no/2013/05/a-simple-image-viewer-from-start-to.html

[Eugene Loza]

I'd have done it the following way:

Create a TJPEG and load an image there.
Then create a TImage on the form and use copyrect to copy the loaded image from TJpeg.
Now for the zooming: You need to specify current position (usually the upper right corner) and current zoom level. Based on these you can modify copyrect properties (i.e. which part of TJpeg to copy).
Finally you should redraw the image on mousemove (maybe a workaround should be used to detect if a mouse button was pressed to pan) and onmousewheel which change the parameters given to copyrect.
Apply copyrect each time parameters changed.