XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Messagebox erstellen
Lauffähig ab Profan-Version 5.0
Achtung: Aufruf nur mit Parametern:
1. Buttonwert  (0/1/2/3/4/5)
2. Iconwert    (0/16/32/49/64)
3. Defaultwert (0/256/512)
4. Fensterart  (0/4096)
5. Meldetext
6. Überschrift
Beispiel:  MBox 0,0,0,0,Testtext,Überschrift
Declare MBErgebnis%,Bwert%,Iwert%,Dwert%,Fwert%,MBKnopf%,MText$,MSchrift$

Proc MBox

    geprüft wird in dieser Inc-Datei
    das Verhalten einer MessageBox
    Das Ergebnis steht in MBErgebnis%
    1-OK / 2-Fortsetzen / 3-Abbruch / 4-Wiederholen
    5-Ignorieren / 6-Ja / 7-Nein
    Parameters Bwert%,Iwert%,Dwert%,Fwert%,MText$,MSchrift$
    let MBKnopf%=2
    case @equ(Iwert%,0):let MBKnopf%=0
    case @equ(Iwert%,16):let MBKnopf%=0
    case @equ(Iwert%,32):let MBKnopf%=0
    case @equ(Iwert%,49):let MBKnopf%=0
    case @equ(Iwert%,64):let MBKnopf%=0
    case @and(@gt(bwert%,5),@equ(MBKnopf%,0)):let MBKnopf%=1
    case @equ(MBKnopf%,0):Let MBKnopf%=3
    case @and(@equ(MBKnopf%,3),@equ(dwert%,0)):let MBKnopf%=0
    case @and(@equ(MBKnopf%,3),@equ(dwert%,256)):let MBKnopf%=0
    case @and(@equ(MBKnopf%,3),@equ(dwert%,512)):let MBKnopf%=0
    case @equ(MBKnopf%,0):Let MBKnopf%=4
    case @and(@equ(MBKnopf%,4),@equ(fwert%,0)):let MBKnopf%=0
    case @and(@equ(MBKnopf%,4),@equ(fwert%,4096)):let MBKnopf%=0

    if @neq(MBKnopf%,0)

        let Mtext$=Es ist ein Fehler aufgetreten:
        case @equ(MBKnopf%,1):let MSchrift$=Wert für Buttons falsch!
        case @equ(MBKnopf%,2):let MSchrift$=Wert für Icone falsch!
        case @equ(MBKnopf%,3):let MSchrift$=Wert für Default falsch!
        case @equ(MBKnopf%,4):let MSchrift$=Wert für Fenster falsch!
        let Mtext$=add$(Mtext$,Mschrift$)
        let MBErgebnis%=@MessageBox(MText$,Warnung,49)
        end

    else

        let MBKnopf%=@add(@add(@add(Bwert%,Iwert%),Dwert%),Fwert%)
        let Bwert%=0

        whilenot Bwert%

            let MBErgebnis%=@MessageBox(Mtext$,Mschrift$,MBKnopf%)
            case @neq(MBErgebnis%,0):inc Bwert%

        wend

    endif

endproc

MBox 0,0,0,0,MeldeText,Überschrift