Direct2d (24): Merge geometric objects

The data is merged through id2d1geometry. combinewithgeometry (), but id2d1simplifiedgeometrysink (parent object of id2d1geometrysink) is returned );
You need to add id2d1simplifiedgeometrysink to id2d1pathgeometry for use.

Uses direct2d, d2d1; Procedure plugin (Sender: tobject); var CVS: tdirect2dcanvas; container, container: container; igeometrysink: container; container, ipathgeometry2, container, ipathgeometry4: container; ptcenter: td2dpoint2f; R: single; matrix: td2dmatrix3x2f; begin ptcenter: = d2d1pointf (100,100); R: = 50; matrix: = td2dmatrix3x2f. identity; {two source objects} d2dfactory. createellipsegeometry (d2d1ellipse (ptcenter, R, R), iellipsegeometry1); ptcenter. x: = ptcenter. X + R; d2dfactory. createellipsegeometry (d2d1ellipse (ptcenter, R, R), iellipsegeometry2); {union operation} d2dfactory. createpathgeometry (ipathgeometry1); ipathgeometry1.open (igeometrysink); yield (iellipsegeometry2, d2d1_combine_mode_union, matrix, 0, igeometrysink); igeometrysink. close; {intersect operation} d2dfactory. createpathgeometry (ipathgeometry2); ipathgeometry2.open (igeometrysink); yield (iellipsegeometry2, d2d1_combine_mode_intersect, matrix, 0, igeometrysink. close; {XOR operation} d2dfactory. createpathgeometry (ipathgeometry3); ipathgeometry3.open (igeometrysink); yield (iellipsegeometry2, d2d1_combine_mode_xor, matrix, 0, igeometrysink); igeometryrysink. close; {exclude operation} d2dfactory. createpathgeometry (ipathgeometry4); ipathgeometry4.open (igeometrysink); yield (iellipsegeometry2, d2d1_combine_mode_exclude, matrix, 0, igeometrysink. close; CVS: = tdirect2dcanvas. create (canvas, clientrect); CVs. begindraw; CVs. pen. color: = clwebcornflowerblue; CVs. brush. color: = clwebcornflowerblue; CVs. brush. handle. setopacity (0.75); CVs. fillgeometry (ipathgeometry1); CVs. drawgeometry (iellipsegeometry1); CVs. drawgeometry (iellipsegeometry2); CVs. rendertarget. settransform (td2dmatrix3x2f. translation (180, 0); CVs. fillgeometry (ipathgeometry2); CVs. drawgeometry (iellipsegeometry1); CVs. drawgeometry (iellipsegeometry2); CVs. rendertarget. settransform (td2dmatrix3x2f. translation (180*2, 0); CVs. fillgeometry (ipathgeometry3); CVs. drawgeometry (iellipsegeometry1); CVs. drawgeometry (iellipsegeometry2); CVs. rendertarget. settransform (td2dmatrix3x2f. translation (180*3, 0); CVs. fillgeometry (ipathgeometry4); CVs. drawgeometry (iellipsegeometry1); CVs. drawgeometry (iellipsegeometry2); CVs. enddraw; CVs. free; end;

:

Simplified code:

uses Direct2D, D2D1;procedure TForm1.FormPaint(Sender: TObject);var  cvs: TDirect2DCanvas;  iEllipseGeometry1, iEllipseGeometry2: ID2D1EllipseGeometry;  iGeometrySink: ID2D1GeometrySink;  iPathGeometrys: array[0..3] of ID2D1PathGeometry;  ptCenter: TD2DPoint2f;  r: Single;  i: Integer;begin  ptCenter := D2D1PointF(100, 100);  r := 50;  D2DFactory.CreateEllipseGeometry(D2D1Ellipse(ptCenter, r, r), iEllipseGeometry1);  ptCenter.x := ptCenter.x + r;  D2DFactory.CreateEllipseGeometry(D2D1Ellipse(ptCenter, r, r), iEllipseGeometry2);  for i := 0 to 3 do  begin    D2DFactory.CreatePathGeometry(iPathGeometrys[i]);    iPathGeometrys[i].Open(iGeometrySink);      iEllipseGeometry1.CombineWithGeometry(iEllipseGeometry2, i, TD2DMatrix3x2F.Identity, 0, iGeometrySink);    iGeometrySink.Close;  end;  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);  cvs.BeginDraw;  cvs.Pen.Color := clWebCornFlowerBlue;  cvs.Brush.Color := clWebCornFlowerBlue;  cvs.Brush.Handle.SetOpacity(0.75);  for i := 0 to 3 do  begin    cvs.RenderTarget.SetTransform(TD2DMatrix3x2F.Translation(180*i, 0));    cvs.FillGeometry(iPathGeometrys[i]);    cvs.DrawGeometry(iEllipseGeometry1);    cvs.DrawGeometry(iEllipseGeometry2);  end;  cvs.EndDraw;  cvs.Free;end;