How to make a "hoover" effect ?
Posted: Tue Dec 15, 2009 4:57 pm
I like to open a small popup window if someone goes with the mousecursor over a bottom without clicking it.
There is no event for it. So i thought it would work using the ONMOUSEMOVE in the windows definition, extracting the mouse position (no function for that ???) and creating/deleting the popup:
But that didn´t work well. Only if the mouse cursor enters the button from the right side it works (sometimes). Strange. So i think _HMG_SYSDATA [ 191 ] and _HMG_SYSDATA [ 192 ] doesn´t reflect the actual mouse position.
Any way to make that easier and working ?
Regards ... Ricci
There is no event for it. So i thought it would work using the ONMOUSEMOVE in the windows definition, extracting the mouse position (no function for that ???) and creating/deleting the popup:
Code: Select all
DEFINE WINDOW Form_1 ;
ON MOUSEMOVE test() .....
@ 540,460 BUTTON ButtonBluete ;
PICTURE "bbluete" ;
WIDTH 29 HEIGHT 30 FLAT
.....
function test()
LOCAL nMouseRow := _HMG_SYSDATA [ 191 ]
LOCAL nMouseCol := _HMG_SYSDATA [ 192 ]
IF nMouseRow >= Form_1.ButtonBluete.Row .AND. nMouseRow <= Form_1.ButtonBluete.Row + 28 .AND. ;
nMouseCol >= Form_1.ButtonBluete.Col .AND. nMouseCol <= Form_1.ButtonBluete.Col + 29
// popup window
ELSE
// close window
ENDIF
Return Nil
Any way to make that easier and working ?
Regards ... Ricci