Text Höhe in Pixel umrechnen ( VCL vs. FMX)

[bernhard_LA]

unter VCL hat uns diese Funktion gute Dienste erwiesen .... wie sieht denn die FMX Variante aus ?

Delphi-Quellcode:

function   GetTextHeightInPixels(Text: string; Font: TFont): Integer;
var
  PxHeight: Integer;
  TmpBmp: TBitmap;
begin
  TmpBmp := TBitmap.Create;
  try
     TmpBmp.Canvas.Font := Font;     ///   geht nicht  unter FMX  
     PxHeight := TmpBmp.Canvas.TextHeight(Text);  ///   geht nicht  unter FMX 
  finally
    FreeAndNil(TmpBmp);
  end;

  Result := PxHeight;
end;

[himitsu]

Auch nicht zu vergessen, dass eventuell noch mehrere Ebenen an Scale und Rotation verschachtelt drüber liegen können.

TTextLayout.TextHeight
Also so, wie es aussieht, würde ich das TTextLayout an der passenden Stelle im FMX einfügen und dann ma schauen was es da für Werte liefert.

[Medium]

TCanvas.MeasureText() liefert ein entsprechendes TRect. Ich gehe allerdings stark davon aus, dass Skalierungen des Forms hier nicht berücksichtigt werden. Was ich zunächst auch für richtig halte, da die Werte dann direkt im selben Kontext benutzt werden können. Wenn du tatsächliche Größe auf dem Bildschirm willst, müsstest du die Skalierung selbst noch draufrechnen.