diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-29 23:20:30 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-29 23:20:30 +0000 |
commit | da0b02aa0c451ec65adf8e8391b5ae9b1ba95b89 (patch) | |
tree | ddd67db5824bd2a5179872bbced8d9ba34b76bd5 | |
parent | 90331579af58ef48a1bb5f8e65dbdb4614c13f18 (diff) | |
download | fpc-fixes_3_2.tar.gz |
* merged r49283fixes_3_2
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@49297 3ad0048d-3df7-0310-abae-a5850022a9f2
-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 |