• Domingo 22 de Diciembre de 2024, 09:41

Autor Tema:  Insertar Fondo  (Leído 1135 veces)

Tolrak

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
    • http://personal.telefonica.terra.es/web/consolasparasiempre/bienveni.h
Insertar Fondo
« en: Domingo 2 de Julio de 2006, 23:14 »
0
Hola

Estoy haciendo un pequeño juego en Pascal, muy sencillo; ahora mismo uso Delphi, y me gustaría saber cómo puedo insertar un bmp como fondo en la pantalla del juego, de manera que se vea cuando lo ejecute.

Un saludo

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Insertar Fondo
« Respuesta #1 en: Jueves 6 de Julio de 2006, 02:24 »
0
Debes tener tu fondo cargado en un TBitmap;
Código: Text
  1.  
  2. var
  3.   Fondo: TBitmap;
  4. begin
  5.   Fondo := TBitmap.Create;
  6.   Fondo.LoadFromFile(FileName);
  7. end;
  8.  
  9.  
Luego, simplemente copias el  Fondo al Canvas del Form
Código: Text
  1.  
  2. var
  3.    ARect: TRect;
  4. begin
  5.     ARect := Rect(0,0,Fondo.Width, Fondo.Height);
  6.     Form1.Canvas.CopyRect(ARect,Fondo.Canvas, ARect);
  7. end;
  8.  
  9.