From da0b02aa0c451ec65adf8e8391b5ae9b1ba95b89 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 29 Apr 2021 23:20:30 +0000
Subject: * merged r49283

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@49297 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/graph/src/ptcgraph/ptcgraph.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.1