Thanks a lot.
Guillermo Varona Silupú wrote:
> 
> 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
> 
> 

-- 
View this message in context: 
http://n2.nabble.com/does-the-get-system-support-a-mouse-tp3593190p3594105.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to