Usar Canvas en Frames

[vani]

Hola.

Mi objetivo es tener un frame que se muestre transparente sobre la form que lo contiene. Esta form tiene de fondo un Timage, o bien dibujada directamente en el canvas una imagen.

Las propiedades del frame ParentColor, ParentBackGround y demás no funcionan si el form tiene una imagen de fondo.

He conseguido crear un canvas para el frame:

Código Delphi [-]
   public
    fcanvas:Tcanvas;
     procedure crea_canvas;
   end;
 
 procedure tframe2.crea_canvas;
 begin
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
 end;

Y así puedo dibujar sobre el frame,

Código Delphi [-]
 frame.fcanvas.copyrect(rectsource,imagen.canvas,rectdest);

Así consigo que el frame dibuje de fondo lo mismo que tiene el form.
El problema es que cuando algún componente dentro del frame se redibuja entonces no se redibuja el fondo en el frame que se refresca. P.e. con un speedbutton con flat a true, se muestra bien al principio, pero si pasas el puntero sobre él, entonces se redibuja el speedbutton, y se queda con el fondo plano sin imagen.

Hay alguna manera de poder redibujar el frame a la manera del evento OnPaint del TForm?? Para poder refrescar el fondo del frame.

Un saludo.

[Gydba]

Buenas y santas,

Yo diría que a veces no hace falta reinventar la rueda. Sin embargo te dejó un link con dos componentes que pueden interesarte:
http://www.torry.net/quicksearchd.ph...anel&Title=Yes

Espero que te sirva, saludos.

[vani]

Hola.

Los componentes que me recomiendas son simples paneles transparentes, mientras que yo preferiria el uso de TFrames (reutilización de código y demas...), sobre los cuales ya habia buscado y no encontrado nada.

Gracias por el interes.
Un saludo.

[Gydba]

Hola,

En primer lugar nunca dije que eran 100x100 lo que buscabas, pero pensé que te ayudarían al darte una idea de como lo hacen en esos componentes.

Lamentablemente no tengo el suficiente tiempo como para hacerte un ejemplo claro, pero con un poco de maña lo podrías resolver por tu cuenta.

Un saludo para vos también.

[vani]

Hola.

Me sumergiré en la implementación del TFrame para buscar una manera....

Gracias por la sugerencia.

Un saludo.

[roman]

Prueba redefinir el método CreateWnd del frame así:

Código Delphi [-]
// Obtiene una región rectangular para el control
function GetControlRgn(Control: TControl): HRgn;
var
  Rect: TRect;

begin
  Rect := Control.BoundsRect;
  Result := CreateRectRgn(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
end;

procedure TFrame2.CreateWnd;
var
  ControlsRgn: HRgn;
  I: Integer;

begin
  inherited;

  (* 
    Iterar sobre los controles para crear una región que sea
    la unión de sus rectángulos
  *)
  if ControlCount > 0 then
  begin
    ControlsRgn := GetControlRgn(Controls[0]);
    for I := 1 to ControlCount - 1 do
      CombineRgn(ControlsRgn, ControlsRgn, GetControlRgn(Controls[i]), RGN_OR);

    // Asignar la región al frame para que sólo se ocupe de
    // dibujar sobre los controles
    SetWindowRgn(Handle, ControlsRgn, true);
  end;
end;

El único "problema" que hevisto es con controles tipo etiqueta (TLabel, TRadioButton, TCheckBox, etc.) ya que no son controles que "ocupen" todo el rectángulo que los determina.

// Saludos