XProfan

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

proc thread.do

    parámetros 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$ + " de el Eigene.dll")Texto el Part 4 zuweisen
        ~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,"" + Tiempo())   		Texto el Part 5 zuweisen
        INC IcoNr2&

        If IcoNr1& = 1

            IcoNr1& = 2

        Más

            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   				sólo el Handle ermitteln

    Parámetros IconFile$,IconNr$, gross%   		kleine Icons = 0 große = 1
    Declarar 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

    más

        ExtractIconExA(ST#,val(IconNr$),Pt#,0,1)     	große Icons

    endif

    DllIcon& = Largo(Pt#,0)
    Disponer ST#
    Disponer Pt#
    volver DllIcon&

ENDPROC

Declarar Status&,IntWidth#,iconhandle1&,iconhandle2&,IcoNr1&,IcoNr2&,IcoNr2$
windowstyle ( 512 | 1 | 2 | 4 | 8 )
CLS
Status& = Crear("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
Largo Intwidth#,0 = 356,378,400,565,%MaxX               Integer-Array con Maßen el individual Textbereiche
~SendMessage(Status&,~SB_SETPARTS,5,IntWidth#)         Parts conjunto
~SendMessage(Status&,$401,0 | ~SBT_POPOUT,"Text1")     Textos el Part zuweisen
~SendMessage(Status&,$40F,1,iconhandle1&)
~SendMessage(Status&,$40F,2,"")
~SendMessage(Status&,$401,3,"")                        Wechselicon + Texto el Part zuweisen
~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,"")       Leerstring el Part zuweisen
IcoNr1& = 1
IcoNr2& = 0

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

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

endif

thread.start 1,7 thread kanal 1 starten con intervallspeed 6 (halbsekündlich)
thread.start 2,4 thread kanal 2 starten con intervallspeed 4 (achtelsekündlich)

Sinestar encargado (%key=2)

    Waitinput

Endwhile

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

CREATESTATUSBAR "STATUSBAR" Parámetro 1=Texto en Statusbar
LET STATUSBAR&=@&(0)
declarar ANICONTROL&
ANICONTROL&=Control("STATIC","",$54000100,10,0,32,32,STATUSBAR&,0,%hInstance,$0)
ANIMICON 0 ,"C:FLY.ANI",ANICONTROL&,0,0,0032,0032