XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster erstellen und Bitmap anzeigen
Lauffähig ab Profan-Version 6.6
Dieses Beispiel demonstriert, wie ein Bitmap geladen und im Hauptfenster angezeigt werden kann
Es bedeuten:
------------
Titel$     der Text der Titelzeile des Hauptfensters
x%         die vertikale Ausdehnung des Hauptfensters
y%         die horizontale Ausdehnung des Hauptfensters
exit%      Handle des Beenden-Buttons
b%         Breite des Beenden-Buttons
h%         Höhe des Beenden-Buttons
bild$      Dateiname des Bitmaps
declare Titel$,x%,y%,e%,exit%
declare b%,h%
declare bild$

PROC INIT

    x% = 320
    y% = 240
    b% = 100
    h% = 25
    bild$ = GetDir$(@) + WOLKEN.BMP
    Titel$=Ich bin ein kleines Profan²-Programm
    WindowStyle 48
    WindowTitle Titel$
    SetTrueColor 1

ENDPROC

PROC HAUPTFENSTER

    Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%        erzeugt ein bzgl. des Bildschirmes zentriertes Hauptfenster
    LoadBMP bild$,0,0;0                                     das Hintergrundbild wird geladen und angezeigt

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 die Variable e% auf 0

whilenot e%                  so lange e% keinen Wert hat (also Null ist) ...

    Waitinput                  ... warte ...

    If GetFocus(exit%)          wenn der Button mit dem Handle exit% angeklickt worden ist ...

        e%=1                      ... setze e% auf 1

    endif

wend

end