Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Redimensionar Imagen a tamaño del formulario! (https://www.clubdelphi.com/foros/showthread.php?t=15883)

kye_z 08-11-2004 18:36:09

Redimensionar Imagen a tamaño del formulario!
 
Buenas...

os planteo mi duda y de paso os agradezco vuestra ayuda de antemano!!

Duda:
En los formularios de un programilla en el que estoy trabajando tengo la intencion de poner como fondo de formulario una imagen utilizando un Image, de momento esto me va perfectamente.
Código:

 
procedure TfrmInicial.FormCreate(Sender: TObject);
var
  img: Timage;
begin
  img:=TImage.Create(Self);
  img.Picture.LoadFromFile('Fons.jpg');
  img.Parent:= Self;
  img.Align:=alClient;
end;

El problema me surge en quanto intento maximizar la aplicacion en una resolucion de pantalla mayor al tamaño de la imagen. Me gustaria saber si alguien me puede ayudar a como redimensionar el tamaño de la imagen para que no me pase esto.

Possible solucion(la duda es que quiero que alguien me indique mas o menos si voy en buen camino o si hay otra possibilidad):

comparar el Width i el Height de la imagen y la del formulario,
en caso de WidthForm>WithImagen asignar el WidthForm a WhidthImagen y de igual manera al Height.

No se si me explico con suficiente claridad pero espero que alguien me pueda hechar una mano a este simple problema...

I Gracias de antemano por vuestra desinteresada ayuda...

quetzal 08-11-2004 21:46:29

y asi

var
img: Timage;
begin
img:=TImage.Create(Self);
img.Picture.LoadFromFile('c:\quetzal.jpg');
img.Stretch:=true;
img.Parent:= Self;
img.Align:=alClient;

que te parece

kye_z 09-11-2004 09:44:16

Muchas Gracias!!


solucionao el problemilla!! :D que seria de mi sin vuestra ayuda?!?! jejeej :D iria mucho mas lento en mi evolucion dentro de este mundo....

enga Muchissimas Gracias!!!


La franja horaria es GMT +2. Ahora son las 17:12:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi