carga de imagenes en timage [Archivo]

jvalles

15-12-2005, 18:41:23

hola!!

tengo un problemilla que no se como hacer:

- un formulario con 5 TImage
- 4 de ellos los utilizo como vista previa y cargo imagenes JPG asi:

OleGraphic := TOleGraphic.Create;
fs := TFileStream.Create('C:\tempmls\' + nomfoto, fmOpenRead or fmSharedenyNone);
OleGraphic.LoadFromStream(fs);
Image1.Picture.Assign(OleGraphic);
fs.Free;
OleGraphic.Free

lo que no se hacer es:

- cuando hago click en el cualquiera de los 4 Timage que se muestre la imagen de ese TImage en el 5º Timage (vista normal)

Gracias y saludos!!!

dec

15-12-2005, 19:00:40

Hola,

A ver si esto te da alguna idea:

// Se presuponen tres "TImage" en un formulario
// cuyos nombres sean "Image1", "Image2" e "Image3".
//
// Se presuponen también sendos archivos de imagen
// en formato JPG situados en "C:\archivo1.jpg" y
// "C:\archivo2.jpg".
//
// Los componentes "Image1" e "Image2" han de com-
// partir el método para su evento "OnClick".
// Véase más abajo el método en cuestión.

procedure TForm1.FormCreate(Sender: TObject);
begin
// Cargamos una imagen en "Image1": puede
// utilizarse el método "LoadFromFile" di-
// rectamente: si se trata de imágenes en
// formato JPG Delphi añadirá (o habrá que
// añadir, la unidad "Jpeg" en la cláusula
// interfaz de esta unidad.
//
// * Cargamos también una imagen en "Image2"
//
Image1.Picture.LoadFromFile('C:\archivo1.jpg');
Image2.Picture.LoadFromFile('C:\archivo2.jpg');
end;

// Evento Click del componente "Image1": este
// mismo método lo utilizamos en "Image2".
//
// El objetivo es sencillo, aparentemente.
// Cuando se haga clic en algún componente
// "TImage" de los que compartan este méto-
// do, comprobaremos si, efectivamente, el
// objeto emisor es de tipo "TImage".
//
// Si esto es así, asignamos la imagen que
// se encuentre en el objeto emisor al com-
// ponente "Image3", en este caso.
//
procedure TForm1.Image1Click(Sender: TObject);
begin
if (Sender is TImage) then // ¿Es un "TImage"?
// Entonces asignemos su imagen a "Image3"
Image3.Picture.Assign(TImage(Sender).Picture);
end;