Mailing List Archive: Changing cursor under Windows

[REBOL] Changing cursor under Windows

From: greggirwin::starband::net at: 8-Oct-2001 22:54


Has anyone played around with changing the cursor under Windows? I can get
it to change, but it won't stick and sometimes won't change unless I call
SetCursor twice. If I move the mouse it changes back immediately. If I
don't, it will last about 3 seconds and then change back.

Here's the stripper version:

win-cursor: context [
    win-lib: load/library %user32.dll

    set-cursor: make routine! [
        hCursor     [integer!]
        return:     [integer!]
    ] win-lib "SetCursor"

    load-cursor: make routine! [
        hInstance   [integer!]
        CursorID    [integer!]
        return:     [integer!]
    ] win-lib "LoadCursorA"

]

print win-cursor/set-cursor win-cursor/load-cursor 0 32514
wait 5
print win-cursor/set-cursor win-cursor/load-cursor 0 32512
halt

Any thoughts are welcome.

--Gregg