XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfensters: Minimieren abfragen (2)
Unter Profan 7.0
WINDOWSTYLE 63+512 512 ganz wichtig
CLS

WHILE 1

    WAITINPUT

    IF EQU(%KEY,2)

        End

    ELSEIF equ(%KEY,4)

        @MessageBox(Verkleinern/Vergrössern wurde angeklickt,Hinweis,$41040)

    ENDIF

WEND

FIN