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;