Wie stelle ich fest ob ein Control nur halb sichtbar ist?

[Der schöne Günther]

Ich habe ein TFlowPanel mit einer dynamischen Anzahl an Buttons drin. Wenn das FlowPanel zu klein wird reicht der Platz nicht mehr und dann sind z.B. die Buttons in der untersten Zeile nur halb drauf und unten abgeschnitten.

Ich stehe auf dem Schlauch, wie kann ich eigentlich herausbekommen, ob ein Button nur noch halb sichtbar ist?

PS: Die Frage wurde vor ein paar Jahren schon einmal gestellt, allerdings auch ohne Antwort:
https://www.delphipraxis.net/192365-...-autosize.html

[Delphi.Narium]

Du weißt wo der Button beginnt: Button.Top
Du weißt wie hoch der Button ist: Button.Height.
Du weißt wie hoch sein Parent ist: Button.Parent.Height.

Ist nun Button.Top + Button.Height > Button.Parent.Height, so ist der Button nicht vollständig sichtbar.

Bei der Breite geht's analog:

Sind Button.Left + Button.Width > Button.Parent.Width, dann ist der Button nicht vollständig sichtbar.

Zumindest mit diversen TImageEn auf 'ner TScrollBox funktioniert diese Logik.

[Der schöne Günther]

Natürlich! Ich dachte schon an Umrechnen in Bildschirmkoordinaten und dann die Parents abwandern wie da die Schnittmengen sind, aber natürlich, es geht ganz einfach:

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
   if(not Assigned(parent)) then
      Exit(False);

   Result :=
      (Top < 0)
      or
      ((Top + Height) > parent.ClientHeight)
      or
      (Left < 0)
      or
      ((Left + Width) > parent.ClientWidth);
end;

Vielen Dank 👍

[Uwe Raabe]

Geht auch etwas stylischer :

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
   if(not Assigned(parent)) then
      Exit(False);  
   Result := not Parent.ClientRect.Contains(BoundsRect);
end;

[venice2]

Zitat von Uwe Raabe:

Geht auch etwas stylischer :

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
   if(not Assigned(parent)) then
      Exit(False);  
   Result := not Parent.ClientRect.Contains(BoundsRect);
end;

[Delphi.Narium]

Ginge nicht auch

Delphi-Quellcode:

function TControlHelper.isClipped(): Boolean;
begin
  Result := Assigned(Parent) and Parent.ClientRect.Contains(BoundsRect);
end;

Ok, geht nicht, wenn boolsche Ausdrücke vollständig ausgewertet werden

[himitsu]

Zitat von Delphi.Narium:

Ok, geht nicht, wenn boolsche Ausdrücke vollständig ausgewertet werden

Wer sowas macht, muß eben mit den Konsequenzen leben.


Also WENN überhaupt, dann sollte man Dieses eh nur begrenzt einsetzen.

Aber stattdessen kann man oft auch einfach mit der Reihenfolge spielen, um sowas zu beeinflussen.
VARIABLE and/or FUNKTION versus FUNKTION and/or VARIABLE

[Delphi.Narium]

Na klar, dashier wäre dann eher suboptimal Result := Parent.ClientRect.Contains(BoundsRect) and Assigned(Parent);

Oder etwas flacher formuliert:

Wenn rechts was steht, was scheitern kann, dann muss links davon was stehen, dass sicherstellt, dass das zum Scheitern verurteilte nie erreicht wird.

Oder aber auch: Assigned steht zuerst, wenn das ok ist, kann man rechts davon problemlos auf das per Assigned geprüfte zugreifen. Scheitert Assigned, kommt man dort erst garnicht an.