XProfan

Déclarer Handle btn1, btn2, lb
Déclarer Long ende, String fichier, ordner
ende = 0
fichier = $PROGDIR + "\Images.bmp"
Fenêtre 600, 400
btn1 = Créer("Button", %HWnd, "Ordner", 10, 10, 60, 25)
btn2 = Créer("Button", %HWnd, "Ende",   80, 10, 60, 25)
lb   = Créer("Listbox", %HWnd, 0, 10, 50, 450, 200)

WhileNot ende

    WaitInput

    Si Clicked(btn1)

        ordner = ChooseDir$(%HWnd, "Ordner wählen", "C: \", 3, »)

        Si ordner <> »

            CHDIR ordner
            ClearList
            AddFiles "*.ico"

            Si %GetCount > 0

                ClearList lb
                Move("ListToHandle", lb, ordner)
                InsertImages(lb)

            EndIf

        D'autre

            MessageBox("Kein Dossier ausgewählt !", "Fehler !", 0)

        EndIf

    ElseIf Clicked(btn2)

        ende = 1

    EndIf

    Cas %Key = 2 : ende = 1

Endwhile

Proc InsertImages

    Paramètres Handle liste, String pfad
    Déclarer Long x, y, g
    x = 1
    y = 1
    g = GetCount(liste) * 32
    Mcls g, 32
    Début de peinture -1

    WhileLoop 0, GetCount(liste) - 1

        DrawPic pfad + GetString$(liste, &LOOP), x, y; 0
        Inc x, 32

    Endwhile

    EndPaint
    Début de peinture -1
    SaveBmp ordner + "Images.bmp", 0, 0 - g, 32
    EndPaint
    MessageBox("Datei : " + ordner + "images.bmp \ngespeichert !", "Info !", 0)

ENDPROC

Fin