get OnGetMouseMove

[Silvio.Falconi]

how can i check when the mouse is inside a get control ?
i would like to call my own function

[MaxP]

Hi Silvio,

here is a sample.

Code: Select all  Expand view

#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