paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 08:38:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation on windows

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-01 12:43:54 +02:00
parent ca13ca2089
commit e1befb165e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-image/src/freetype.pp
View File

@ -188,17 +188,18 @@ Const
DefaultFontExtension = '.ttf';
DefaultFontExtention = DefaultFontExtension deprecated 'Use DefaultFontExtension';
Var
// Standard location for fonts in the Operating System
{$ifdef Darwin}
DefaultSearchPath = '/Library/Fonts/';
DefaultSearchPath : string = '/Library/Fonts/';
{$else}
DefaultSearchPath = '';
DefaultSearchPath : string = '';
{$endif}
{$IFDEF MAC}
DefaultResolution = 72;
DefaultResolution : Integer = 72;
{$ELSE}
DefaultResolution = 96;
DefaultResolution : Integer = 96;
{$ENDIF}
implementation