FiveTech Support Forums

I need to fix size of TXIMAGE. How do I disable Zoom In/Out by MouseWheel?

Thanks in advance.

I suggest you use TImage instead of TXImage.
TXImage is intentionally made for giving user full control and therefore till now we did not provide for restricting any user actions.

nageswaragunupudi wrote:I suggest you use TImage instead of TXImage.
TXImage is intentionally made for giving user full control and therefore till now we did not provide for restricting any user actions.

By default, the user can pan, zoom and rotate the image with mouse or by touch.
FWH 17.08 onwards you can disable this by setting oImage:nUserControl := 0
So please wait for a day or two.

Dear Mr.Rao,

Thank you so much. I would be better, if you can make TIMAGE or BITMAP to support IMAGE from FIELD.

cnavarro wrote:Dear Dutch
Add at method MouseWheel of class TXImage

Code (fw): Select all Collapse

METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TXImage

   local aPoint := { nYPos, nXPos }

   if !Empty( ::bMouseWheel ) .and. ValType( ::bMouseWheel ) = "B"
      Eval( ::bMouseWheel, Self )
      Return nil
   endif

   if ::oRect != nil

   .../...

In your code

Code (fw): Select all Collapse

   oImage:bMouseWheel := { || .T. }
   //oImage:bRClicked := { || .T. }     // Also for disable button right mouse