topic-44962

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

get OnGetMouseMove
Posted: Wed Oct 02, 2024 10:57 AM

how can i check when the mouse is inside a get control ?

i would like to call my own function

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

MaxP

Posts: 99

Joined: Thu Jul 12, 2007 02:02 PM

Re: get OnGetMouseMove
Posted: Wed Oct 02, 2024 03:42 PM

Hi Silvio,

here is a sample.

Code (fw): Select all Collapse

#include "Fivewin.ch"

FUNCTION MAIN()
        LOCAL   oDlg, oGet, cVar := SPACE( 20 ), lPass := .F.

        DEFINE DIALOG oDlg FROM 0, 0 TO 400, 500 TITLE "TEST OVER" PIXEL
        
        oDlg:bMMoved := { | nRow, nCol, nKeyFlags | MyOverDlg( @lPass ) }

        @  14, 10 GET oGet VAR cVar OF oDlg SIZE 50, 12 PIXEL
        
        oGet:bMMoved := { | nRow, nCol, nKeyFlags | MyOverGet( @lPass ) }

        ACTIVATE DIALOG oDlg CENTER
RETURN NIL

STATIC FUNCTION MyOverDlg( lPass )
        IF lPass
                lPass := .F.
        ENDIF
RETURN NIL

STATIC FUNCTION MyOverGet( lPass )
        IF .NOT. lPass
                lPass := .T.
                
                MsgStop( "OVER" )
        ENDIF
RETURN NIL

Regards
Massimo

FiveTech Support Forums

Continue the discussion