paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* merged r49283

Browse Source 
git-svn-id: branches/fixes_3_2@49297 -
This commit is contained in:
nickysn 2021-04-29 23:20:30 +00:00
parent 012973a4a2
commit a0963ac7d5
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 logging}
{$define FPC_GRAPH_SUPPORTS_TRUECOLOR} {$define FPC_GRAPH_SUPPORTS_TRUECOLOR}
{$modeswitch DEFAULTPARAMETERS+}
{******************************************************************************} {******************************************************************************}
interface interface
@ -139,7 +140,7 @@ var
WindowTitle: AnsiString; WindowTitle: AnsiString;
PTCWrapperObject: TPTCWrapperThread; 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 implementation