XProfan

Def Getsyscolor(1) !USER32,GetSysColor
Def Loadimage(6) !USER32,LoadImageA
Declare Ani$,Ani&,AniControl&,Status&,Status#,RECT#
WindowStyle 2 + 8 + 16 + 128 + 256 + 512
Window 0,0-1024,768
Getsyscolor(15)
Ani$ = \Progress_11.ani
Ani& = LoadImage(%hInstance,@Addr(Ani$),2,0,0,$10)
Dim Status#,8
Dim RECT#,16
Long Status#,0 = 984,-1
Status& = @Create(StatusWindow,%hWnd,,2,Status#)
@SendMessage(Status&,$040A,1,RECT#)
AniControl& = @Control(Static,,$50000003,(Long(RECT#,0) + 0),(Long(RECT#,4) + 2),0,0,Status&,0,%hInstance)

WhileNot %Key = 2

    WaitInput
    @SendMessage(AniControl&,$0170,Ani&,0)
    WaitInput
    @SendMessage(AniControl&,$0170,0,0)

EndWhile

DeleteObject Ani&
Dispose Status#
Dispose RECT#
End

Ani$ = \Progress_11.ani

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 !
Declare Static&
Static& = @Control(Static,,$50000003,50,50,0,0,%hWnd,0,%hInstance)
@SendMessage(Static&,$0170,hc&,0)

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