Hi, I'm can anyone point me to an example on how to do a simple magnifying glass over a TImage?.

What I want to do is to draw a zoomed area over a TImage at mouse position, then, when I move the mouse, the area is updated showing the new position, just like Virtual Magnifying Glass, but for TImages/TBitmap.

Thanks in advance.

I think that TImage is the wrong choice for the job. I would go for a TCustomControl descendent, just like VMG does.

Thanks Felipe, could you show me an example or point me to an url that shows how to do it?

Leonardo M. Ram? wrote

Thanks Felipe, could you show me an example or point me to an url that shows how to do it?

http://wiki.freepascal.org/Developing_with_Graphics#Create_a_custom_control_which_draws_itself

and

http://lazarus-ccr.sourceforge.net/docs/lcl/graphics/tcanvas.stretchdraw.html

+ of course the vmg source code

sourceforge.net/projects/magnifier