Usar Canvas en Frames

[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