Timages Ladezeiten

[s.h.a.r.k]

*autsch* was schreibst du denn für Code? erzeug doch einfach nur einmal ein image und lade da jedes mal das bitmap rein.

Delphi-Quellcode:

image := TBitmap.Create();
try
  for i:= 1 to 55 do
  begin
    image.LoadFromFile('bilder\invader1.bmp');
    Imagelist1.Add(image, nil);
  end;
finally
  FreeAndNil(image);
end;

// so kann es es in einem image anzeigen
var
  image : TBitmap;
begin
  image := TBitmap.Create();
  try
    if (ImageList1.GetBitmap(0, image) ) then
      Image1.Picture.Bitmap.Assign(image);
  finally
    FreeAndNil(image);
  end;
end;