XProfan

 $P+
SET("ERRORLEVEL",0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.6.5
DATUM  05.08.2008    um  16:42 Uhr
VERWENDETE PROFANVERSION IST 11.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS VISTA
!!! Dieser Code wird von Roc immer neu erzeugt!!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade
********************** DATEN ***********************************
>>>>> AB HIER KOPIEREN UND IN EIGENEN CODE EINBINDEN <<<<<<<<<<<<
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
SET("TRUECOLOR",1)

PROC DIALOG  ---------------------------------------------------------------------------> Dialoganfang

    DECLARE DLG&, DIALOGENDE%
    DECLARE GridListe&
    DECLARE BUTTON1&,BUTTON2&
    Declare TmpListe&
    Declare Ordnerpfad$,TmpPfad$

    proc GridBox_füllen

        DECLARE zähler%,eintrag$
        ClearList GridListe&
        @SendMessage(GridListe&,$0184,0,0)
        zähler%=0

        Whilenot zähler% = @GetCount(TmpListe&)

            eintrag$ = @SubStr$(@GetString$(TmpListe&,zähler%),1,".") + "|" + @SubStr$(@GetString$(TmpListe&,zähler%),2,".")
            @AddString(GridListe&,eintrag$)
            inc zähler%

        EndWhile

    endproc

    WINDOWSTYLE 31
    DLG&=CREATE("DIALOG",%HWND,"GridBox",(%maxx/2 - 265/2),(%maxy/2 - 299/2),265,299)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    TmpListe&=@Create("List",1)
    Ordnerpfad$ = getdir$("@")
    GridListe& = create("GridBox",DLG&,"Datei;0;120;Typ;0;60",3,0027,0027,0204,0164)
    BUTTON1& =@CREATE("BUTTON",DLG&,"Ordner wählen",0029,0216,0100,0030)
    BUTTON2& =@CREATE("BUTTON",DLG&,"Beenden",0159,0214,0070,0030)
    ClearList TmpListe&
    AddFiles "*.exe"
    @MoveListToHandle(TmpListe&)
    GridBox_füllen
    SETFOCUS(DLG&)
    DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If %KEY=2

            DIALOGENDE%= 1

        ELSEIF CLICKED(GridListe&) GRIDBOX

        ELSEIF CLICKED(BUTTON1&) Ordner wählen

            TmpPfad$ = getdir$("@")
            Ordnerpfad$ = choosedir$("Ordner wählen")

            if (%button = 1)

                ClearList (TmpListe&)
                @SendMessage(TmpListe&,$0184,0,0)
                ChDir Ordnerpfad$
                AddFiles "*.exe"
                @MoveListToHandle(TmpListe&)
                GridBox_füllen

            else

                Ordnerpfad$ = TmpPfad$
                ClearList (TmpListe&)
                @SendMessage(TmpListe&,$0184,0,0)
                ChDir Ordnerpfad$
                AddFiles "*.exe"
                @MoveListToHandle(TmpListe&)
                GridBox_füllen

            endif

        ELSEIF CLICKED(BUTTON2&) Programm Beenden

            DIALOGENDE%= 1

        ENDIF

    ENDWHILE

    DESTROYWINDOW(DLG&)
    ENDPROC --------------------------------------------------------------------------------> Dialogende
    SET("AUTOPAINT",2)
    >>>>> HIER KOPIERENDE FÜR EIGENEN CODEEINBAU <<<<<<<<<<<<<<<<<<<<
    Das folgende Hauptfenster ist nur zum Testen:
    WINDOWTITLE "DUMMY HAUPTFENSTER"
    WINDOWSTYLE 63
    WINDOW (%maxx-300),10-280,80
    CLS RGB(0,0,0)
    Color 10,0
    PRINT "Bitte aufs Systemmenükreuz klicken "
    DIALOG Diálogo aufrufen!

ClearList
ClearList GridListe