FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Imagen de Fondo en form
Tiempo atras use Visual Fox de MS, en esa herramienta indicaba una imagen de fondo para un form y si era pequeña la expandia al tamano del form, hacia una especie de copiar y pegar de la imagen hasta llenar el tamano del form, he intentado hacer esto en el form de delphi, no puede hacerlo porque no hay una propiedad que me permita indicar un bitmap, asi que lo ke he hecho es pegar un Image y alinear con alClient, pero cuando hago que la imagen se expanda ésta se distorsiona, por lo que no aparece de una forma agradable, como puedo lograr el efecto que quiero?
__________________
Saludos Douglas Cruz |
#2
|
|||
|
|||
Es cierto que no tiene ninguna propiedad para poner una imagen de fondo del formulario, pero es facil hacerlo manualmente
Este sería el código que debes añadir en tu aplicación para que nos pinte una imagen en el fondo del formulario en mosaico. Código:
type TfPrincipal = class(TForm) .... private ... fondo : TBitmap; ... end; procedure TfPrincipal.FormCreate(Sender: TObject); begin .... //Creamos las variables fondo := TBitmap.Create; //Cargamos las imagenes de fondo fondo.LoadFromFile('imagenes\Logo.bmp'); .... end; procedure TfPrincipal.FormDestroy(Sender: TObject); begin ... //Liberamos la memoria reservada para la imagen fondo.free; ... end; procedure TfPrincipal.FormPaint(Sender: TObject); var fila, columna : integer; begin //Recorremos toda la extensión del formulario pintando la imagen seleccionada for fila :=0 to Trunc(self.Height/fondo.Height) do for columna :=0 to Trunc(self.Width/fondo.Width) do canvas.Draw(columna * fondo.Width, fila * fondo.Height, fondo); end; Salu2 |
|
|
|