Tech-Ecke / Delphi Inhalt / TImageList

 

     TImageList

 

Die Komponente lässt sich am besten mit einer "eindimensionalen Feldvariable für Bitmaps" umschreiben, wobei alle zugeordnete Bilder die gleiche 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;
 

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 27.03.2009]