Moin moin,
ich habe da ein recht seltsames Phänomen:
In meiner Anwendung befinden sich mehrere TImageList.
Alle habe eine Bildgrösse von 256x256.
Eins davon soll zur Laufzeit mit bis zu 500 Bildern befüllt werden.
Es werden aber nur 158 Bilder aufgenommen !
Ab 159 ist alles Weiss.
Speichermangel ist nicht das Problem.
Interessanterweise wird ab dem 159ten Bild auch kein Speicher mehr alloziiert.
Delphi-Quellcode:
JPG.LoadFromFile(Datei);
// ein paar Berechnungen, um tmpRect zu erhalten
Bild.Canvas.StretchDraw(tmpRect, JPG);
if not Bild.Empty
then begin
KollektionView.Items.BeginUpdate;
j := KollektionList.Add(Bild, nil);
with KollektionView.Items.Add do
begin
Caption := StrList.Strings[i];
ImageIndex := j;
end;
KollektionView.Items.EndUpdate;
end;