XProfan

Set(FastMode,1)
Def Cwp(5) !user32,CallWindowProcA
Declare Ex%,_owp&,Sb&
Cls
_owp&:=External(user32,SetWindowLongA,%Hwnd,-4, Procaddr(_wproc,4))
Sb&:=Create(StatusWindow,%Hwnd,Bereit.)

Whilenot Ex%

    Waitinput

Endwhile

End

Proc _wproc

    Parameters Wnd&, Msg&, Wparam&, Lparam&

    If (Msg&==16)// close

        Ex%:=1

    Elseif (Msg& == 3)// move

    Elseif (Msg& == 5)// size

        _redrw

    Elseif (Msg& == 15)// paint

    Elseif (Msg& == 256)// keydwn

    Elseif (Msg& == $108)// keylast

    Elseif (Msg& == 522)// wheel

        If (Wparam&>0)

        Else

        Endif

    Endif

    Return Cwp(_owp&,Wnd&, Msg&, Wparam&, Lparam&)

Endproc

Proc _redrw

    External(user32,SetWindowPos,Sb&,0,0,0,0,0,28)
    External(user32,InvalidateRect,Sb&,0,0)
    External(user32,UpdateWindow,Sb&)

Endproc