XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Hauptfenster erstellen et Button abfragen
Lauffähig ab Profan-Version 6.6
cet Beispiel demonstriert, comment un finissons-Button erzeugt et abgefragt volonté peux.
Es bedeuten:
------------
Titel$     qui Text qui Titelzeile des Hauptfensters
x%         qui vertikale Ausdehnung des Hauptfensters
y%         qui horizontale Ausdehnung des Hauptfensters
exit%      Handle des finissons-Buttons
b%         Breite des finissons-Buttons
h%         Hauteur des finissons-Buttons
declare Titel$,x%,y%,e%,exit%
declare b%,h%

PROC INIT

    x% = 320
    y% = 240
    b% = 100
    h% = 25
    Titel$=je suis un kleines Profan²-Programme
    Fenêtre Style 16

ENDPROC

PROC HAUPTFENSTER

    Fenêtre (%MaxX - x%) / 2,(%MaxY - y%) / 2 - % X, y%  erzeugt un bzgl. des Bildschirmes zentriertes Hauptfenster

ENDPROC

PROC BUTTONS

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

ENDPROC

#####################################################
INIT
HAUPTFENSTER
BUTTONS
clear e%                     mets qui Variable e% sur 0

whilenot e%                  so longtemps e% keinen Wert hat (alors zéro ist) ...

    Waitinput                  ... attends ...

    Si GetFocus(exit%)          si qui Button avec dem Handle exit% angeklickt worden ist ...

        e%=1                      ... mets e% sur 1

    endif

Wend

end