FiveTech Software tech support forums

__clsModMsg( oXBrowse:ClassH, "MouseWheel", @XBr_MWhl() ) This option works I use the function FW_MakeYourBitmap( nTop, nLeft, |hdc, w, h| PaintOverlay(hDC, w, img) }) . When compiling under HARBOUR, I get the error of the PaintOverlay() ...

Please try this:

__clsModMsg( TXBrowse():ClassH, "MouseWheel", @XBr_MWhl() )

or

__clsModMsg( oXBrowse:ClassH, "MouseWheel", @XBr_MWhl() )

Override Method MouseWheel In Class TXBrowse With XBr_MWhl
Override Method Copy In Class TGet With Cpy_

here - METHOD error
................................................................

atail(a_sp[len(a_sp),2]):=aclone(Str_Arr(dim[st,2,zz], chr(166)))

here - () error

... 9595 ) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:FONTSIZE( 9573 ) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:MOUSEWHEEL( 5488 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1855 ) Called from: ...

...  METHOD GoUp()   METHOD GoDown()   METHOD ThumbPos( nPos )   METHOD MouseWheel()   METHOD VSetPos() INLINE ::oWnd:oVScroll:SetPos( -::nOffSet )   METHOD GoTop()  ...

... por pulir y mucho código que limpiar y optimizar, pero ya es funcional 100%. Solo he tenido que incluir una DATA en la clase BITMAP y el METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TBitmap , que no estaba en mi versión 6.12 (gracias de nuevo Antonio si me lees) Creo que lo mejor sería ...

I tested the mousewheel but there I noticed problems with zoom / unzoom
( it works only sometimes )

Please test again.
It works always.
Make sure the mouse pointer is inside the actual image area.

... ( format JPG ) is showing transparent areas on the left upper corner http://www.pflegeplus.com/IMAGES/Ximage1.jpg I tested the mousewheel but there I noticed problems with zoom / unzoom ( it works only sometimes ) moving the image works. regards Uwe :D

... then I wish Know if it is possible save the image files into different formats and wich, thanks Can I disable mousewheel (zoom) it the document is not an image file but only an Icon of document ?

Dear Navarro, Thanks once again for your help. Dear Dutch Add at method MouseWheel of class TXImage METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TXImage   local aPoint := { nYPos, nXPos }   if !Empty( ::bMouseWheel ) .and. ...

Dear Mr.Rao,

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

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, 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 a...

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.

Dear Dutch Add at method MouseWheel of class TXImage METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TXImage   local aPoint := { nYPos, nXPos }   if !Empty( ::bMouseWheel ) .and. ValType( ...