XProfan

Declare lever btn1, btn2, lb
Declare Long end, String File, ordner
end = 0
File = $PROGDIR + "\Images.bmp"
Window 600, 400
btn1 = Create("Button", %HWnd, "Ordner", 10, 10, 60, 25)
btn2 = Create("Button", %HWnd, "Ende",   80, 10, 60, 25)
lb   = Create("Listbox", %HWnd, 0, 10, 50, 450, 200)

WhileNot end

    WaitInput

    If Clicked(btn1)

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

        If ordner <> ""

            CHDIR ordner
            ClearList
            AddFiles "*.ico"

            If %GetCount > 0

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

            EndIf

        Else

            MessageBox("No Ordner select !", "Error !", 0)

        EndIf

    ElseIf Clicked(btn2)

        end = 1

    EndIf

    Case %Key = 2 : end = 1

EndWhile

Proc InsertImages

    Parameters lever list, String way
    Declare Long x, y, g
    x = 1
    y = 1
    g = GetCount(list) * 32
    Mcls g, 32
    StartPaint -1

    WhileLoop 0, GetCount(list) - 1

        DrawPic way + GetString$(list, &LOOP), x, y; 0
        Inc x, 32

    EndWhile

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

ENDPROC

End