FMX - TLabel automatische Höhenanpassung

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

[Rollo62]

Ich würde sagen TBounds ist eigntlich eine Klasse die ziemlich ähnlich dem TRect ist:

Ein Rect wid so bestimmt

Delphi-Quellcode:

 property Rect: TRectF read GetRect write SetRect;

...

function TBounds.GetRect: TRectF;
begin
  Result := TRectF.Create(FLeft, FTop, FRight, FBottom);
end;

und daraus mit Funktion Width bestimmt:

Delphi-Quellcode:

function Width: Single;

...

function TBounds.Width: Single;
begin
  Result := Rect.Width;
end;

Weil L, T, R, B die Margins zu den Aussenseiten sind macht Width gar keinen Sinn.
Wozu das drin ist würde ich gerne mal wissen.

Wahrscheinlich weil TBounds auch für z.B. Aussenkonturen benutz wird (wie der Name schon sagt),
und man hat es für Margins missbraucht statt eine spezielle TMargin (ohne Width) zu bauen.

Rollo

[Sir Rufo]

TBounds für Padding und Margin ist schon korrekt, das Width und Height ist allerdings kompletter Unfug und (ver)führt (wie man sehr schön sehen kann) nur zu falschen Ergebnissen.

Mit den Methoden MarginRect und PaddingRect kann man ein TRectF vergrößern (Margin) oder verkleinern (Padding).