浏览代码

* 3.2.x doesn't like [] for as default for dynamic array parameters.

marcoonthegit 1 年之前
父节点
当前提交
df98ae75d6
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-pdf/src/fppdf.pp

+ 1 - 1
packages/fcl-pdf/src/fppdf.pp

@@ -1219,7 +1219,7 @@ type
     Function AddFont(AName : String) : Integer; overload;
     Function AddFont(AFontFile: String; AName : String) : Integer; overload;
     Function AddLineStyleDef(ALineWidth : TPDFFloat; AColor : TARGBColor = clBlack; APenStyle : TPDFPenStyle = ppsSolid) : Integer;
-    function AddLineStyleDef(ALineWidth : TPDFFloat; AColor : TARGBColor = clBlack; ADashArray : TDashArray = []) : Integer;
+    function AddLineStyleDef(ALineWidth : TPDFFloat; AColor : TARGBColor = clBlack; ADashArray : TDashArray = nil) : Integer;
     procedure AddOutputIntent(const Subtype, OutputConditionIdentifier, Info: string; ICCProfile: TStream);
     procedure AddPDFA1sRGBOutputIntent;virtual;
     Property Fonts : TPDFFontDefs Read FFonts Write SetFonts;