XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Ventana principal redactar y Button abfragen
Lauffähig de Profano-Versión 6.6
Dieses Ejemplo demonstriert, como una Beenden-Button producido y abgefragt voluntad kann.
Lo bedeuten:
------------
Titel$     el Texto el Titelzeile des Hauptfensters
x%         el vertikale Ausdehnung des Hauptfensters
y%         el horizontale Ausdehnung des Hauptfensters
exit%      Handle des Beenden-Buttons
b%         Breite des Beenden-Buttons
h%         Höhe des Beenden-Buttons
declarar Titel$,x%,y%,e%,exit%
declarar b%,h%

PROC INIT

    x% = 320
    y% = 240
    b% = 100
    h% = 25
    Titel$=Yo bin una kleines Profano²-Programa
    Ventana de Estilo 16

ENDPROC

PROC HAUPTFENSTER

    Ventana (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%%  producido una bzgl. des Bildschirmes zentriertes Ventana principal

ENDPROC

PROC BUTTONS

    let exit% = CreateButton(%HWnd,Beenden,Width(%HWnd) - b% - 2,Height(%HWnd) - h% - 2,b%,h%)

ENDPROC

#####################################################
INIT
HAUPTFENSTER
BUTTONS
clear e%                     setzt el Variable e% en 0

whilenot e%                  así largo e% no Valor ha (also Null es) ...

    Waitinput                  ... warte ...

    If GetFocus(exit%)          si el Button con el Handle exit% angeklickt worden es ...

        e%=1                      ... poner e% en 1

    endif

wend

end