Ver Mensaje Individual
  #15  
Antiguo 24-11-2020
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.471
Reputación: 21
newtron Va camino a la fama
Buenas compañeros.


De nuevo con este tema. Una vez medio resuelto el tema almacenando las imágenes en "Imagelist" veo que, o no sé o las imágenes no puedo guardarlas con una resolución mayor de X con lo que al mostrarlas grandes se ven muuuuuuuuuuuuuuuuuu mal.


Estoy pensando en guardarlas en una lista tal y como habéis apuntado. Creo una lista de "Timage" tal y como apuntaba mi querido amigo ecfisa pero después no soy capaz de asignarla al componente TImage. Esto es lo que estoy haciendo (ejemplo tontuno):


Código Delphi [-]
..
  Lista:=TStringList.Create(nil);
  Imagen:=TImage.Create(nil);

  Imagen.Picture.LoadFromFile('D:\TEMP\1.JPG');
  Lista.AddObject('IMAGEN1', TObject(Imagen));
..


Entendiendo que esto anterior sea correcto luego no sé cómo asignarla al TImage.


¿Alguien me puede ilustrar?


Gracias y un saludo
__________________
Be water my friend.
Responder Con Cita