Mouse Button on Side

Mouse Button on Side

Postby Jimmy » Thu Oct 27, 2022 2: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
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: Mouse Button on Side

Postby Jimmy » Fri Oct 28, 2022 8:23 am

hi,

have found out that
ALT + Cursor left
ALT + Cursor right

are doing same

so how to "use" it :idea:
Code: Select all  Expand view
 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
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: Mouse Button on Side

Postby cnavarro » Fri Oct 28, 2022 8:41 am

Try with
Code: Select all  Expand view

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
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Mouse Button on Side

Postby Jimmy » Fri Oct 28, 2022 9: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
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: Mouse Button on Side

Postby Jimmy » Fri Oct 28, 2022 11:12 am

hi,

got to this Solution :D
Code: Select all  Expand view
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
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Marc Venken and 30 guests