In ImageList eine Bitmap laden?

[bitsetter]

Hallo,

so könnte man es machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  LstItm: TListItem;
  Bild: TBitmap;
  Pfad: AnsiString;
begin
  Bild:= TBitmap.Create;
  try
    Pfad:= 'C:\bild.bmp';//Beispiel
    if not FileExists(Pfad) then
    begin
      Showmessage('Fehler, das Bild wurde nicht gefunden');
      exit;
    end;
    Bild.LoadFromFile(Pfad);
    ImageList1.Width:= Bild.Width;
    ImageList1.Height:= Bild.Height;
    caption:= inttostr(ImageList1.Height);

    ImageList1.Add(Bild, Bild);
    ImageList1.Add(Bild, Bild);//Demo 2 Bilder
  finally
    Bild.Free;
  end;

  ListView1.ViewStyle := vsIcon;
  ListView1.LargeImages := ImageList1;

  ListView1.Items.BeginUpdate;
  for i := 0 to ImageList1.Count - 1 do
  begin
    LstItm := ListView1.Items.Add;
    LstItm.Caption := 'Item ' + IntToStr(i);
    LstItm.ImageIndex := i;
  end;
  ListView1.Items.EndUpdate;
end;

Die Bilder in der Imagelist müssen aber immer die gleiche Größe haben.