Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Grid Sorting and Mouse Pointer
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01413103
Message ID:
01413424
Vues:
132
>Hi Naomi,
>
>I found that the following code worked for me:
>
>Declare ShowCursor in Win32API Long
>ShowCursor(0)
>* ... do something here
>Mouse at Mrow(), Mcol()
>ShowCursor(1)
>
>César Chalom, however, reported that he didn't have any success. For him calling the SetCursorPos API function worked, though.

Hi Christof,

Nope !
That worked too !

At those times I only said that we (me and Carlos Alloatti) had another option, since that was the solution that we found after lots of testing.
But recently I faced exactly the same issue in Jim Nelson's PEM Editor4.
There the hourglass appears in his grid as well.

I've tried both aproaches, mine and yours, called in "AfterRowColChange()" and none did fully satisfy Jim.
Acoording to him, (not me <g>), this solution was making the process slower, so he simply gave up, and left the hourglass there as a souvenir. :-D


Naomi,

You may try the following script - here I added a method to my Image base classes, and it calls the following method everytime that the picture property is updated:
*!* ClearWaitCursor()
Local lcPoint As String, lnx As Integer, lny As Integer

Declare Integer GetCursorPos In win32api As ClearWaitCursor_GetCursorPos String  @lpPoint
Declare Integer SetCursorPos In win32api As ClearWaitCursor_SetCursorPos Integer nX, Integer nY

m.lcPoint = 0h0000000000000000
ClearWaitCursor_GetCursorPos(@m.lcPoint)

m.lnx = CToBin(Substr(m.lcPoint, 1, 4), "4rs")
m.lny = CToBin(Substr(m.lcPoint, 5, 4), "4rs")

ClearWaitCursor_SetCursorPos(m.lnx, m.lny)

Return
Here's a working sample from Carlos showing the solution working:
http://www.foxite.com/uploads/94945c56-a91c-4fe2-9397-af11bd313f09.zip
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform