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

+ introduced SetWriteModeEx to the Graph unit. Unlike SetWriteMode, it allows

Browse Source 
setting the current write mode to any mode, such as NormalPut/CopyPut, XorPut,
  OrPut, AndPut or NotPut. For comparison, SetWriteMode only allows NormalPut/
  CopyPut and XorPut. Fixes Mantis #30773.

git-svn-id: trunk@40903 -
This commit is contained in:
nickysn 2019-01-19 15:16:49 +00:00
parent e3df1e1da8
commit 5b4529db6f
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/graph/src/inc/graph.inc
View File

@ -1991,6 +1991,13 @@ end;
end; end;
procedure SetWriteModeEx(WriteMode : smallint);
begin
if (WriteMode >= CopyPut) and (WriteMode <= NotPut) then
CurrentWriteMode := WriteMode;
end;
procedure GetFillSettings(var Fillinfo:Fillsettingstype); procedure GetFillSettings(var Fillinfo:Fillsettingstype);
begin begin
Fillinfo:=Fillsettings; Fillinfo:=Fillsettings;

1
packages/graph/src/inc/graphh.inc
View File

@ -758,6 +758,7 @@ procedure GraphDefaults;
procedure ClearDevice; procedure ClearDevice;
procedure GetViewSettings(var viewport : ViewPortType); procedure GetViewSettings(var viewport : ViewPortType);
procedure SetWriteMode(WriteMode : smallint); procedure SetWriteMode(WriteMode : smallint);
procedure SetWriteModeEx(WriteMode : smallint);
procedure GetFillSettings(var Fillinfo:Fillsettingstype); procedure GetFillSettings(var Fillinfo:Fillsettingstype);
procedure GetFillPattern(var FillPattern:FillPatternType); procedure GetFillPattern(var FillPattern:FillPatternType);
procedure GetLineSettings(var ActiveLineInfo : LineSettingsType); procedure GetLineSettings(var ActiveLineInfo : LineSettingsType);