Hi all,
Could someone, please, help me on thi issue:
My question is How do I get the system font directory on Windows and Linux?
I need the program running on both windows (win32) and linux (gtk).
So, how do I set the Font Manager search path property?
Code fragment example:
>>>>>>>>>>>>>>>>>>>>
procedure TestFPImgFont;
var
AFont: TFreeTypeFont;
begin
AFont:=nil;
try
// initialize free type font manager
ftfont.InitEngine;
FontMgr.SearchPath:='c:\windows\fonts'; // here I need it not to be
hard coded
AFont:=TFreeTypeFont.Create;
... etc.>>>>>>>>>>>>>>>>>>>>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20130625/b59e032d/attachment.html>
