How to Disable TXIMAGE:MouseWheel to resize image? *Solved*

[dutch]

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

Thanks in advance.

[cnavarro]

Dear Dutch
Add at method MouseWheel of class TXImage

Code: Select all  Expand view  RUN

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: Select all  Expand view  RUN

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

[nageswaragunupudi]

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.

[dutch]

Dear Mr.Rao,

I used BITMAP for many year but when I move BMP file to MySQL field (Mediumblob). I saw the TIMAGE has support it.
Which class that does support image from field instead of TXIMAGE?

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]

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.

[dutch]

Dear Mr.Rao,

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

[dutch]

Dear Navarro,

Thanks once again for your help.

Dear Dutch
Add at method MouseWheel of class TXImage

Code: Select all  Expand view  RUN

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: Select all  Expand view  RUN

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