paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added default parameters to InstallUserMode

Browse Source 
git-svn-id: trunk@49283 -
This commit is contained in:
nickysn 2021-04-27 23:59:29 +00:00
parent 0ffd4f8780
commit 658affeae2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/graph/src/ptcgraph/ptcgraph.pp
View File

@ -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