Ver Mensaje Individual
  #1  
Antiguo 11-05-2006
salvanano salvanano is offline
Miembro
 
Registrado: abr 2005
Posts: 92
Reputación: 20
salvanano Va por buen camino
Smile Insertar imagenes jpg

Ola despues de mirar mucho por los foros sobre las imagenes *.jpg, de como insertarlas en un Timage, etc.. e conseguido encontrar una forma muy sencilla, sin necesidad de complicarse mucho el codigo.
Este codigo solo es para insertarlo en un TImage por lo que cada uno deberá aplicarlo a lo que quiera.
Código Delphi [-]
procedure TForm1.Abrir1Click(Sender: TObject);
var
jpg: TJpegImage;
begin
IMage1.Picture:= nil;
if OpenPictureDialog1.Execute=True then
begin
jpg:=TJpegImage.Create;
jpg.LoadFromFile(openpicturedialog1.FileName);
IMage1.Picture.Assign(jpg);
end;

Saludos
Responder Con Cita