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

  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 -

packages/graph/src/inc/graph.inc

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

packages/graph/src/inc/graphh.inc

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