[Fehler] Ungültige Bildgröße ?!? - ImageList füllen

[MaToBe]

Hallo,

Delphi-Quellcode:

var
  Form1: TForm1;
  naechstesBild : integer;

implementation

{$R *.dfm}

procedure TForm1.btnBildLadenClick(Sender: TObject);
begin
  if openPictureD.Execute then
  begin
    imgBild.Picture.LoadFromFile(openPictureD.FileName);
    ImageList.Insert(naechstesBild, imgBild.Picture.Bitmap, nil);
    clbBilder.Items[0] := ExtractFileName(openPictureD.FileName);
  end;
end;

also, bei diesem Code möchte ich erreichen, dass ein Bild, welches ich mit einem OpenPictureDialog auswähle zum 1. in ein Image geladen wird (klappt). Zum 2. soll das Bild in die ImageListe geladen werden (klappt denk ich mal). 3. Soll der Name des geladenen Bildes in eine Checklistbox geladen werden (klappt nicht).

Ich bekomme einen Fehler in der rot markierten Zeile der sagt : Ungültige Bildgröße.
Aber ich mach doch garnichts mit der Bildgröße ich will doch nur den Namen der geladenen Datei in die Liste einfügen.

Und noch 2 Fragen, wie kann man die Variable naechstesBild immer so konfigurieren, dass immer wenn ich ein Bild hinzufüge, es am Ende der Imagebox ist? Also Bild hinzu -> Index 0 -> noch ein Bild hinzu -> neues Bild Index 1 usw. das die Bilder sich nicht überschreiten.

MFG MaToBe

[MaToBe]

ich habe mein System noch einmal überdacht und gemerckt das ich das so sowieso nicht brauche. Der Fehler, wie ich herausgefunden habe, ist das ich kein Jpeg laden darf, sondern nur Bitmap.

Delphi-Quellcode:

procedure TForm1.btnBildLadenClick(Sender: TObject);
begin
  if openPictureD.Execute then
  begin
    imgBild.Picture.LoadFromFile(openPictureD.FileName);
    clbBilder.Items[0] := ExtractFileName(openPictureD.FileName);
  end;
end;

das ist mein aktueller Code.

Nur was ich hier nicht verstehe, er sagt mir immer: "Liste überschreitet den Index (0)"

Kann mir bitte jemand erklären, wie ich das anstelle, dass immer wenn ein Bild geladen wird, es der Liste hinzugefügt wird.

Ich hab schon immer Probleme mit Listen gehabt, kann mir vllt jemand mal ein Tutorial zeigen, in dem erklärt wie man etwas einer Liste hinzufügt, löscht, ausliest? ich rate da immer so rum und manchmal klappts und manchmal nicht....

[DeddyH]

Delphi-Quellcode:

clbBilder.Items.Add(ExtractFileName(openPictureD.FileName));