Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Pintar Imagen en Form (https://www.clubdelphi.com/foros/showthread.php?t=64620)

LoPiTaL 10-04-2009 13:46:59

Pintar Imagen en Form
 
Hola a todos!
He intentado buscar por el foro esto mismo, pero como son palabras bastante genéricas, el resultado de la búsqueda es bastante malo...
Os comento mi problema:
Tengo un formulario embedido en otro mediante un TPanel: es decir: el TPanel está en el formulario padre, y dentro de éste cargo otro formulario. El problema es que quiero que el formulario hijo sea transparente.
Para lograrlo he intentado dos métodos:
  • Hacer el formulario hijo transparente (con la propiedad TransparentValue y TransparentColor) y acceder al canvas del panel mediante el truco de TPanel=class(ExtCtrls.TPanel) y pintarlo con la imágen que quiera.
  • Olvidarme del color del panel y pintar el canvas del formulario directamente con la imágen que quiera.
Ambos métodos no me han funcionado. Ni errores ni cosas por el estilo, simplemente se ve siempre con el color clásico de los formularios de Windows...

La forma en que he implementado el segundo método (que personalmente es el que más me ha gustado) es la siguiente:

Código:

procedure TForm1.FormCreate(Sender: TObject);
  for I := 0 to Self.Width - 1 do
    for J := 0 to Self.Height - 1 do
      Self.Canvas.Pixels[I,J]:=IMAGENZONAPRIVADA.Canvas.Pixels[I,J];
end;

donde IMAGENZONAPRIVADA es un TBitmap del mismo tamaño del formulario completamente rojo. Lo he hecho pixel a pixel ya que no me dejaba usar Self.Canvas.Assign(IMAGENZONAPRIVADA.Canvas) para que lo pintase todo de golpe...

¿Alguna idea?

Gracias de antemano,
LoPiTaL

LoPiTaL 10-04-2009 14:18:11

Me autorespondo:
Se consigue sobreescribiendo el método paint con este otro:

procedure TForm1.Paint;
begin
Canvas.Draw(0, 0, backGroundBitMap) ;
end;

Un saludo,
LoPiTaL


La franja horaria es GMT +2. Ahora son las 13:43:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi