Image scroll

[Silvio.Falconi]

If I have an Image with Scroll ( vertical and Horizontal)

I click on image and I can see the coordinates

I f move the scroll and I click I see the same coordinates How I make to see the right position ?

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd,oImage

function Main()

Local cImage

  DEFINE WINDOW oWnd TITLE "Testing the Mouse"

    @ 0, 0 IMAGE oImage SIZE 480, 400 OF oWnd SCROLL NOBORDER

 SET MESSAGE OF oWnd TO "Press any mouse button" CENTERED


   oImage:bLClicked    = { | nRow, nCol, nFlags | Msginfo( nrow,ncol) }






   ACTIVATE WINDOW oWnd;
   ON INIT cImage:= GetImage()

RETURN NIL
//----------------------------------------------------------------------//

function GetImage()

   local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                             "DIB   (*.dib)| *.dib|" +          ;
                             "PCX   (*.pcx)| *.pcx|"  +         ;
                             "JPEG  (*.jpg)| *.jpg|" +          ;
                             "GIF   (*.gif)| *.gif|"  +         ;
                             "TARGA (*.tga)| *.tga|" +          ;
                             "RLE   (*.rle)| *.rle|" +          ;
                             "All Files (*.*)| *.*"             ;
                            ,"Please select a image file", 4 )

   if ! Empty( gcFile ) .and. File( gcFile )
      oImage:LoadBmp( gcFile )


endif

return gcFile

[cnavarro]

Please try with this,
But I think the movement of the scrolls controls is inverted: when pressed on the vertical scroll moves horizontally and when pressed on the horizontal scroll moves vertically.

Code: Select all  Expand view

function Main()

   Local cImage

   DEFINE WINDOW oWnd TITLE "Testing the Mouse"

   @ 0, 0 IMAGE oImage SIZE 200, 200 OF oWnd SCROLL NOBORDER

   //SET MESSAGE OF oWnd TO "Press any mouse button" CENTERED


   oImage:bLClicked    = { | nRow, nCol, nFlags | Msginfo( Str( nrow ), Str( ncol ) ), ;
                             MsgInfo( Str( oImage:nX ), Str( oImage:nY ) ) }

   ACTIVATE WINDOW oWnd ON INIT cImage := GetImage()

RETURN NIL


function GetImage()

   local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                             "DIB   (*.dib)| *.dib|" +          ;
                             "PCX   (*.pcx)| *.pcx|"  +         ;
                             "JPEG  (*.jpg)| *.jpg|" +          ;
                             "GIF   (*.gif)| *.gif|"  +         ;
                             "TARGA (*.tga)| *.tga|" +          ;
                             "RLE   (*.rle)| *.rle|" +          ;
                             "All Files (*.*)| *.*"             ;
                            ,"Please select a image file", 4 )

   if ! Empty( gcFile ) .and. File( gcFile )
      oImage:LoadBmp( gcFile )
   endif

return gcFile
 

[nageswaragunupudi]

I f move the scroll and I click I see the same coordinates How I make to see the right position ?

Row = nRow - oImage:nX
Col = nCol - oImage:nY

[nageswaragunupudi]

But I think the movement of the scrolls controls is inverted: when pressed on the vertical scroll moves horizontally and when pressed on the horizontal scroll moves vertically.

This is a bug introduced in FWH1801. Mr Silvio is using 1712 and he does not have this problem.
Fixed in FWH1808.

[Silvio.Falconi]

ok
I use Scroll on image...
If I use oImage:Vscroll:getpos() or oImage:Hscroll:getpos()
why it is not the same result ?