随笔 - 2146  文章 - 97 评论 - 11758 trackbacks - 253


IGPPrivateFontCollection.AddFontFile: 从文件加载字体;

IGPPrivateFontCollection.AddMemoryFont: 从内存加载字体

AddFontFile 测试:

uses GdiPlus;

function GetFontsDirectory: string;
var
  Len: Integer;
  buf: array[0..MAX_PATH-1] of Char;
begin
  GetWindowsDirectory(buf, Length(buf));
  Result := buf + '\Fonts\';
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  FontCollection: IGPPrivateFontCollection;
  FontFamily: IGPFontFamily;
  Font: IGPFont;
  Graphics: IGPGraphics;
  Brush: IGPSolidBrush;
  Point: TGPPointF;
begin
  FontCollection := TGPPrivateFontCollection.Create;
  FontCollection.AddFontFile(GetFontsDirectory + 'msyh.ttf');   //微软雅黑
  FontCollection.AddFontFile(GetFontsDirectory + 'simhei.ttf'); //黑体
  FontCollection.AddFontFile(GetFontsDirectory + 'SIMLI.TTF');  //隶书
  FontCollection.AddFontFile(GetFontsDirectory + 'simkai.ttf'); //楷体 GB2312

  Graphics := TGPGraphics.Create(Handle);
  Brush := TGPSolidBrush.Create(TGPColor.Red);
  Point.Initialize(10, 10);
  for FontFamily in FontCollection.Families do
  begin
    Font := TGPFont.Create(FontFamily, 16, FontStyleRegular, UnitPixel);
    Graphics.DrawString(FontFamily.FamilyName, Font, Point, Brush);
    Point.Y := Point.Y + Font.GetHeight(0); //参数是 0 或 nil 时, 字体建立是必须指定 UnitPixel
  end;
end;


AddMemoryFont 测试:

uses GdiPlus;

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TMemoryStream;
  FontCollection: IGPPrivateFontCollection;
  FontFamily: IGPFontFamily;
  Font: IGPFont;
  Graphics: IGPGraphics;
  Brush: IGPSolidBrush;
  Point: TGPPointF;
begin
  Stream := TMemoryStream.Create;
  Stream.LoadFromFile('C:\Windows\Fonts\msyhbd.ttf');

  FontCollection := TGPPrivateFontCollection.Create;
  FontCollection.AddMemoryFont(Stream.Memory, Stream.Size);
  FontFamily := FontCollection.Families[0];

  Font := TGPFont.Create(FontFamily.FamilyName, 24);
  Brush := TGPSolidBrush.Create(TGPColor.Create(0, 0, 0));
  Point.Initialize(10, 10);
  Graphics := TGPGraphics.Create(Handle);

  Graphics.DrawString(FontFamily.FamilyName, Font, Point, Brush);

  Stream.Free;
end;


posted on 2009-12-15 16:34 万一 阅读(...) 评论(...) 编辑 收藏