Re: [Harbour] does the get system support a mouse?

[gvarona]

AbeB escribió: 


Hi All,
> How can I make my app mouseable? in gtwin.
clicking on a get to make it the active get, double clicking to put the
cursor on that position within that get?

#include "Inkey.ch"
PROCEDURE MAIN
LOCAL cVar1 := cVar2 := cVar3 := SPAC(10)
SET(_SET_EVENTMASK, INKEY_ALL)
MSETCURSOR(.T.)
@ 10, 20 SAY "Var 1:" GET cVar1
@ 11, 20 SAY "Var 2:" GET cVar2
@ 12, 20 SAY "Var 3:" GET cVar3
READ
RETURN 

Best Regards
GVS
---------------------------------------------------------------
EC Red Internet g...@tis
Inscríbete en www.ec-red.com
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour