FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Mouse Button on Side
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Mouse Button on Side
Posted: Thu Oct 27, 2022 02:34 PM
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 :?:
greeting,

Jimmy
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: Mouse Button on Side
Posted: Fri Oct 28, 2022 08:23 AM
hi,

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

so how to "use" it :idea:
Code (fw): Select all Collapse
  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
greeting,

Jimmy
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Mouse Button on Side
Posted: Fri Oct 28, 2022 08:41 AM
Try with
Code (fw): Select all Collapse
local lMenu    := GetKeyState( VK_MENU )

      if lMenu .and. nKey == ...
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: Mouse Button on Side
Posted: Fri Oct 28, 2022 09:04 AM

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

greeting,

Jimmy
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: Mouse Button on Side
Posted: Fri Oct 28, 2022 11:12 AM
hi,

got to this Solution :D
Code (fw): Select all Collapse
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 )
greeting,

Jimmy

Continue the discussion