Embedding a font in delphi

delphi fonts embedded-resource
ChuckO picture ChuckO · Jun 6, 2010 · Viewed 8.2k times · Source

I'm working on an app that requires a particular barcode true type font that is unlikely to be on the user's PC.

Can I somehow embed the font in the app, or do I need to use the installer to install the font?

Answer

blerontin picture blerontin · Jun 28, 2013

In my opinion the most easy way is to use AddFontMemResourceEx in case the font is embedded as a resource into the EXE. It allows loading the font directly from memory, no need to save the font to file.

Code Example:

function LoadResourceFont( const ResourceName : string ) : boolean;
var
   ResStream : tResourceStream;
   FontsCount : integer;
   hFont : tHandle;
begin
   ResStream := tResourceStream.Create(hInstance, ResourceName, RT_RCDATA);
   hFont := AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount);
   result := (hFont <> 0);
   ResStream.Free();
end;

Related questions

Colorful text in the same line in TRichEdit

How to write text in the same line but with different color? (I use richedit). procedure TForm1.btnEClick(sender: TObject); begin m0.SelAttributes.Color := clBlue; m0.SelAttributes.Style := [fsBold]; m0.lines.add('This is blue and it is bold'); m0.…

Read More
How to set label text bold in delphi Xe8

How can you set a TLabel to Bold and back to normal runtime in Delphi XE8 firemonkey multi device project? I've tried this but it doesn't work: label.TextSettings.Font.Style := [TFontStyle.fsBold]; Also tried: label.Font.Style := [TFontStyle.fsBold];

Read More
What is the proper font for printing on thermal paper?

I have a program that prints every client's order, like restaurants tickets, but I made it with times new roman. The result wasn't a quality print. I believe that the font is not the best for this tech and I …

Read More