XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Statusbar erzeugen (2)
DEF @CreateStatusWindow(4) ! comctl32,CreateStatusWindow
Declare Status&,Text#,Width&,Height&
Windowstyle 31
Windowtitle Statusbar Test
Window 0,0-640,440
dim text#,256
String TEXT#,0=Statusbartext
Status&=@CreateStatusWindow($50000920,TEXT#,%HWND,1000)
@Sendmessage(Status&,$401,0,TEXT#)
@Sendmessage(Status&,$410,0,TEXT#)
Dispose text#

While 0=0

    Getmessage

    IF @or(Width&<>@Width(%HWND),Height&<>@Height(%HWND))

        LET Height&=@Height(%HWND)
        LET Width&=@Width(%HWND)
        SetWindowPos Status&=0,0-0,0;0

    endif

Wend