[Lazarus] System Font Dir for Font Manager Search Path

[Edilson Vieira]

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-ide.org/pipermail/lazarus/attachments/20130625/b59e032d/attachment-0002.html>