TFramePanel, Panel mit "Loch"

[stahli]

Zitat von Bummi:

Dynamische Array's funktionieren ebenfalls, das erste Element als Parameter verwenden (P[0]).

Danke, funktioniert perfekt.

Zitat von Bummi:

Wichtig wäre noch die Regions nach Verwendung mit DeleteObject freizugeben, sonnst gehen Windows ganz schnell die Handles aus.

Ich dachte, Windows kümmert sich darum... EurekaLog hat auch nix gemeckert.
In der Hilfe habe ich auch jetzt noch nichts entsprechendes gefunden.

Anbei nochmal der neue korrigierte Quelltext:

Delphi-Quellcode:

function TvSchedulePoint.GetFramedRegion(StyleBottom: Boolean): HWnd;
var
  Points: array of TPoint;
  W, H: Integer;
  BH, LL, LR, LW: Integer;
  C: Integer;

  procedure Add(X, Y: Integer);
  begin
    if StyleBottom then
      Y := H - Y;
    Inc(C);
    SetLength(Points, C);
    Points[Pred(C)].X := X;
    Points[Pred(C)].Y := Y;
  end;

begin
  C := 0;
  W := Width - 1;
  H := Height - 1;
  BH := 16;
  LW := 2;
  LL := (W div 2) - (LW div 2);
  LR := (W div 2) + (LW div 2);
  Add(0, BH);
  Add(LL, BH);
  Add(LL, H);
  Add(LR, H);
  Add(LR, BH);
  Add(W, BH);
  Add(W, 0);
  Add(0, 0);
  Result := CreatePolygonRgn(Points[0], C, ALTERNATE); // ALTERNATE, WINDING
end;

procedure TvSchedulePoint.UpdateWindowRegion;
var
  HRegion: HWnd;
begin
  HRegion := GetFramedRegion(True);
  SetWindowRGN(Handle, HRegion, True);
  DeleteObject(HRegion);
end;