TFramePanel, Panel mit "Loch"

[Satty67]

Hallo,

ich brauchte einen Rahmen, der sich um ein TMemo legt und weitere Controls aufnehmen kann (Skalierungslineale, SizeButtons etc.) Hab' dafür ein Panel missbraucht und per Region hingebogen.
Ist nur eine Art Studie, aber vieleicht kann es jemand als Basis gebrauchen.

Delphi-Quellcode:

unit UFramePanel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFramePanel = class(TPanel)
  private
    FFrameWidth : Integer;
    procedure SetFrameWidth(const Value: Integer);
    procedure UpdateWindowRegion;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property FrameWidth : Integer read FFrameWidth write SetFrameWidth;
  end;

implementation

function GetFramedRegion(Width, Height, FrameWidth : Integer): HWnd;
const
  count = 11;
var
  points : array[0..(count-1)] of TPoint;
begin
  points[0].X := 0;
  points[0].Y := 0;
  points[1].X := FrameWidth;
  points[1].Y := FrameWidth;
  points[2].X := FrameWidth;
  points[2].Y := Height - FrameWidth;
  points[3].X := Width - FrameWidth;
  points[3].Y := Height - FrameWidth;
  points[4].X := Width - FrameWidth;
  points[4].Y := FrameWidth;
  points[5].X := FrameWidth;
  points[5].Y := FrameWidth;
  points[6].X := 0;
  points[6].Y := 0;
  points[7].X := Width;
  points[7].Y := 0;
  points[8].X := Width;
  points[8].Y := Height;
  points[9].X := 0;
  points[9].Y := Height;
  points[10].X := 0;
  points[10].Y := 0;
  Result := CreatePolygonRgn(points, count, ALTERNATE); { ALTERNATE, WINDING }
  //ShowMessage(SysErrorMessage(GetLastError));
end;

constructor TFramePanel.Create(AOwner: TComponent);
begin
  inherited;
  FFrameWidth := 0;
end;

procedure TFramePanel.UpdateWindowRegion;
var
  HRegion : HWnd;
begin
  if (Width > 2) and (Height > 2) then
  begin
    HRegion := GetFramedRegion(width, height, FFrameWidth);
    SetWindowRGN(Handle, HRegion, True);
  end;
end;

procedure TFramePanel.SetFrameWidth(const Value: Integer);
begin
  if Value <= 1 then
    FFrameWidth := 2
  else if (Value >= (width div 2)) then
    FFrameWidth := (width div 2) -1
  else
    FFrameWidth := Value;
  UpdateWindowRegion;
end;

end.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  APanel : TFramePanel;
begin
  APanel := TFramePanel.Create(self);
  APanel.Parent := self;
  APanel.Width := 200;
  APanel.Height := 200;
  APanel.Top := 10;
  APanel.Left := 10;
  APanel.Color := clRed;
  APanel.FrameWidth := 20;
end;

[uligerhardt]

Warum nimmst du nicht einfach ein ganz normales Panel (ohne Löcher) und legst das Memo darauf?

[Satty67]

Ich wusste, das ich schon wieder zuviel geschrieben hatte

Das ist nur eine Studie, den Anwendungszweck bitte ignorieren. Hab' auch Experimente mit TGraphicControl und Einzel-Elementen (Lineale, SizeControl) am laufen. Wie ich es letztlich umsetze ist noch völlig offen. (Parent der Memos sollte auf Ursprung bleiben, wenn die Hilfs-Elemente eingeblendet werden...)

Fand nur das Zwischenergebnis mit dem FramePanel so witzig, das ich es gleich gepostet habe.

[uligerhardt]

Zitat von Satty67:

Ich wusste, das ich schon wieder zuviel geschrieben hatte

Jaja, der Spieltrieb.

[stahli]

Als Spieltrieb würde ich das nicht abtun, mir hat es jetzt gut geholfen.
Danke an Satty67!

In meinem Fall wird das so eine Art Schieberegler, der über diversen anderen Controls sitzt.
Es ist nur ein erster Versuch bisher aber es scheint ein guter Weg.
Die zwei Controls sind nur ein Test, sie sind (natürlich) nur auf dem sichtbaren Bereich zu sehen.

Anbei mal zwei Screenshots mit den kompletten und den ausgestanzten Panels.

PS: Dynamische Arrays funktionieren offenbar nicht.

[Bummi]

Dynamische Array's funktionieren ebenfalls, das erste Element als Parameter verwenden (P[0]).
Wichtig wäre noch die Regions nach Verwendung mit DeleteObject freizugeben, sonnst gehen Windows ganz schnell die Handles aus.