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 }

{ }

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

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;

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;

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

Result.Path.LineTo(Point);

end;

LastPoint := Point;

if not HasStartPoint then

begin

StartPoint := Point;

HasStartPoint := True;

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.

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