XProfan

Declare DLG&, Dialogende%
Declare Sortedlistbox1&
Declare Text1&
Declare Button1&
Declare Button2&
Declare Button3&
Declare Button4&
Declare eintragen$
Declare eintrag$
Declare name$
------------------------------------------
DECLARE text$,anzahl&,nr& neu
------------------------------------------

Proc auswerten

    PARAMETERS text$
    Print text$

EndProc

Proc Listbox

    Let DLG&=CreateDIALOG(%HWND,,504,124,347,286)
    ChDir C:\
    AddFiles *.* jetzt werden alle Dateien gezeigt
    AddFiles *.txt hier nur TXT-Dateien
    Let Sortedlistbox1& =@CreateSortedlistbox(DLG&,Sortedlistbox,0015,0045,0218,0192)
    MoveListToHandle(sortedlistbox1&)
    MoveListToList(sortedlistbox1&)
    Let Text1& =@CreateText(DLG&,Dateien:,0015,0025,0070,0020)
    Let Button1& =@CreateButton(DLG&,Anzeigen,0245,0045,0070,0030)
    Let Button2& =@CreateButton(DLG&,Löschen,0245,0085,0070,0030)
    Let Button3& =@CreateButton(DLG&,Hilfe,0245,0165,0070,0030)
    Let Button4& =@CreateButton(DLG&,Schließen,0245,0205,0070,0030)
    SETFOCUS(DLG&)
    Let Dialogende%=0
    anzahl&=GETCOUNT(Sortedlistbox1&)
    print anzahl&

    WhileNot Dialogende%

        Waitinput

        If  %KEY=2

            IF EQU(%Key,2)

                Let Dialogende%= 1

            ElseIf @GETFOCUS(Button1&)Button

            ElseIf @CLICKED(Button1&)Button

                nr&=GETCURSEL(Sortedlistbox1&)
                text$=GETSTRING$(Sortedlistbox1&,nr&)
                AUSWERTEN text$

            ElseIf @GETFOCUS(Button2&)Button

            ElseIf @GETFOCUS(Button3&)Button

            ElseIf @GETFOCUS(Button4&)Button

                Dialogende% = 1

            EndIF

        wend

    ENDWHILE

    DESTROYWINDOW(DLG&)

EndProc

----------------------------------------------
CLSclass=s4 href='./../../function-references/XProfan/listbox/'>Listbox