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