XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster minimieren (in die Startleiste ablegen)
declare x%,y%,e%,i%,exit&,MinBut&
x% = 640
y% = 480
Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
exit& = Create(Button,%HWnd,Beenden,100,10,100,25)
MinBut& = Create(Button,%HWnd,Minimieren,100,50,100,25)
SetTimer 100

whilenot e%

    waitinput

    if %wmTimer

        Locate 3,3
        print str$(i%)
        Create(Text,%HWnd,str$(i%),15,50,60,20)
        inc i%

        if i% > 30000

            clear i%

        endif

    endif

    if or(%Key = 2,GetFocus(exit&))

        e% = 1

    elseif GetFocus(MinBut&)

        ShowMin

    endif

wend

KillTimer
end

ifnot %WinBottom > %MaxY

    print str$(i%)

else

    SetText %HWnd,str$(i%)

endif

inc i%

if %WinBottom < %Maxy

    print str$(%WinLeft)
    print str$(%WinRight)
    print str$(%WinTop)
    print str$(%WinBottom) + xxx

endif

SetText %HWnd,str$(%WinLeft)
SetText %HWnd,str$(%WinRight)
SetText %HWnd,str$(%WinTop)
SetText %HWnd,str$(%WinBottom) + xxx

<