瀏覽代碼

* Use Arial as default on Windows

git-svn-id: trunk@38634 -
michael 7 年之前
父節點
當前提交
112086f4fa
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. 5 1
      packages/fcl-report/src/fpreport.pp

+ 5 - 1
packages/fcl-report/src/fpreport.pp

@@ -2238,11 +2238,15 @@ Function ReportExportManager : TFPReportExportManager;
 { this should probably be more configurable or flexible per platform }
 { this should probably be more configurable or flexible per platform }
 
 
 Const
 Const
-{$IF Defined(UNIX) or Defined(WINDOWS)}
+{$IFDEF UNIX}
   cDefaultFont = 'LiberationSans';
   cDefaultFont = 'LiberationSans';
+{$ELSE}
+{$IFDEF WINDOWS}
+  cDefaultFont = 'Arial';
 {$ELSE}
 {$ELSE}
   cDefaultFont = 'Helvetica';
   cDefaultFont = 'Helvetica';
 {$ENDIF}
 {$ENDIF}
+{$ENDIF}
 
 
 Var
 Var
   ReportDefaultFont : string = cDefaultFont;
   ReportDefaultFont : string = cDefaultFont;