Ver Mensaje Individual
  #2  
Antiguo 28-08-2003
Er_Manué Er_Manué is offline
Miembro
 
Registrado: may 2003
Posts: 74
Reputación: 21
Er_Manué Va por buen camino
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;
Espero que te haya servido de utilidad
Salu2
Responder Con Cita