Ich habe ein Problem. Das ist der Code:
Delphi-Quellcode:
...
var animationen:Array [0..10] of TImagelist;
...
if(OpenPictureDialog1.Execute) then
begin
Image1.Picture.Bitmap.LoadFromFile(OpenPictureDialog1.FileName);
animationen[0].Width := 200;
animationen[0].Height := 200;
button3.Enabled := true;
for i := 0 to max do
if(bilder < i) then
begin
animationen[0].Add(image1.picture.bitmap,image1.Picture.Bitmap);
inc(bilder);
break;
end;
end;
Ich bekomme eine Meldung, wenn meine "animationen" größer sind als das Bild, die Meldung "Ungültige Grafikgröße".
Danke!
Max