Delphi XE5开发Android程序使用自定义字体文件.

万事大吉,只欠根据字体文件(.ttf文件)切换阅读字体,通常Android系统只带三种以下字体.一般用Java/Eclipse开发的话比较简单,typeface的createFromAsset,createFromFile之类的很容易使用.
但是由于FireMonkey是跨平台的类库,必然不能和平台帮得太紧,所以提供了抽象的封装.
但是也许Delphi XE5是Android平台的第一个版本,有些地方难免有疏漏,FireMonkey的封装没有提供更换字体的功能.

但是我要实现的电子书阅读器换字体几乎是必须要实现的功能,所以只能给FireMonkey动动小手术了.

FireMonkey的字体加载是由抽象类TFontGlyphManager来实现的,在各个具体平台又有不同的实现,TWinFontGlyphManager,TIOSFontGlyphManager,TMacFontGlyphManager,TAndroidFontGlyphManager.

我们这里只针对Android不能加载字体文件换字体进行手术.

把TAndroidFontGlyphManager的实现单元FMX.FontGlyphs.Android拷贝到我们自己要使用更换字的的工程的目录中.修改TAndroidFontGlyphManager.LoadResource方法,当应用某字体的时候先判断我们指定的目录中是否存在同名的.ttf文件.有的话优先使用我们的字体文件.

做了两处改动.一处是uses添加了System.IOUtils单元.一处是TAndroidFontGlyphManager.LoadResource.
在这里做这样的小手术好处是我们的程序不收任何影响.例如:
Text1.Font.Family:=’微软雅黑’;
Text2.Font.Family:=’楷体’;
那么只要在我们指定的目录中存在”楷体.ttf”和”微软雅黑.ttf”那么这两个控件的字体就会分别应用对应的字体文件.

希望XE6版本中Android能投提供一种让我们动态加载字体的办法.不过也许我这个不是一个大众需求,毕竟大多数Android软件不需要太多的字体文件,在系统两三款字体下也活得好好的.

下面贴出来我修改过的文件.

{ ******************************************************* }

{ }

{ Delphi FireMonkey Platform }

{ Copyright(c) 2013 Embarcadero Technologies, Inc. }

{ }

{ ******************************************************* }

 

unit FMX.FontGlyphs.Android;

 

interface

 

uses

  System.Types, System.Classes, System.SysUtils, System.UITypes,

  System.UIConsts, System.Generics.Collections,

  FMX.Types, FMX.Surfaces, FMX.FontGlyphs, FMX.PixelFormats,

  Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText,

  Androidapi.JNIBridge;

 

{$SCOPEDENUMS ON}

 

type

 

  TAndroidFontGlyphManager = class(TFontGlyphManager)

  private

    FPaint: JPaint;

    // Current metrics

    FSpacing: Single;

    FTop: Single;

    FTopInt: Integer;

    FAscent: Single;

    FDescent: Single;

    FBottom: Single;

    FBottomInt: Integer;

    FLeading: Single;

    FLeadingInt: Integer;

  protected

    procedure LoadResource; override;

    procedure FreeResource; override;

    function DoGetGlyph(const Char: UCS4Char;

      const Settings: TFontGlyphSettings): TFontGlyph; override;

  public

    constructor Create;

    destructor Destroy; override;

  end;

 

implementation

 

uses

  System.Math, System.Character,

  Androidapi.Bitmap,

  //引入System.IOUtils是为了能够获取Android的各种系统目录

  System.IOUtils,

  //

  FMX.Graphics;

 

{ TAndroidFontGlyphManager }

 

constructor TAndroidFontGlyphManager.Create;

begin

  inherited Create;

  FPaint := TJPaint.Create;

end;

 

destructor TAndroidFontGlyphManager.Destroy;

begin

  FPaint := nil;

  inherited;

end;

 

procedure TAndroidFontGlyphManager.LoadResource;

const

  BoldAndItalic = [TFontStyle.fsBold, TFontStyle.fsItalic];

var

  TypefaceFlag: Integer;

  Typeface: JTypeface;

  FamilyName: JString;

  Metrics: JPaint_FontMetrics;

  MetricsInt: JPaint_FontMetricsInt;

  FontFile: string;

begin

  FPaint.setAntiAlias(True);

  FPaint.setTextSize(CurrentSettings.Size * CurrentSettings.Scale);

  FPaint.setARGB(255, 255, 255, 255);

  FPaint.setUnderlineText(TFontStyle.fsUnderline in CurrentSettings.Style);

  FPaint.setStrikeThruText(TFontStyle.fsStrikeOut in CurrentSettings.Style);

  if TOSVersion.Check(4, 0) then

    FPaint.setHinting(TJPaint.JavaClass.HINTING_ON);

  // Font

  try

    FamilyName := StringToJString(CurrentSettings.Family);

    if (BoldAndItalic * CurrentSettings.Style) = BoldAndItalic then

      TypefaceFlag := TJTypeface.JavaClass.BOLD_ITALIC

    else if TFontStyle.fsBold in CurrentSettings.Style then

      TypefaceFlag := TJTypeface.JavaClass.BOLD

    else if TFontStyle.fsItalic in CurrentSettings.Style then

      TypefaceFlag := TJTypeface.JavaClass.ITALIC

    else

      TypefaceFlag := TJTypeface.JavaClass.NORMAL;

 

    { Fix Begin 修改开始.如果在下载目录中存在跟字体同名的.ttf文件,那么优先使用ttf文件.

      我是放在SD卡的下载目录中.大家可以按需要任意改这个位置.

      甚至也可以放在Asset目录中,这样可以打包在APK中.

    }

    FontFile := TPath.GetSharedDownloadsPath + PathDelim +

      CurrentSettings.Family + '.ttf';

    if FileExists(FontFile) then

      Typeface := TJTypeface.JavaClass.createFromFile(StringToJString(FontFile))

    else

      Typeface := TJTypeface.JavaClass.Create(FamilyName, TypefaceFlag);

    { Fix End 修改结束 }

    FPaint.setTypeface(Typeface);

    try

      Metrics := FPaint.getFontMetrics;

      MetricsInt := FPaint.getFontMetricsInt;

      //

      FSpacing := FPaint.getFontMetrics(Metrics);

      FTop := Metrics.top;

      FTopInt := MetricsInt.top;

      FAscent := Metrics.ascent;

      FDescent := Metrics.descent;

      FBottom := Metrics.bottom;

      FBottomInt := MetricsInt.bottom;

      FLeading := Metrics.leading;

      FLeadingInt := MetricsInt.leading;

 

      // SysDebug(FloatToStr(CurrentSettings.Size) + ':' + FloatToStr(CurrentSettings.Scale));

      // Log.d(Format('Top=(%d %f) Bottom=(%d %f) Leading=(%d %f) FAscent=(%d %f)', [FTopInt, FTop, FBottomInt, FBottom, FLeadingInt, FLeading, MetricsInt.ascent, FAscent]));

    finally

      Metrics := nil;

      MetricsInt := nil;

    end;

  finally

    FamilyName := nil;

    Typeface := nil;

  end;

end;

 

procedure TAndroidFontGlyphManager.FreeResource;

begin

  if Assigned(FPaint) then

    FPaint.reset;

end;

 

function TAndroidFontGlyphManager.DoGetGlyph(const Char: UCS4Char;

  const Settings: TFontGlyphSettings): TFontGlyph;

var

  Text: JString;

  Bitmap: JBitmap;

  Canvas: JCanvas;

  GlyphRect: TRect;

  C, I, J, Width, Height: Integer;

  Advance: Single;

  Bounds: JRect;

  GlyphStyle: TFontGlyphStyles;

  PixelBuffer: Pointer;

  Data: PIntegerArray;

  Path: JPath;

  PathMeasure: JPathMeasure;

  PathLength: Single;

  Coords: TJavaArray<Single>;

  StartPoint, LastPoint, Point: TPointF;

  NewContour, HasStartPoint: Boolean;

begin

  try

    Text := StringToJString(System.Char.ConvertFromUtf32(Char));

    Advance := FPaint.measureText(Text);

    // SysDebug(Format('%s %f', [System.Char.ConvertFromUtf32(Char), Advance]));

    Height := Abs(FTopInt) + Abs(FBottomInt) + 2;

    Width := Ceil(Abs(Advance)) + 2;

    try

      Bitmap := TJBitmap.JavaClass.createBitmap(Width, Height,

        TJBitmap_Config.JavaClass.ARGB_8888);

      try

        Bounds := TJRect.Create;

        FPaint.getTextBounds(Text, 0, Text.length, Bounds);

        // Log.d(Format('Bounds=(%d %d %d %d) %d %d ', [Bounds.left, Bounds.top, Bounds.right, Bounds.bottom, Bounds.width, Bounds.height]));

        try

          Canvas := TJCanvas.JavaClass.init(Bitmap);

          Canvas.drawText(Text, 0, -Trunc(FAscent), FPaint);

        finally

          Canvas := nil;

        end;

 

        GlyphStyle := [];

        if ((FAscent = 0) and (FDescent = 0)) or not HasGlyph(Char) then

          GlyphStyle := [TFontGlyphStyle.NoGlyph];

        if TFontGlyphSetting.gsPath in Settings then

          GlyphStyle := GlyphStyle + [TFontGlyphStyle.HasPath];

 

        Result := TFontGlyph.Create(TPoint.Create(Bounds.left,

          Abs(FTopInt - Bounds.top)), Advance, Abs(FTopInt) + Abs(FBottomInt) +

          Abs(FLeadingInt), GlyphStyle);

 

        if (TFontGlyphSetting.gsBitmap in Settings) and

          (HasGlyph(Char) or ((FAscent <> 0) or (FDescent <> 0))) and

          (AndroidBitmap_lockPixels(TJNIResolver.GetJNIEnv,

          (Bitmap as ILocalObject).GetObjectID, @PixelBuffer) = 0) then

        begin

          Data := PIntegerArray(PixelBuffer);

          GlyphRect.left := Bounds.left;

          GlyphRect.Right := Bounds.Right;

          GlyphRect.top := Abs(Trunc(FAscent) - Bounds.top);

          GlyphRect.bottom := Abs(Trunc(FAscent) - Bounds.bottom);

          // Log.d(Format('GlyphRect=(%d %d %d %d) %d %d', [GlyphRect.Left, GlyphRect.Top, GlyphRect.Right, GlyphRect.Bottom, GlyphRect.Width, GlyphRect.Height]));

 

          if (GlyphRect.Width > 0) or (GlyphRect.Height > 0) then

          begin

            Result.Bitmap.SetSize(GlyphRect.Width + 1, GlyphRect.Height + 1,

              TPixelFormat.pfA8R8G8B8);

            if TFontGlyphSetting.gsPremultipliedAlpha in Settings then

            begin

              for I := GlyphRect.top to GlyphRect.bottom do

                Move(Data[I * Width + Max(GlyphRect.left, 0)],

                  Result.Bitmap.GetPixelAddr(0, I - GlyphRect.top)^,

                  Result.Bitmap.Pitch);

            end

            else

              for I := GlyphRect.top to GlyphRect.bottom - 1 do

                for J := GlyphRect.left to GlyphRect.Right - 1 do

                begin

                  C := Data[I * Width + J];

                  if C <> 0 then

                  begin

                    C := ((C shr 16) and $FF + (C shr 8) and

                      $FF + (C and $FF)) div 3;

                    Result.Bitmap.Pixels[J - GlyphRect.left, I - GlyphRect.top]

                      := MakeColor($FF, $FF, $FF, C);

                  end

                end;

          end;

          AndroidBitmap_unlockPixels(TJNIResolver.GetJNIEnv,

            (Bitmap as ILocalObject).GetObjectID);

        end;

        // Path

        if TFontGlyphSetting.gsPath in Settings then

          try

            Path := TJPath.Create;

            FPaint.getTextPath(Text, 0, Text.length, Result.Origin.X,

              Result.Origin.Y, Path);

            PathMeasure := TJPathMeasure.Create;

            PathMeasure.setPath(Path, False);

            Coords := TJavaArray<Single>.Create(2);

            if PathMeasure.getLength > 0 then

              repeat

                PathLength := PathMeasure.getLength;

                NewContour := True;

                HasStartPoint := False;

                I := 0;

                while I < PathLength do

                begin

                  if PathMeasure.getPosTan(I, Coords, nil) then

                  begin

                    Point := PointF(Coords[0], Coords[1]);

                    if NewContour then

                    begin

                      Result.Path.MoveTo(Point);

                      NewContour := False;

                      HasStartPoint := False;

                    end

                    else if Point <> LastPoint then

                    begin

                      if HasStartPoint and (LastPoint <> StartPoint) then

                        if not SameValue

                          (((Point.Y - StartPoint.Y) / (Point.X - StartPoint.X)

                          ), ((Point.Y - LastPoint.Y) / (Point.X - LastPoint.X)

                          ), Epsilon) then

                        begin

                          Result.Path.LineTo(Point);

                          HasStartPoint := False;

                        end

                        else

                      else

                        Result.Path.LineTo(Point);

                    end;

                    LastPoint := Point;

                    if not HasStartPoint then

                    begin

                      StartPoint := Point;

                      HasStartPoint := True;

                    end;

                  end;

                  Inc(I);

                end;

                if Result.Path.Count > 0 then

                  Result.Path.ClosePath;

              until not PathMeasure.nextContour;

            Point := Result.Path.GetBounds.TopLeft;

            Result.Path.Translate(-Point.X + Result.Origin.X,

              -Point.Y + Result.Origin.Y);

          finally

            FreeAndNil(Coords);

            Path := nil;

            PathMeasure := nil;

          end;

      finally

        Bounds := nil;

      end;

    finally

      Bitmap.recycle;

      Bitmap := nil;

    end;

  finally

    Text := nil;

  end;

end;

 

end.