Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
What shape is my mouse pointer?
Message
De
20/05/1997 17:52:44
 
 
À
12/05/1997 12:53:07
Elyse Pomerantz
Dynamic Data Concepts, Inc.
Brooklyn, New York, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00031806
Message ID:
00032999
Vues:
33
Hello Elyse! Here is an answer (may be!), hope this help... * IBEAM.PRG starts here: #DEFINE idc_arrow (32512) #DEFINE idc_ibeam (32513) #DEFINE idc_wait (32514) #DEFINE idc_cross (32515) #DEFINE idc_uparrow (32516) #DEFINE idc_size (32640) #DEFINE idc_icon (32641) #DEFINE idc_sizenwse (32642) #DEFINE idc_sizenesw (32643) #DEFINE idc_sizewe (32644) #DEFINE idc_sizens (32645) SET LIBRARY TO home()+'foxtools.fll' * Register the LoadCursor function to find out the resource * number for IDC_IBEAM. fnhand=regfn('LoadCursor',"IL","I") cursor_res=callfn(fnhand,0,idc_ibeam) * Find out what the current cursor resource number is. fn2hand=regfn('GetCursor',"","I") CURSOR=callfn(fn2hand) * Test to see if the current cursor resource number equals * that of IDC_IBEAM (or whatever we change it to). IF cursor_res = CURSOR WAIT WINDOW "That's the I-Beam Cursor!" ELSE WAIT WINDOW "That's not an I-Beam Cursor!" ENDIF Have a happy day Vladimir Shevchenko > I always have my MousePointer property set to Default (0). Is there a way > that I can determine at a given moment what the actual shape is?
* Human is a question asked by birth and answered by death. Machine is another kind of question with another kind of answer
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform