FMX / Label & Textheight berechnen?

[Mavarik]

Hallo Zusammen...

Leider hat FMX immer noch den Fehler, dass die Textheight eines Labels der dynamisch erzeugt wird nicht stimmt...

Beispiel:

Delphi-Quellcode:

Function MakeLabel(AOwner : TControl;X,Y,W,A : Integer;Style,Caption:String):TLabel;
begin
  Result             := TLabel.Create(Papa);

  Result.Parent      := AOwner;
  Result.StyleLookup := Style;
  Result.Width       := W;
  Result.Height      := ???
  Result.Position.X  := X;
  Result.Position.Y  := Y;
  Result.TextAlign   := TTextAlign(A);
  Result.Text        := Inhalt;
end;

Ein

Delphi-Quellcode:

Result.Canvas

ist blöderweise NIL, daher fällt ein

Delphi-Quellcode:

Result.Canvas.Textheight('P|y')

leider aus...

Hat jemand je Idee?

Ein

Delphi-Quellcode:

Result.AutoSize := true;

Erzeugt zwar die richtige Höhe, aber verhindert dann zentriert- oder rechtsbündigen Text.

Mavarik

[himitsu]

Es kann sein, daß das Canvas erst beim ersten/nächsten Zeichnen generiert/angepasst wird.

Hat FMX denn nicht immernoch irgendwo eine eigene TextHeight-Funktion?

Bei all den kombinierten Zoomfaktoren wird das eh etwas schwer.
Nach all den vielen Umbauten beim FMX funktionert mein FMX-Hint vermutlich nicht mehr, aber vielleicht findet sich die eine oder Andere der genutzten Funktionen wieder?

[Mavarik]

Dein Trick mit dem Bitmap funktioniert leider auch nicht...

Das gibt bei mir das gleiche falsche Ergebnis in der Berechnung wie es auch falsch auf dem Bildschirm aussieht..

Mavarik