Tech-ecke Delphi

TImageList

Die Komponente lässt sich am besten mit einer "eindimensionalen Feldvariable für Bitmaps" umschreiben, wobei alle zugeordnete Bilder die gleiche Größe (Höhe und Breite) besitzen müssen.

Bild Zuweisen (var Bild: TBitmap;)

Bild := TBitmap.create;
try
   Bild.LoadFromFile('C:\bild.bmp'); // lädt das Bitmap Bild ins TBitmap Bild
finally
   ImageList1.CreateSize(Bild.Width, Bild.Height);   // Größe muss bei allen Bildern gleich sein !!!
   ImageList1.Add(Bild,nil); // hier wird das Bitmap zugewiesen
   Bild.Free;
end;

Anzahl der Bilder

ImageList1.Count;

Bild Auslesen (var Bild: TBitmap;)

Bild:=TBitmap.create;
ImageList1.GetBitmap(0, Bild);   // das erste Bild aus der Liste
try
   Bild.SaveToFile('C:\bild.bmp'); // speichert das zugewiesene Bild nach c:\bild.bmp
finally
   Bild.Free;
end;