XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfenster testen
Lauffähig ab Profan-Version 7.0
CODE ERZEUGT MIT ROKOS OBJECT CREATOR V 2.5
DATUM  01.08.2002    um  18:37 Uhr
VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER

PROC DIALOG

    DLG&=CREATE(DIALOG,%HWND,Unabhängiges Dialogfenster,173,187,303,113)
    BUTTON1% =@CREATE(BUTTON,DLG&,Drück mich,0024,0012,0070,0030)
    BUTTON2% =@CREATE(BUTTON,DLG&,schliessen,0096,0012,0070,0030)
    DIALOGDA%=1

ENDPROC

PROC DIALOGABFRAGE

    IF EQU(dialogda%,1)

        IF GETFOCUS(BUTTON1%) BUTTON

            print
            print DANKE FÜRS KLICKEN
            print SAGT DER DIALOG ;)

        ELSEIF GETFOCUS(BUTTON2%) BUTTON

            destroywindow(DLG&)
            dialogda%=0

        ENDIF

    Endif

ENDPROC

SETTRUECOLOR 1
DECLARE ENDE%
DECLARE DLG&,DIALOGDA%
DECLARE BUTTON1%
DECLARE BUTTON2%
DECLARE BUTTON3%
DECLARE BUTTON4%
WINDOW 0,0-500,500
WINDOWTITLE Unabhängiges Dialogverhalten
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
BUTTON3% =@CREATE(BUTTON,%HWND,DIALOG ÖFFNEN,0224,0012,0200,0030)
BUTTON4% =@CREATE(BUTTON,%HWND,TESTE MICH WENN DIALOG OFFEN,0224,0062,0200,0030)

WHILENOT ENDE%

    WAITINPUT
    DIALOGABFRAGE

    If EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF getfocus(BUTTON3%)

        if equ(dialogda%,0)

            DIALOGDA%=1
            DIALOG

        endif

    ELSEIF getfocus(BUTTON4%)

        ifnot equ(%message,32) DIES NUR UM NICHT ZWEIMAL PRINT ANZUZEIGEN!

            print
            PRINT JA, NUN KANN MAN BEIDES
            PRINT HWND und DIALOG ABFRAGEN
            PRINT VOM HAUPTFENSTER

        endif

    WEND