FMX - TLabel automatische Höhenanpassung

[DeddyH]

Mahlzeit,

gegeben seien ein TLabel mit Align Top und eine beliebige andere Komponente (z.B. ein Panel oder ein TabControl) mit Align Client. Der Text des Labels wird zur Laufzeit gesetzt. Ich möchte erreichen, dass sich dieses je nach Text und Ausrichtung des Geräts dynamisch in der Höhe anpasst. AutoSize steht auf false, WordWrap auf true, momentan wird zu Testzwecken an verschiedenen Stellen (Events) der folgende Code durchlaufen.

Delphi-Quellcode:

procedure TfrmDingens.SetLabelHeight(const ALabel: TLabel);
var
  Layout: TTextLayout;
begin
  Canvas.BeginScene;
  try
    Layout := TTextLayoutManager.DefaultTextLayout.Create(ALabel.Canvas);
    try
      Layout.BeginUpdate;
      try
        Layout.TopLeft := PointF(0, 0);
        Layout.MaxSize := PointF(ALabel.AbsoluteRect.Width, MAXINT);
        Layout.Text := ALabel.Text;
        Layout.WordWrap := ALabel.TextSettings.WordWrap;
        Layout.HorizontalAlign := ALabel.TextSettings.HorzAlign;
        Layout.VerticalAlign := ALabel.TextSettings.VertAlign;
        Layout.Font.Assign(ALabel.TextSettings.Font);
        Layout.RightToLeft := false;
      finally
        Layout.EndUpdate;
        ALabel.Size.Height := ALabel.Margins.Height +
          Layout.TextRect.Height;
      end;
    finally
      Layout.Free;
    end;
  finally
    Canvas.EndScene;
  end;
end;

Unter Windows klappt das recht gut, z.B. im OnPainting des Formulars. Unter Android und iOS hingegen stimmt die Höhe überhaupt nicht. Bin ich völlig auf dem Holzweg, oder habe ich etwas übersehen?

Danke im Voraus.

[Uwe Raabe]

Kann ich jetzt gerade nicht nachvollziehen, aber sollte man die Margins.Height nicht zweimal berücksichtigen? Und bei LayOut.MaxSize nicht auch die Breite?

[Darlo]

Hi,

hatte das selbe Problem und bin dann auf Memos umgestiegen. Über Memo.Lines.Count kann man dann entsprechend der Schriftgröße die benötigte Höhe ermitteln.

[DeddyH]

Zitat von Uwe Raabe:

Kann ich jetzt gerade nicht nachvollziehen, aber sollte man die Margins.Height nicht zweimal berücksichtigen? Und bei LayOut.MaxSize nicht auch die Breite?

Ergibt sich Margins.Height nicht aus Bottom und Top? Wenn nicht, habe ich das wohl fehlinterpretiert. Und die MaxSize soll eigentlich die aktuelle Breite sein, deshalb AbsoluteRect.Width. Ich bin verwirrt.

[Uwe Raabe]

Zitat von DeddyH:

Zitat von Uwe Raabe:

Kann ich jetzt gerade nicht nachvollziehen, aber sollte man die Margins.Height nicht zweimal berücksichtigen? Und bei LayOut.MaxSize nicht auch die Breite?

Ergibt sich Margins.Height nicht aus Bottom und Top? Wenn nicht, habe ich das wohl fehlinterpretiert. Und die MaxSize soll eigentlich die aktuelle Breite sein, deshalb AbsoluteRect.Width. Ich bin verwirrt.

Moment mal - Margins gibt doch den Abstand zwischen zwei Controls im selben Container an, wirkt also nur außerhalb der Größe des Labels, während Padding den Abstand zu den inneren Elementen angibt, sich aber nicht auf den Abstand des Texts zum Labelrand auswirkt. Insofern ist die Angabe der Breite wohl korrekt, aber bei der Höhe dürfte Margins nicht berücksichtigt werden.

Kurios: Bei Margins.Height wird witzigerweise Bottom - Top zurückgegeben, da hier schlicht das darunterliegende TRectF.Height befragt wird (wer nimmt denn auch ein Rechteck als Speicher für die Ränder ). Eigentlich macht diese Angabe aber bei Rändern keinen Sinn.

Kurioser: Diese Eigenschaften werden in FMX tatsächlich verwendet:

Delphi-Quellcode:

          StyleControl.SetBounds(StyleControl.Margins.Left, StyleControl.Margins.Top,
            Width - StyleControl.Margins.Width, Height - StyleControl.Margins.Height);

Das führt jetzt dazu, daß das SetBounds in der Breite Width - Margins.Right + Margins.Left und in der Höhe Height - Margins.Bottom + Margins.Top verwendet. Ich hätte jetzt Width - Margins.Left - Margins.Right und Height - Margins.Bottom - Margins.Top erwartet. Entweder steh' ich jetzt auf dem Schlauch oder das ist ein ganz böser Bug

[DeddyH]

o.O, irgendwo habe ich etwas von "Plattform der Zukunft" gelesen. Vielleicht sollte ich mich mal nach einem DeLorean mit funktionstüchtigem Flux-Kompensator umschauen . Zwischenzeitlich habe ich auch ein wenig herumexperimentiert und z.B. herausgefunden, dass es noch schlimmer wird, wenn man den Text vertikal zentriert definiert hat (inwiefern sich die vertikale Ausrichtung auf die benötigte Höhe auswirken soll, will mir nicht ganz in den Kopf). Naja, erst einmal Danke für Deine Mühe, ich quäle mich morgen weiter mit diesen Banalitäten.

[bra]

Zitat von Uwe Raabe:

Kurioser: Diese Eigenschaften werden in FMX tatsächlich verwendet:

Delphi-Quellcode:

          StyleControl.SetBounds(StyleControl.Margins.Left, StyleControl.Margins.Top,
            Width - StyleControl.Margins.Width, Height - StyleControl.Margins.Height);

Das führt jetzt dazu, daß das SetBounds in der Breite Width - Margins.Right + Margins.Left und in der Höhe Height - Margins.Bottom + Margins.Top verwendet. Ich hätte jetzt Width - Margins.Left - Margins.Right und Height - Margins.Bottom - Margins.Top erwartet. Entweder steh' ich jetzt auf dem Schlauch oder das ist ein ganz böser Bug

Margins sind ja auch der Außenabstand, also gehören theoretisch nicht mit zum Element, während Padding der Innenabstand ist, also der Abstand vom Rand des Elements zum Inhalt.

[DeddyH]

Ja, aber wieso wird dann addiert?

[Uwe Raabe]

Zitat von bra:

Margins sind ja auch der Außenabstand, also gehören theoretisch nicht mit zum Element, während Padding der Innenabstand ist, also der Abstand vom Rand des Elements zum Inhalt.

Die Verwendung von Margins ist hier schon korrekt, da die Position des (inneren) Style-Elements relativ zu seinem Parent-Control herauskommen soll. An den anderen Stellen in FMX wird auch korrekt mit den Margin-Eigenschaften Left/Right und Top/Bottom gearbeitet. Nur(?) hier wird auf Margins.Width und Margins.Height zugegriffen, die allerdings unsinnige Werte liefern.

Man kann das gerne probieren:

Delphi-Quellcode:

program Project75;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Types,
  FMX.Types;

procedure Main;
var
  margins: TBounds;
begin
  margins := TBounds.Create(TRectF.Empty);
  try
    margins.Left := 10;
    margins.Right := 8;
    Writeln(margins.Width:1:1); // liefert -2
  finally
    margins.Free;
  end;
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

[bra]

Ich denke man sollte die Width und Height hier einfach nicht verwenden. Was soll denn die Höhe/Breite eines Außenabstands überhaupt sein? Die Summe der Abstände oder die Größe des umgebenden Rechtecks? Ist beides nicht wirklich einleuchtend.

Dasselbe gilt auch für Padding.

Ich habe gesehen, du hast da schon einen Quality-Eintrag erstellt.