General information
Category:
Coding, syntax & commands
Just a little faster: use FOR EACH instead of usual FOR.
Your code cannot be so simple because:
1. It must recurse through all containers.
2. Not all base classes have a MousePointer property in VFP. So, it must check first if this property exists, etc.
A simplier solution is to change all system cursors to hourglass and restore them in the end. I haven't tested it actually, but it should work.
Vlad
>Point taken, in which case the former code shouldn't really be used, either, as it would be necessary to record the "default" mouse pointer for each control upon setting it to "hourglass". You'd want run a procedure like:
>
>Dimension ThisForm.aMPHoldArray(ThisForm.ControlCount)
>for i=1 to ThisForm.ControlCount
> ThisForm.aMPHoldArray(i)=ThisForm.Control(i).MousePointer
> ThisForm.Control(i).MousePointer=0
>next
>
>My experience has been that by the time you get done running code like that, you sure _better_ use an hourglass, 'cause your user's will be locked up for quite a while.
>
>>Only if all objects used the default mouse pointer before changing it. Which may not be true.
>>
>>Vlad
>>
>>>THISFORM.MousePointer=0 and ;
>>>THISFORM.SetAll("MousePointer",0)
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only