Page 1 of 1

Mouse Button on Side

Posted: Thu Oct 27, 2022 2:34 pm
by Jimmy
hi,

in Firefox or EDGE i can use Button which are "on Side" of Mouse to go Backward or Forward WebSite

did someone know how to "ask" if they are press under Fivewin :?:

Re: Mouse Button on Side

Posted: Fri Oct 28, 2022 8:23 am
by Jimmy
hi,

have found out that
ALT + Cursor left
ALT + Cursor right
are doing same

so how to "use" it :idea:

Code: Select all | Expand

  CASE nCode == LVN_KEYDOWN
          nKey := LV_GETGRIDVKEY( nPtrNMHDR )
     IF nKey = 13
        IF ::bClick != nil
           EVAL( ::bClick, ::nOption, Self )
        ENDIF
     
     elseif nKey = "ALT + Cursor left" // which Constant to use ?

     ENDIF

Re: Mouse Button on Side

Posted: Fri Oct 28, 2022 8:41 am
by cnavarro
Try with

Code: Select all | Expand

local lMenu    := GetKeyState( VK_MENU )

      if lMenu .and. nKey == ...
 

Re: Mouse Button on Side

Posted: Fri Oct 28, 2022 9:04 am
by Jimmy
hi

thx for Answer
it is not Keyboard so VK_* Constant will not work

i "just" want to say that it act like ATL + Cursor but it is Mouse

Re: Mouse Button on Side

Posted: Fri Oct 28, 2022 11:12 am
by Jimmy
hi,

got to this Solution :D

Code: Select all | Expand

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGrid

   DO CASE
      CASE nMsg = WM_XBUTTONDOWN
         IF NLOWORD( nWParam ) = MK_XBUTTON1
            * MsgInfo("Go_PagePrior()")
            IF ! EMPTY(::bSideBack)
               EVAL(::bSideBack)
            ENDIF
         ELSEIF NLOWORD( nWParam ) = MK_XBUTTON2
            * MsgInfo("Go_PageNext()")
            IF ! EMPTY(::bSideNext)
               EVAL(::bSideNext)
            ENDIF
         ENDIF

   ENDCASE

RETURN ::Super:HandleEvent( nMsg, nWParam, nLParam )