Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Changing the mouse pointer
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00643429
Message ID:
00643440
Views:
11
>Hi,
>
>Question 1)
>
>I would like to change the mouse pointer to the "time_counter" (currently displays as "Arrow") symbol when I am scanning through a table. Is this possible? If yes, how can I do it? Thank you.

In your base form class add a new method called mouseWorking.

Put the following code in it:
LPARAMETERS llWaitState

IF pcount() > 0
	IF llWaitState
	** .T., change to hourglass
		THIS.MOUSEPOINTER = 11
		THIS.SETALL('mousepointer',11)
	ELSE
	** .F., change to normal pointer
		THIS.MOUSEPOINTER = 0
		THIS.SETALL('mousepointer',0)
	ENDIF
ENDIF
Now when you want a hourglass just call
thisform.mouseWorking(.T.)
** Do some process
thisform.mouseWorking(.f.)
Roi
'MCP' Visual FoxPro

In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!
Previous
Reply
Map
View

Click here to load this message in the networking platform