@Uncle Cracker:
Danke für deine Mühe, aber ich glaube, ich habe mich falsch ausgedrückt
Wie man die Dateinamen auflistet, weiß ich ja.
Delphi-Quellcode:
procedure ListFileDir(Path: string; FileList: TStrings);
var
SearchRec: TSearchRec;
begin
if FindFirst(Path + '*.bmp', faAnyFile xor faDirectory, SearchRec) = 0 then
repeat
FileList.Add(SearchRec.Name);
until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
Das Problem ist, dass neben meinem Eintrag in der ListBox das Bitmap auf 12x12 Pixel erscheinen soll (sowie der Dateiname rechts daneben).
Das ganze möchte ich automatisieren, d.h. es soll selbständig ein Verzeichnis ausgelsen werden und das Bild + Dateiname in die ListBox eingetragen werden.
Momentan mache ich es per:
Delphi-Quellcode:
CurrentDir := GetCurrentDir;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(CurrentDir + '\bilder\Bitmap1.bmp');
with ListBoxTiles.Items do
begin
AddObject('Bitmap 1', Bitmap);
end;
(läuft über Style := lbOwnerDrawFixed)
Hat jemand eine Idee?