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