TFramePanel, Panel mit "Loch"

[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.

[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;

[Bummi]

Zitat:

Ich dachte, Windows kümmert sich darum... EurekaLog hat auch nix gemeckert

hier wird ja kein Speicher angefordert sondern ein Handle, Du kannst ja mal ein Loop schreiben, irgendwann kommt die Meldung "out of handles", ich hatte mal so einen Schnitzer in einer Komponente, war eklig zu finden....
Die entsprechenden Hinweise findest Du bei den Regionfunktionen z.B.
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Satty67]

Zufällig durch einen Link in einem aktuellen Thread wieder auf diesen Thread gestossen:

Zum Freigeben der HRGN bzw. MSDN zu SetWindowRGN;

After a successful call to SetWindowRgn, the system owns the region specified by the region handle hRgn.
The system does not make a copy of the region. Thus, do not make further function calls with this region handle.
In particular, do not delete this region handle.
The system deletes the region handle when it no longer needed.

Man sollte also Stahli's Anpassung noch etwas verfeinern:

Delphi-Quellcode:

  if SetWindowRGN(Handle, HRegion, True) = 0 then
    DeleteObject(HRegion);

PS. Sieht man solche Handles eigentlich im Taskmanager als GDI Handle? Dann könnte man das prüfen...