XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Mainwindow create and Button inquire
executable ex Profan-Version 6.6
this example demonstrating, How one terminate-Button created and quizzed go can.
it mean:
------------
Titel$     the Text the Headline the Mainwindow
x%         The vertikale extent the Mainwindow
y%         The horizontale extent the Mainwindow
exit%      lever the terminate-Buttons
b%         wide the terminate-Buttons
h%         Höhe the terminate-Buttons
declare cover$,x%,y%,e%,exit%
declare b%,h%

PROC INIT

    x% = 320
    y% = 240
    b% = 100
    h% = 25
    cover$=I be one small Profan²-Program
    Window Style 16

ENDPROC

PROC HAUPTFENSTER

    Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%  created one regarding the Bildschirmes zentriertes Mainwindow

ENDPROC

PROC BUTTONS

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

ENDPROC

#####################################################
INIT
HAUPTFENSTER
BUTTONS
clear e%                     setting The Variable e% on 0

whilenot e%                  so long e% none worth has (means zero is) ...

    Waitinput                  ... were ...

    If GetFocus(exit%)          if the Button with the lever exit% klicked been is ...

        e%=1                      ... set e% on 1

    endif

wend

end