diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 23:59:29 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 23:59:29 +0000 |
commit | 764f47b92381a194d7f7e3ac73d47b41de6927b6 (patch) | |
tree | 8012575abd47c9231f3a794a17fa09cdc29aaa77 | |
parent | ae5b0de491a91321675f73eae5db628d068f4e05 (diff) | |
download | fpc-764f47b92381a194d7f7e3ac73d47b41de6927b6.tar.gz |
+ added default parameters to InstallUserMode
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49283 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 |