XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Animierten Cursor für Fenster oder Control setzen
Lauffähig ab Profan-Version 5.0
Standard-Cursor für ein Fenster oder Control setzen
PROFAN² 6.0 - 32-BIT
Andreas Miethe * Bielefeld * Juli 1998
Animierte Cursor mit Profan
und es geht doch !!!
*************************************************************
Def APILoadCursorFromFile(1) ! USER32,LoadCursorFromFileA
Def APISetCursor(1) ! USER32,SetCursor
Def APISetCursorPos(2) ! USER32,SetCursorPos
Def ApiSetClassLong(3) !user32,SetClassLongA
Declare hcur#,ende%,name$
Declare hc&,hcold&,curdef&
Let Name$ = @LoadFile$(Lade Animationsdatei,*.ani)
Case equ$(name$,):end
Dim hcur#,len(name$) + 1
String hcur#,0=name$
Let hc&=APILoadCursorFromFile(hcur#)    Cursor laden -> entweder *.ANI oder *.CUR oder *.ICO
Windowstyle 272
WindowTitle Ende mit rechter Maustaste im Fenster.....
window 10,10-400,200
APISetCursorPos(100,100)                Den Cursor ins Fenster setzen
Let hcold&=APISetCursor(hc&)            Den Standard-Cursor sichern !
ApiSetClassLong(%HWND,-12,hc&)          Cursor für das Hauptfenster wechseln
Wenn CONTROLS erzeugt werden, kann jedem
Controlstil ein eigener Cursor zugewiesen werden !

whilenot ende%

    Getmessage

    IF @Equ(%Message,$0204)                 rechte Maustaste gedrückt ?

        ApiSetClassLong(%hwnd,-12,hcold&)       System-Standard-Cursor zurückschreiben
        Dispose hcur#
        Let ende%=1

    Endif

Wend

End