XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Icons zeichnen
Lauffähig ab Profan-Version 6.6
Erklärung:
----------
Dieses Beispiel demonstriert, wie Icons auf dem Hauptfenster
positioniert werden können.
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 i%,j%
declare b%,h%
declare bild$

PROC INIT

    x% = 325
    y% = 250
    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%
    LoadSizedBMP bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    UseFont Arial,16,0,0,0,0
    SetDialogfont 1

ENDPROC

PROC BUTTONS

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

ENDPROC

PROC ICONS

    clear i%
    clear j%

    while lt(j%,Height(%HWnd))

        while lt(i%,Width(%HWnd))

            DrawIcon GESICHT,i%,j%
            i% = i% +32

        wend

        i% = 0
        j% = j% +32

    wend

ENDPROC

#####################################################
INIT
HAUPTFENSTER
ICONS
BUTTONS
clear e%

whilenot e%

    Waitinput

    If GetFocus(exit%)

        e%=1

    endif

wend

end