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.
>>>>>>>>>>>>>>>>>>>>>
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
