浏览代码

* Fix compilation on windows

Michaël Van Canneyt 2 年之前
父节点
当前提交
e1befb165e
共有 1 个文件被更改,包括 5 次插入4 次删除
  1. 5 4
      packages/fcl-image/src/freetype.pp

+ 5 - 4
packages/fcl-image/src/freetype.pp

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