Imagen de fondo en un formulario MDI
Para colocar una imagen en el área cliente de un formulario MDI (esto es, un formulario que tenga la propiedad ‘FormStyle = fsMDIForm’) se utiliza una técnica especial que se suele denominar “subclasificación de ventana”.
Las ventanas MDI tienen incorporada o incrustada una ventana que, en tiempo de ejecución, ocupa todo el área cliente. Esta ventana es la encargada de manejar a los formularios MDI hijos (‘FormStyle = fsMDIChild’). También es esta ventana la causante de que, cualquier cosa que pongamos en tiempo de diseño en el área cliente del formulario MDI (por ejemplo, un ‘TPaintBox’ donde podríamos dibujar una imagen), quede oculta en tiempo de ejecución. La ventana a la que me refiero sólo es accesible en tiempo de ejecución, razón de más para que haya que utilizar con ella la subclasificación.
Para llevar a efecto la subclasificación de ventana necesitamos declarar una variable que almacene el procedimiento original de la ventana que vamos a subclasificar. El mejor método es declarar esa variable como campo privado del formulario MDI. Como en el ejemplo que sigue vamos a dibujar en el área cliente un gráfico, también declaramos como campo privado una variable que nos permita almacenar el mapa de bits a dibujar.
La declaración del formulario quedaría de la siguiente manera:
class TForm1 : public TForm
{
__published: // IDE-managed Components
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
private:
// Campo para almacenar el gráfico a dibujar
Graphics::TBitmap* fBMP;
// Campo para almacenar el procedimiento de ventana original
Windows::TFarProc fClienteWndAntes;
// Nuestro procedimiento de ventana para el área cliente
void __fastcall ClienteWindowProc(Messages::TMessage &Message);
};
Ahora definimos los métodos del formulario:
//-----------------------------------------------------------------------------
// EVENTO : FormCreate
//
// ACCIÓN : Crea e inicializa los objetos que utiliza el formulario.
//-----------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
fBMP = new Graphics::TBitmap();
fBMP->LoadFromFile("c:\\dibujo1.bmp");
}
//-----------------------------------------------------------------------------
// EVENTO : FormShow
//
// ACCIÓN : Sobrescritura del procedimiento de ventana original.
//-----------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
// Obtener la dirección de nuestro procedimiento de ventana
Windows::TFarProc Proc_Cliente = Forms::MakeObjectInstance(ClienteWindowProc);
if (Proc_Cliente)
{ // Obtener el procedimiento de ventana original del área cliente
LONG lValor = ::GetWindowLong(this->ClientHandle, GWL_WNDPROC);
if (0 < lValor)
{ // Sobrescribir el procedimiento de ventana original con el nuestro
if (0 < ::SetWindowLong(this->ClientHandle,
GWL_WNDPROC,
reinterpret_cast< long >(Proc_Cliente)))
{ // Guardar el procedimiento de ventana
fClienteWndAntes = reinterpret_cast< Windows::TFarProc >(lValor);
}
}
}
}
//-----------------------------------------------------------------------------
// EVENTO : FormDestroy
//
// ACCIÓN : Destrucción de los objetos.
//-----------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete fBMP; fBMP = 0;
}
//-----------------------------------------------------------------------------
// RUTINA : ClienteWindowProc(Messages::TMessage &Message)
//
// ACCIÓN : Sub-clasifica el procedimiento de mensajes del área cliente con
// el objeto de pintar en el mismo (mensaje 'WM_ERASEBKGND').
//-----------------------------------------------------------------------------
void __fastcall TForm1::ClienteWindowProc(Messages::TMessage &Message)
{
// Llamar al procedimiento original de la ventana cliente o no se
// se enterará de nada de lo que hagamos con las ventanas hijas.
Message.Result = ::CallWindowProc
(
reinterpret_cast< int (__stdcall *)() >(fClienteWndAntes),
ClientHandle,
Message.Msg,
Message.WParam,
Message.LParam
);
switch (Message.Msg)
{
case WM_ERASEBKGND:
{
if (fBMP)// Sólo si hay algo que dibujar
{
// Obtener las dimensiones del área cliente
RECT Rect;
::GetClientRect(ClientHandle,&Rect);
// Redimensionar el área de dibujo.
// Vamos a pintar el gráfico centrado
Rect.left = (Rect.right - Rect.left - fBMP->Width)/ 2;
Rect.top = (Rect.bottom - Rect.top - fBMP->Height)/ 2;
// Dibujar gráfico
::BitBlt
(
reinterpret_cast< HDC >(Message.WParam),// HDC de destino
Rect.left, // Coordenada X de destino
Rect.top, // Coordenada Y de destino
fBMP->Width, // Anchura de la zona a dibujar
fBMP->Height, // Altura de la zona a dibujar
fBMP->Canvas->Handle,// HDC de origen
0, // Coordenada X de origen
0, // Coordenada Y de origen
SRCCOPY // Modo: copia simple
);
}
break;
}
case WM_NCCALCSIZE: // Cambio de tamaño
case WM_HSCROLL: // Desplazamiento Horizontal
case WM_VSCROLL: // Desplazamiento Vertical
{
::InvalidateRect(ClientHandle, NULL, TRUE);
break;
}
}
}
Hay algún que otro efecto indeseado cuando se pone una imagen en el fondo y el usuario tiene puestos 256 colores o menos, en vez de color verdadero. Si, en ese momento, muestras un formulario que tenga algún gráfico que no coincida con la paleta del gráfico del área cliente, se degrada el fondo quedando echo un churro. Ahora no hay mensaje de Windows que avise de semejante degradación y, aunque lo consiguieses (por ejemplo, con un Timer que pinte cada X segundos el fondo), se degradaría el otro gráfico, el del formulario que digo.
