XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialoge erstellen (auch mit Radiobuttons und Eingabemöglichkeit)
Declare Ende%

PROC Dialog1

    Declare hD%, hB%, OK%
    Dialogfenster erzeugen
    Let hD% = @CreateDialog(%HWnd,Dialogfenster,80,90,180,160)
    Einen Button mit OK erzeugen
    Let hB% = @CreateButton(hD%,&OK,120,100,40,25)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1

        EndIf

    Wend

    Dialogfenster (incl. Button) entfernen
    @DestroyWindow(hD%)

ENDPROC

PROC Dialog2

    Declare hD%, hB%, OK%
    Dialogfenster erzeugen
    Let hD% = @CreateDialog(%HWnd,Dialogfenster,80,90,180,160)
    Einen Button mit OK erzeugen
    Let hB% = @CreateButton(hD%,&OK,120,100,40,25)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1

        ElseIf @MenuItem(199) Menüpunkt Ende

            Let Ok% = 1
            Let Ende% = 1

        EndIf

    Wend

    Dialogfenster (incl. Button) entfernen
    @DestroyWindow(hD%)

ENDPROC

PROC Dialog3

    Declare hD%, hB%, OK%
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 3,80,90,180,160)
    Let hB% = @CreateButton(hD%,&OK,120,100,40,25)
    @CreateText(hD%,Ihre Festplatte wird formatiert,
    20,5,140,50)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

PROC Dialog4

    Declare hD%, hB%, hA%, OK%
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 4,80,90,180,160)
    Let hB% = @CreateButton(hD%,&OK,10,100,40,25)
    Let hA% = @CreateButton(hD%,&Abbruch,100,100,60,25)
    @CreateText(hD%,Ihre Festplatte wird formatiert,
    20,5,140,50)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hA%)     ABBRUCH wurde angeklickt

            Let Ok% = 1

        ElseIf @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1
            Print Die Festplatte wurde formatiert!

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

PROC Dialog5

    Declare hD%, hB%, hA%, hV%, hN%, OK%,
    Name$, Vorname$
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 5,80,90,180,160)
    @CreateText(hD%,Vorname:, 10, 8,60,20)
    @CreateText(hD%,Name:,    10,33,60,20)
    Let hV% = @CreateEdit(hD%,,75, 5,85,24)
    Let hN% = @CreateEdit(hD%,,75,30,85,24)
    Let hB% = @CreateButton(hD%,&OK,10,100,40,25)
    Let hA% = @CreateButton(hD%,&Abbruch,100,100,60,25)
    Dialog-Schleife
    @SetFocus(hV%)
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @Equ(%Key,2)       Alt-F4 bzw. Schließen

            Let Ok% = 1

        ElseIf @GetFocus(hA%) ABBRUCH wurde angeklickt

            Let Ok% = 1
            Cls
            Print ... abgebrochen ...

        ElseIf @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1
            Let Name$    = @GetText$(hN%)
            Let Vorname$ = @GetText$(hV%)
            Cls
            Print Name: ;Vorname$,Name$

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

PROC Dialog6

    Declare hD%, hB%, hA%, hV%, hN%, hK%, hGm%, hGw%, OK%,
    Name$, Vorname$
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 6,80,90,180,200)
    @CreateText(hD%,Vorname:, 10, 8,60,20)
    @CreateText(hD%,Name:,    10,33,60,20)
    @CreateIcon(hD%,PROFAN, 125,90)
    @CreateGroupBox(hD%,Geschlecht,10,75,100,60)
    Let hV% = @CreateEdit(hD%,,75, 5,85,24)
    Let hN% = @CreateEdit(hD%,,75,30,85,24)
    Let hk% = @CreateCheckBox(hD%,Kunde,10,55,60,24)
    Let hGw%= @CreateRadioButton(hD%,weiblich,17, 93,80,20)
    Let hGm%= @CreateRadioButton(hD%,männlich,17,113,80,20)
    Let hB% = @CreateButton(hD%,&OK,10,140,40,25)
    Let hA% = @CreateButton(hD%,&Abbruch,100,140,60,25)
    @SetFocus(hV%)
    SetCheck hGw%,1         weiblich ankreuzen
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @Equ(%Key,2)       Alt-F4 bzw. Schließen

            Let Ok% = 1

        ElseIf @GetFocus(hA%) ABBRUCH wurde angeklickt

            Let Ok% = 1
            Cls
            Print ... abgebrochen ...

        ElseIf @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1
            Let Name$    = @GetText$(hN%)
            Let Vorname$ = @GetText$(hV%)
            Cls
            Print Name: ;Vorname$,Name$

            If @GetCheck(hGw%)

                Print weiblich ;

            Else

                Print männlich ;

            Endif

            If @GetCheck(hK%)

                Print und Kunde!

            Else

                Print und noch nicht Kunde!

            Endif

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

Haupt-Programm
--------------
Window 20,20-400,300
PopUp &Aktion
AppendMenu 101,Dialog &1
AppendMenu 102,Dialog &2
AppendMenu 103,Dialog &3
AppendMenu 104,Dialog &4
AppendMenu 105,Dialog &5
AppendMenu 106,Dialog &6
Separator
AppendMenu 199,&Ende
Let Ende% = 0

WhileNot Ende%

    WaitInput

    If @MenuItem(101)

        Dialog1

    ElseIf @MenuItem(102)

        Dialog2

    ElseIf @MenuItem(103)

        Dialog3

    ElseIf @MenuItem(104)

        Dialog4

    ElseIf @MenuItem(105)

        Dialog5

    ElseIf @MenuItem(106)

        Dialog6

    ElseIf @MenuItem(199)

        Let end% = 1

    EndIf

Wend

End