Hallo liebe Leser,

mein Problem heuer ist folgendes.
Wie kann ich TImgeLists zur Laufzeit erstellen?


ich weis:

markieren

Delphi-Quellcode:

var
blabla :TImageList;

Begin
Create und so weiter.

Das Problem ich weis nicht wieviele TImageLists es werden. daher kann ich wohl kaum
255 mal scheiben?!

markieren

Delphi-Quellcode:

var
bla1, bla2 bla3, .... bla255:TimageList;

Danke Euch für Eure Antwort....

Hi,

für solche Digne bietet sich ein array of TImageList an.

Ich könnte mir jedoch vorstellen, dass es vielleicht eine bessere Alternative gibt, zu hunderten ImageLists.

Benutze ein dynamisches Array:

markieren

Delphi-Quellcode:

type
  TImgLstArray = array of TImageList;

var
  ImageListen: TImgLstArray;

begin
  // 10 ImageListen, nullbasierend
  SetLength(ImageListen, 10);
  ImageListen[0] := ImageList1;

Wau danke euch...

Hmm
leider funktioniert das bei mir nicht.
Oder anders ich komme damit nicht klar das ergbnis ist nicht was was es sein sollte (falsche Icons)

mache ich es dagegen mal manuelle nur zum testen mit 5 zur laufzeit generierten ImageList ist das einwandfrei!

habe auch schon versucht beispiel Code zu finden zu array of TImageList aber selsbt über google nur ein Ergbnis ;(

Was willst du machen? Luckie hat dir doch ein Beispiel geliefert.

Statt ListBox1 heißt es dann halt ImageListen[0];

Ja das Beispiel geht ja auch soweit nur das die Icons nicht richtig angezeigt werden ( es sind die falschen)


Ich versuche mal zu erklären, was ich machen möchte.

Ich scanne unterschiedliche Verzeichnisse nach Icons
Diese sollen dann in Kategorien angezeigt werden - basierend auf dem Fundort.

Klicke ich halt dann auf einen Button, wird in der ListView die Icons angezeigt - passend zur Kategorie vom Button...


Das was ich vor allem erzielen möchte, ist das nur gesucht werden muss beim Start udn das dann während das Programm aktiv ist keine weiteren zugriffe auf die Festplatte nötig ist!

Wenn ich bei jedem Button klick das jeweilige Verzeichnis scanne - geht das einfach!
Aber das dauert dann immer - soll ja auch schnell sein das Programm


Hoffe habe es einigermaßen Verständlich geschildert....

mal eine blöde Frage,

warum nimmst Du nicht nur eine TImageList
und lädtst da alle Bilder hinein?

Du kannst Dir ja die Startwerte für die Bilder pro Unterverzeichnis merken
und dann mit diesem offset direkt darauf zugreifen.

Was ich meine ist:

Folder1 bild1 -> TimageList.Image[0] den Wert 0 für Folder 0 merken
bild2 -> TimageList.Image[1]

Folder2 bild1 -> TimageList.Image[2] den Wert 2 für Folder 1 merken
bild2 -> TImageList.Image[3]

Foler3 bild1 [4] den Wert 4 merken
....

Ich finde das so einfacher als mit zig ImageListen herumzumachen.

Grüße
Klaus