FiveTech Software tech support forums

... 1603 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 989 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 937 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1814 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( ...

... we have Codeblock-Slot like in c:\fwh\samples\testmmd.prg   oWndMOUSE:bLClicked    = { | nRow, nCol, nFlags | oWndMOUSE:Say( 2, 2,  "LButtonDown" ) }   oWndMOUSE:bLButtonUp   = { | nRow, nCol, nFl8ags | oWndMOUSE:Say( 2, 2, "LButtonUp    " ) }

... 792 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1083 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 1016 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1844 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( ...

... 713 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 999 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 937 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1842 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( ...

... nLParam ) METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TCalendar   Do Case      case nMsg == WM_LBUTTONDOWN           return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )      case nMsg == WM_LBUTTONUP           return ::LButtonUp( ...

hi Antonio,

Code: Select all  Expand view

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

YES, thx to point me to Codeblock Slot

Dear Jimmy, Here you have a working example: #include "FiveWin.ch"function Main()    local oWnd     DEFINE WINDOW oWnd     oWnd:bLClicked = { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Ctrl + left click" ),) ...

... 13         IF ::bClick != nil            EVAL( ::bClick, ::nOption, Self )         ENDIF  is this the Place to "ask" for CTRL + LBUTTONDOWN :?:      //  CTRL + Left Mouse down        ELSEIF ( GetKeyState( VK_CONTROL ) .AND. ??? )

... un array que contine un rect, guardando las coordenadas cuando hacen doble click (en el método LDblClick) y luego cuando hacen click (en el método LButtonDown) de manera que ahí ya tengo las cuatro coordenadas del rect. Pensaba que enviando un ::SendMsg( EM_SETRECT, 0, @arect ) se quedaría seleccionado ...

... ,, .t., Eval( ::bClrHeader, Self ) [ 2 ] ) end // add lines end ::DispEnd( aInfo ) ::oFont:Deactivate( hDC ) return 0 4. METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TXBrowse ... if ::lDrag return Super:LButtonDown( nRow, nCol, nFlags ) endif // add the lines if nRow < ::HeaderHeight()-if(::lgetbar,::nrowheight*2,0) ...

Windows API provides the function SendInput() for both keyboard and mouse: https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-sendinput And the function mouse_event() just for the mouse events: https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-w...

... from: => END( 0 ) Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 886 ) Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONDOWN( 799 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1788 ) Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( ...

... => TDIALOG:HANDLEEVENT( 1140 ) Called from: => SENDMESSAGE( 0 ) Called from: .\source\classes\MSGBAR.PRG => TMSGBAR:LBUTTONDOWN( 558 ) Called from: .\source\classes\CONTROL.PRG => TMSGBAR:HANDLEEVENT( 1814 ) Called from: .\source\classes\WINDOW.PRG => _FWH( ...

... 713 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 999 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 937 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1814 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( ...

... important but this is not true in the Tcontrol source there are additions of the object ( When moving the items ) display in these methods METHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TControl METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TControl METHOD KeyDown( nKey, nFlags ) CLASS TControl ...