Cancel users zoomrect when area too small

[cliebl]

Ok, I have some users that apparently are not quick enough on their double clicks. What is happening is the first click they move the mouse and when they let go to the double it's causing a zoomrect to occur.

So, this what I was thinking, please let me know if there's a better way because I'm not quite geting the results I want.

In the ZoomChange method I'm trying this:

Code: Select all

If gdViewer1.isRectDrawed = vbTrue Then
    If iWid > 200 And iHgt > 200 Then
       ' do nothing, go ahead and zoom on the rect
    Else
        ' if zoom rectangle is too small cancel the zoom
        Me.gdViewer1.ClearRect
    End If
End If

The only thing with this is I notice it didn't leave my image the way it was but looked like maybe did a fittoheight.

Do you have a better of doing this (or one that works where it will ignore the zoom and leave the image alone)?

Thanks!!

Crystal

[cliebl]

Please disregard. I was able to get the code to work. In my test I had zoomtoviewer as the default and when I ignored the zoom then it changed my image to zoomtoheight.
On my production screens the default is zoomtowidth and when I ignore the zoom it works fine.

Sorry!

Thanks
Crystal