Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid Sorting and Mouse Pointer
Message
From
20/07/2009 15:32:15
 
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01413103
Message ID:
01413428
Views:
115
>Sorry, Cesar - it didn't work :((((((((((((((((((((
>
>I think the reason may be filtered table with only few records satisfying the condition. In another form I don't have this problem.
>
>>>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

Make sure to try after loading the picture AND in AfterRowColChange event of the grid !

HTH
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform