فهرست منبع

* merged r49283

git-svn-id: branches/fixes_3_2@49297 -
nickysn 4 سال پیش
والد
کامیت
a0963ac7d5
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  1. 2 1
      packages/graph/src/ptcgraph/ptcgraph.pp

+ 2 - 1
packages/graph/src/ptcgraph/ptcgraph.pp

@@ -18,6 +18,7 @@ unit ptcgraph;
 
 
 {//$define logging}
 {//$define logging}
 {$define FPC_GRAPH_SUPPORTS_TRUECOLOR}
 {$define FPC_GRAPH_SUPPORTS_TRUECOLOR}
+{$modeswitch DEFAULTPARAMETERS+}
 
 
 {******************************************************************************}
 {******************************************************************************}
                                     interface
                                     interface
@@ -139,7 +140,7 @@ var
   WindowTitle: AnsiString;
   WindowTitle: AnsiString;
   PTCWrapperObject: TPTCWrapperThread;
   PTCWrapperObject: TPTCWrapperThread;
 
 
-function InstallUserMode(Width, Height: SmallInt; Colors: LongInt; HardwarePages: SmallInt; XAspect, YAspect: Word): smallint;
+function InstallUserMode(Width, Height: SmallInt; Colors: LongInt; HardwarePages: SmallInt = 1; XAspect: Word = 10000; YAspect: Word = 10000): smallint;
 
 
 {******************************************************************************}
 {******************************************************************************}
                                  implementation
                                  implementation