XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fortschrittsbalken in Statusbar
Def @Createstatuswindow(4) ! comctl32,CreateStatusWindow
Def @Createwindowex(12) !USER32,CreateWindowExA
Def @Getsyscolor(1) !USER32,GetSysColor
Def @Setparent(2) !USER32,SetParent
Declare Dialog&,Status&,Text$,Positions#
Declare Classname$,Progresshandle&,Hwnd&,Progresszähler&
Windowstyle 31
Windowtitle Statusbar Test
Window 0,0-640,440
Dim Positions#,16
Long Positions#,0=250
Long Positions#,4=500
Long Positions#,8=-1
Let Text$=Statusbartext
Status&=@Createstatuswindow($50000920,@Addr(Text$),%Hwnd,1000)
@Sendmessage(Status&,$404,3,Positions#)
Dispose Positions#
@Sendmessage(Status&,$401,0,@Addr(Text$))
@Sendmessage(Status&,$410,0,@Addr(Text$))
Let Classname$=msctls_progress32
Let Progresshandle&=@Createwindowex(0,@Addr(Classname$),0,$40000000,250+3,3,250-6,@Height(Status&)-6,%Hwnd,0,%Hinstance,0)
@Setparent(Progresshandle&,Status&)
@Showwindow(Progresshandle&,1)

While 0=0

    Sleep 250
    @Sendmessage(Progresshandle&,$0400+2,Progresszähler&,0)
    Let Progresszähler&=Progresszähler&+1

Wend