Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
NTWS & .CUR files
Message
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00335316
Message ID:
00335410
Views:
14
>I've tried that (but probably not correctly). I was getting values from the registry, but they do not seem to exist in NT. Um, can you give me a clue how to use the GetClassLong? Where it fits in with these calls:
>
>nCursorHandle = LoadCursor(0,nWhatGoesHereforNT?)
>
>nError = SetSystemCursor(nCursorHandle,nWhatGoesHereforNT?)
>
>I'm only making things worse so far, besides some errors, I now have the Windows logo for my mousepointer everywhere :) All I really need to do is change a CUR back to an Ibeam...

Bruce,

I just tried the following and it seems to work. It should be enough to get you started
* Declares
#define IDC_ARROW           32512
#define IDC_IBEAM           32513
#define IDC_WAIT            32514
#define IDC_CROSS           32515
#define IDC_UPARROW         32516
#define IDC_SIZENWSE        32642
#define IDC_SIZENESW        32643
#define IDC_SIZEWE          32644
#define IDC_SIZENS          32645
#define IDC_SIZEALL         32646
#define IDC_NO              32648
#define IDC_APPSTARTING     32650
#define IDC_HELP            32651

* API Function declarations
DECLARE INTEGER LoadCursor IN Win32API;
  INTEGER hInstance, INTEGER hCursor
DECLARE INTEGER SetCursor IN Win32API;
  INTEGER hCursor
DECLARE Sleep IN Win32API;
  INTEGER dwMilliseconds  
lnHCursor = LoadCursor(0, IDC_IBEAM)
* Get the old cursor
lnoldCursor = SetCursor(lnHCursor)
= Sleep(5000) && Wait 5 seconds
* Restore old cursor
lnoldCursor = SetCursor(lnoldCursor)
Let me know if this does it.
George

Ubi caritas et amor, deus ibi est
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform