delphi - gdiplus パス GdipWindingModeOutline のトラブル

Question

Delphi 用の Mitov の IGDIPlus ライブラリを使用しています。完全に無害な状況で例外「一般エラー」が発生しています。5 つの重なり合う四角形があり、アウトライン パスを見つけるために使用したいと考えていaPath.outline()ます (この例を Win7 で実行し、アウトラインに関連するすべてのパッチを適用しています)。

uses
System.Types, IGDIPlus, VCL.IGDIPlusExt;


procedure TForm1.FormPaint(Sender: TObject);
var
  AGraphics       : IGPGraphics;
  APath,aPathO    : IGPGraphicsPath;

begin
  AGraphics := TIGPGraphics.Create( Canvas );
  AGraphics.SmoothingMode := SmoothingModeAntiAlias;
  AGraphics.TextRenderingHint := TextRenderingHintAntiAlias;
  aPath := TIGPGraphicsPath.create() ;
  // this path gives generic error 
  aPath.addRectangle(73,201,108,96);
// --------the difference----------
  aPath.addRectangle(73,292,58,96);
// --------the difference----------
  aPath.addRectangle(73,383,108,96);
  aPath.addRectangle(177,201,108,96);
  aPath.addRectangle(177,383,108,96);

  try
    aPathO := apath.clone().Outline();
    AGraphics.DrawPath(TIGPPen.Create( aclRed,1),
      aPathO);
  except
    on E: Exception do
    begin
      AGraphics.DrawStringF( e.message,
                            TIGPFont.Create( 'Microsoft Sans Serif', 16, [ fsBold ] ),
                            TPointF.Create( 23, 23 ),
                            TIGPSolidBrush.Create( aclRed ) )   ;

      AGraphics.DrawPath(TIGPPen.Create( aclRed,1),
        aPath);
    end;
  end;
  aPath.reset();
// this path works fine
  aPath.addRectangle(373,201,108,96);
// --------the difference----------
  aPath.addRectangle(373,292,108,96);    
// --------the difference----------
  aPath.addRectangle(373,383,108,96);
  aPath.addRectangle(477,201,108,96);
  aPath.addRectangle(477,383,108,96);

  try
    aPathO := apath.clone().Outline();
    AGraphics.DrawPath(TIGPPen.Create( aclRed,1),
      aPathO);
    AGraphics.DrawStringF( 'it works',
                            TIGPFont.Create( 'Microsoft Sans Serif', 16, [ fsBold ] ),
                            TPointF.Create( 423, 23 ),
                            TIGPSolidBrush.Create( aclRed ) )   ;

  except
    on E: Exception do
    begin
      AGraphics.DrawStringF( e.message,
                            TIGPFont.Create( 'Microsoft Sans Serif', 16, [ fsBold ] ),
                            TPointF.Create( 223, 23 ),
                            TIGPSolidBrush.Create( aclRed ) )   ;

      AGraphics.DrawPath(TIGPPen.Create( aclRed,1),
        aPath);
    end;
  end;
end;

どんなアイデア、提案も大歓迎です。

C# で同じ例を実行すると、同じエラーが発生します ( .Net で GDI+ を使用して Outline a path を使用)

    GraphicsPath aPath = new GraphicsPath();
                aPath.AddRectangle(new Rectangle(73, 201, 108, 96));
                aPath.AddRectangle(new Rectangle(73, 292, 58, 96));
                aPath.AddRectangle(new Rectangle(73, 383, 108, 96));
                aPath.AddRectangle(new Rectangle(177, 201, 108, 96));
                aPath.AddRectangle(new Rectangle(177, 383, 108, 96));

                HandleRef handle = new HandleRef(aPath, (IntPtr)aPath.GetType().GetField("nativePath", BindingFlags.NonPublic | BindingFlags.Instance).GetValue(aPath));
                try
                {

                    int status = GdipWindingModeOutline(handle, IntPtr.Zero, 0.25F);
                    using (Pen outlinePen = new Pen(Color.FromArgb(255, Color.Red), 2))
                    {
                        g.DrawPath(outlinePen, aPath);
                    }
                }

                catch (Exception exp)
                { ...
                }  

GdipWindingModeOutline関数は status=1 を返します (一般的なエラー)

どうしても輪郭曲線を使う必要があり、直接の方法aPath.clone().outline()はgdi+エラーで無理なので、迂回せざるを得ません。適切な解決策 - おそらく最善ではありませんが、機能します - は次のようになります。

        procedure TForm1.FormPaint(Sender: TObject);
        var
          AGraphics       : IGPGraphics;
          APath,aPathO    : IGPGraphicsPath;
          aRegion         : IGPRegion;
          aScan           :  TArray;
          aMatrix         : IGPmatrix;

        begin
          AGraphics := TIGPGraphics.Create( Canvas );
          AGraphics.SmoothingMode := SmoothingModeAntiAlias;
          AGraphics.TextRenderingHint := TextRenderingHintAntiAlias;
          aPath := TIGPGraphicsPath.create() ;
          aRegion := TIGPRegion.create().MakeEmpty();
          aRegion.Union(  TIGPRect.create(73,201,108,96));
          aRegion.Union(  TIGPRect.create(73,292,58,96));
          aRegion.Union(  TIGPRect.create(73,383,108,96));
          aRegion.Union(  TIGPRect.create(177,201,108,96));
          aRegion.Union(  TIGPRect.create(177,383,108,96));
          aMatrix := TIGPMatrix.Create();
          aScan := lRegion.GetRegionScans(aMatrix);
          for i  := 0 to High(aScan) do
            aPath.addRectangle( GPInflateRect( aScan[i], 1));


          aPathO := aPath.Clone().Outline();
          AGraphics.DrawPath(TIGPPen.Create( aclRed,1), aPathO);

      end;