Cita:
Empezado por Casimiro Notevi
Tendríamos que ver tu código, liberar miles de imágenes debe ser casi instantáneo.
¿Por qué tienes que hacer las pruebas en una máquina virtual?  |
A qué código te refieres? El de liberar imágenes lo puse al principio, no puede ser más simple:
Código Delphi
[-]
For i:= High(fotos) DownTo Low(fotos) Do
Begin
fotos[i].Free;
IDs[i].Free;
End;
Y las creo así:
Código Delphi
[-]
SetLength(fotos, mp+ 1);
fotos[mp]:= TImage.Create(ScrollBox1);
fotos[mp].SetBounds(5, (mp* 174)+ 5, 264, 168);
fotos[mp].Parent:= SrollBox1;
...
...
SetLength(IDs, mp+ 1);
IDs[mp]:= TEdit.Create(SrollBox1);
IDs[mp].SetBounds(274, mosaicos[mp].Top+ 70, 1030, 46);
IDs[mp].parent:= SrollBox1;
...
...
Nada del otro jueves
Como ves, además de las fotos, creo TEdit asociados, que muestran un ID para cada foto. ¿Serán los que ralentizan el borrado? (Lo curioso es que, cuando se crean muchos de esos elementos, los Tedit centrales y finales no suelen aparecer...)
Si quieres pongo el procedimiento completo, pero no creo que te fuera a aclarar mucho más...