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:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
fBMP: Graphics.TBitmap;
fClienteWndAntes: Windows.TFarProc;
procedure ClienteWindowProc(var Message: Messages.TMessage);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//-----------------------------------------------------------------------------
// EVENTO : FormCreate
//
// ACCIÓN : Crea e inicializa los objetos que utiliza el formulario.
//-----------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
fBMP := Graphics.TBitmap.Create;
fBMP.LoadFromFile('c:\dibujo1.bmp');
end;
//-----------------------------------------------------------------------------
// EVENTO : FormShow
//
// ACCIÓN : Sobrescritura del procedimiento de ventana original.
//-----------------------------------------------------------------------------
procedure TForm1.FormShow(Sender: TObject);
var
Proc_Cliente: Windows.TFarProc;
lValor: LongInt;
begin
// Obtener la dirección de nuestro procedimiento de ventana
Proc_Cliente := Forms.MakeObjectInstance(ClienteWindowProc);
if (nil <> Proc_Cliente) then
begin
// Obtener el procedimiento de ventana original del área cliente
lValor := Windows.GetWindowLong(Self.ClientHandle, GWL_WNDPROC);
if (0 < lValor) then
begin
// Sobrescribir el procedimiento de ventana original con el nuestro
if (0 < Windows.SetWindowLong(Self.ClientHandle,
GWL_WNDPROC,
LongInt(Proc_Cliente)))
then
begin
// Guardar el procedimiento de ventana
fClienteWndAntes := Windows.TFarProc(lValor);
end;
end;
end;
end;
//-----------------------------------------------------------------------------
// EVENTO : FormDestroy
//
// ACCIÓN : Destrucción de los objetos.
//-----------------------------------------------------------------------------
procedure TForm1.FormDestroy(Sender: TObject);
begin
if (nil <> fBMP) then
begin
fBMP.Free;
fBMP := nil;
end;
end;
//-----------------------------------------------------------------------------
// 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').
//-----------------------------------------------------------------------------
procedure TForm1.ClienteWindowProc(var Message: Messages.TMessage);
var
Rect: Windows.TRect;
begin
// 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 := Windows.CallWindowProc(fClienteWndAntes,
ClientHandle,
Message.Msg,
Message.wParam,
Message.lParam);
Case (Message.Msg)of
WM_ERASEBKGND:
begin
if (nil <> fBMP) then // Sólo si hay algo que dibujar
begin
// Obtener las dimensiones del área cliente
Windows.GetClientRect(ClientHandle, Rect);
// Redimensionar el área de dibujo.
// Vamos a pintar el gráfico centrado
Rect.Left := System.Round((Rect.Right - Rect.Left - fBMP.Width) /2);
Rect.Top := System.Round((Rect.Bottom - Rect.Top - fBMP.Height)/ 2);
// Dibujar gráfico
Windows.BitBlt
(
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
);
end;
end;
WM_NCCALCSIZE, // Cambio de tamaño
WM_HSCROLL, // Desplazamiento Horizontal
WM_VSCROLL: // Desplazamiento Vertical
begin
// Obligar a repintar el área cliente
Windows.InvalidateRect(ClientHandle,nil, TRUE);
end;
end;
end;
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.
Ważne artykuły