XProfan

 $H windows.ph
 $H messages.ph
 $H commctrl.ph
 $U thread.pcu = thread.
Def ExtractIconExA(5) !"SHELL32","ExtractIconExA"
Def Zeit(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$ + " aus der Eigene.dll")Text dem Part 4 zuweisen
        ~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,"" + Zeit())   		Text dem Part 5 zuweisen
        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   				nur das Handle ermitteln

    Parameters IconFile$,IconNr$, gross%   		kleine Icons = 0 große = 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$))   große Icons

    if gross% = 0

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

    else

        ExtractIconExA(ST#,val(IconNr$),Pt#,0,1)     	große 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-Array mit Maßen der einzelnen Textbereiche
~SendMessage(Status&,~SB_SETPARTS,5,IntWidth#)         Parts setzen
~SendMessage(Status&,$401,0 | ~SBT_POPOUT,"Text1")     Texte dem Part zuweisen
~SendMessage(Status&,$40F,1,iconhandle1&)
~SendMessage(Status&,$40F,2,"")
~SendMessage(Status&,$401,3,"")                        Wechselicon + Text dem Part zuweisen
~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,"")       Leerstring dem Part zuweisen
IcoNr1& = 1
IcoNr2& = 0

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

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

endif

thread.start 1,7 thread kanal 1 starten mit intervallspeed 6 (halbsekündlich)
thread.start 2,4 thread kanal 2 starten mit 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