Direct2D (22) : 複合幾何對象之 ID2D1TransformedGeometry

複合幾何對象包括 ID2D1GeometryGroup 和 ID2D1TransformedGeometry，它們都繼承自 ID2D1Geometry。

ID2D1TransformedGeometry 只是包含了 2D 變換的 ID2D1Geometry。

uses Direct2D, D2D1;procedure TForm1.FormPaint(Sender: TObject);var  cvs: TDirect2DCanvas;  iTransformedGeometry: ID2D1TransformedGeometry;  iRectangleGeometry: ID2D1RectangleGeometry;  iGeometry: ID2D1Geometry;  R: TRect;begin  {建立一個矩形的 ID2D1Geometry}  R := Bounds((ClientWidth-100) div 2, (ClientHeight-100) div 2, 100, 100);  D2DFactory.CreateRectangleGeometry(R, iRectangleGeometry);  {建立 ID2D1TransformedGeometry}  D2DFactory.CreateTransformedGeometry(    iRectangleGeometry,    TD2DMatrix3x2F.Rotation(45, ClientWidth/2, ClientHeight/2),    iTransformedGeometry  );  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);  cvs.BeginDraw;  {繪製原始矩形}  cvs.Pen.Color := clGreen;  cvs.Pen.Width := 11;  cvs.DrawGeometry(iRectangleGeometry);  {繪製 ID2D1TransformedGeometry}  cvs.Brush.Color := clGreen;  cvs.FillGeometry(iTransformedGeometry);  {繪製從 ID2D1TransformedGeometry 再次擷取的 iGeometry}  cvs.Pen.Color := clWhite;  cvs.Pen.Width := 1;  iTransformedGeometry.GetSourceGeometry(iGeometry);  cvs.DrawGeometry(iGeometry);  cvs.EndDraw;  cvs.Free;end;procedure TForm1.FormResize(Sender: TObject);begin  Repaint;end;

：