XProfan

 $H windows.ph
 $H messages.ph
 $H commctrl.ph
 $u thread.pcu = thread.
Def ExtractIconExA(5) !"SHELL32","ExtractIconExA"
Def Time(0) @Left$(@time$(0)+":"+@time$(1),8)
declare hwidthx&,hwidthy&

proc thread.do

    parameters n&

    if (n&=1)

        IcoNr2$ = @Str $(IcoNr2&)
        iconhandle1& = GetIconA_Handle("Eigene.dll",IcoNr1&,0)			"On-Off" Icon
        iconhandle2& = GetIconA_Handle("Eigene.dll",IcoNr2&,0)			"Wechsel"-Icon
        ~SendMessage(Status&,$40F,1,iconhandle1&)
        ~SendMessage(Status&,$40F,2,iconhandle2&)
        ~SendMessage(Status&,$401,3,"Icon Nr. " + IcoNr2$ + From the Own.dll")Text the Part 4 allocate
        ~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,"" + Time())   		Text the Part 5 allocate
        INC IcoNr2&

        If IcoNr1& = 1

            IcoNr1& = 2

        Else

            IcoNr1& = 1

        EndIf

    elseif (n&=2)

        if ( (hwidthx&<>width(%hwnd)) or (hwidthy&<>height(%hwnd)) )

            hwidthx&=width(%hwnd)
            hwidthy&=height(%hwnd)
            setwindowpos status& = 0,0 - 0,0 ;0

        endif

    endif

endproc

Proc GetIconA_Handle   				only the lever detect

    Parameters IconFile$,IconNr$, tall%   		small Icons = 0 large = 1
    Declare DllIcon&, ST#, PT#
    Dim ST#,add(len(IconFile$),1)
    Dim Pt#,4
    String ST#,0 = IconFile$
    Let DllIcon& = ExtractIconA(%Hinstance,ST#,val(IconNr$))   large Icons

    if tall% = 0

        ExtractIconExA(ST#,val(IconNr$),0,Pt#,1)     	small Icons

    else

        ExtractIconExA(ST#,val(IconNr$),Pt#,0,1)     	large Icons

    endif

    DllIcon& = Long(Pt#,0)
    Dispose ST#
    Dispose Pt#
    return DllIcon&

Endproc

Declare Status&,IntWidth#,iconhandle1&,iconhandle2&,IcoNr1&,IcoNr2&,IcoNr2$
windowstyle ( 512 | 1 | 2 | 4 | 8 )
CLS
Status& = Create("Statuswindow",%hwnd,"")
hwidthx&=width(%hwnd)
hwidthy&=height(%hwnd)
Dim Intwidth#,20
iconhandle1& = GetIconA_Handle("Eigene.dll",20,0)      Ausgangs-Icon
iconhandle2& = GetIconA_Handle("Eigene.dll",20,0)      Ausgangs-Icon
Long Intwidth#,0 = 356,378,400,565,%MaxX               Integer-aray with Maßen the individual Textbereiche
~SendMessage(Status&,~SB_SETPARTS,5,IntWidth#)         Parts settle
~SendMessage(Status&,$401,0 | ~SBT_POPOUT,"Text1")     Texts the Part allocate
~SendMessage(Status&,$40F,1,iconhandle1&)
~SendMessage(Status&,$40F,2,"")
~SendMessage(Status&,$401,3,"")                        Wechselicon + Text the Part allocate
~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,"")       Leerstring the Part allocate
IcoNr1& = 1
IcoNr2& = 0

if (val(translate $(thread.ver(),".","")) < 14)

    messagebox "Zu old Thread.pcu","",0
    end

endif

thread.start 1,7 thread channel 1 started with intervallspeed 6 (halbsekündlich)
thread.start 2,4 thread channel 2 started with intervallspeed 4 (achtelsekündlich)

Whilenot (%key=2)

    Waitinput

Endwhile

thread.stop 1
thread.stop 2
Dispose Intwidth#
End

CREATESTATUSBAR "STATUSBAR" Parameter 1=Text in Statusbar
LET STATUSBAR&=@&(0)
declare ANICONTROL&
ANICONTROL&=Control("STATIC","",$54000100,10,0,32,32,STATUSBAR&,0,%hinstance,$0)
ANIMICON 0 ,"C:FLY.ANI",ANICONTROL&,0,0,0032,0032