diff options
| -rw-r--r-- | packages/graph/src/ptcgraph/ptcgraph.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/graph/src/ptcgraph/ptcgraph.pp b/packages/graph/src/ptcgraph/ptcgraph.pp index ed925355ae..e08d2f9217 100644 --- a/packages/graph/src/ptcgraph/ptcgraph.pp +++ b/packages/graph/src/ptcgraph/ptcgraph.pp @@ -18,6 +18,7 @@ unit ptcgraph; {//$define logging} {$define FPC_GRAPH_SUPPORTS_TRUECOLOR} +{$modeswitch DEFAULTPARAMETERS+} {******************************************************************************} interface @@ -139,7 +140,7 @@ var WindowTitle: AnsiString; 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 |