topic-42674

Board index FiveWin for Harbour/xHarbour how to get CTRL + LBUTTONDOWN Event ?

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

how to get CTRL + LBUTTONDOWN Event ?
Posted: Wed Jan 11, 2023 05:08 AM

hi,

to "mark" multiple Item in Windows Explorer you need "Control + left Mouse Button down"

how to get that Event :?:

---

i need it for my CLASS TGrid where i get "Keyboard" Input in Method Notify

Code (fw): Select all Collapse

   CASE nCode == LVN_KEYDOWN
      nKey := LV_GETGRIDVKEY( nPtrNMHDR )
      IF nKey = 13
         IF ::bClick != nil
            EVAL( ::bClick, ::nOption, Self )
         ENDIF

is this the Place to "ask" for CTRL + LBUTTONDOWN :?:

Code (fw): Select all Collapse

      //  CTRL + Left Mouse down  
      ELSEIF ( GetKeyState( VK_CONTROL ) .AND. ??? )

greeting,

Jimmy

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: how to get CTRL + LBUTTONDOWN Event ?
Posted: Wed Jan 11, 2023 06:34 AM

Dear Jimmy,

Here you have a working example:

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

    local oWnd 

    DEFINE WINDOW oWnd 

    oWnd:bLClicked = { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Ctrl + left click" ),) }

    ACTIVATE WINDOW oWnd 

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: how to get CTRL + LBUTTONDOWN Event ?
Posted: Wed Jan 11, 2023 07:02 AM

hi Antonio,

Code (fw): Select all Collapse

oWnd:bLClicked = { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Ctrl + left click" ),) }

YES, thx to point me to Codeblock Slot

greeting,

Jimmy

FiveTech Support Forums

Continue the discussion