如何 调用 字体文件变成资源文件 ？

[amnoone]

如何字体文件变成资源文件， 调用它，这样即便系统里面没有该字体，也能在程序中显示。



请各位帮帮忙！

[Ali]

1. Create RC file (e.g MY.RC)
MYFONT RCDATA "FONT_FILE_NAME"
2. Compile RC file using BRCC32 MY.RC
3. Add compiler directive {$R MY.RES}
4. Use below code in OnCreate and OnDestroy events

procedure TForm1.FormCreate(Sender: TObject);
var
  res: TResourceStream;
begin
  res := TResourceStream.Create(hInstance, 'MYFONT', RT_RCDATA);
  try
    res.SavetoFile('myfont.ttf');
  finally
      res.Free;
  end;
    AddFontResource(PChar('myfont.ttf'));
    SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
  //Now you use your own font
  Label1.Font.Size:=24;
  Label1.Font.Name:='myfont';
end;

//We don't want this font to be available after our application is closed

procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
begin
   RemoveFontResource('PATH_TO_MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

Remeber Font's can be directly used from memory. We have to save them to file and call AddFontResource API function. The AddFontResource function adds the font resource from the specified file to the system font table. We need to fake this font adding and we should broadcast WM_FONTCHANGE message.When we don't need this font we must call RemoveFontResource function to remove this resource.

Hope it helps

Thanks,

Ali

[Ali]

Correction:

Remember Font's can be SHOULD be read as Font's CAN'T be

[amnoone]

三块肉！


对你的国际主义精神表示感谢！哈哈！

[amnoone]

Ali 啊

procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
中 var Action: TCloseAction 部分 通不过 。屏蔽后 字体没有变化啊

http://ishare.iask.sina.com.cn/f/14569194.html?w=' target='_blank'>字体资源.rar

我把工程文件传到网上了。 是 D7的

[Ali]

It is working :). Please change the font of label1 at design time to something different like "Arial". Run the application and you will see font is changed to Trana.ttf font (Transponder AOE).

You will have to write the actual Font name instead of providing the ttf file name.

    Label1.Font.Size:=24;
    Label1.Font.Name:='Transponder AOE';

[amnoone]

thank you very much !

I think the name of the font is so long, it is not the font name.

but, it is.

thanks!

[无条件为你]

楼主给这点分真够吝啬的，本来想给你写出完整好用的代码的心情全没了。

[amnoone]

mwy654321

o 这样啊，下次我随便问个问题看到你就算一个字的回复，就给你很高的分，希望你不要食言呦。我不会的。

[amnoone]

Ali 啊

字体可以改变了，可是退出后字体文件没有被删除掉，望您赐教啊！

procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
中 var Action: TCloseAction 部分 通不过 。