标签：剪辑 15 RClip Color cvs RenderTarget Direct2D

Direct2D (15) : 剪辑

绘制在 RenderTarget.PushAxisAlignedClip() 与 RenderTarget.PopAxisAlignedClip() 之间的内容将被指定的矩形剪辑。

---

uses Direct2D, D2D1;

procedure TForm1.FormPaint(Sender: TObject);
var
  cvs: TDirect2DCanvas;
  R,RClip: TRect;
begin
  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);

  R := ClientRect;
  InflateRect(R, -ClientWidth div 6, -ClientHeight div 6);

  {设置剪辑区域}
  RClip := R;
  InflateRect(RClip, -ClientWidth div 6, 0);

  cvs.BeginDraw;
  cvs.Pen.Color := clGreen;
  cvs.Brush.Color := clGreen;

  cvs.Ellipse(R); //第一个椭圆

  cvs.RenderTarget.PushAxisAlignedClip(RClip, D2D1_ANTIALIAS_MODE_PER_PRIMITIVE); //参数2是抗锯齿的模式
  cvs.Brush.Color := clWhite;
  cvs.Ellipse(R); //第二个椭圆
  cvs.RenderTarget.PopAxisAlignedClip;

  cvs.EndDraw;
  cvs.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;

---

效果图：

---

posted on 2011-04-03 10:19  万一  阅读(1828)  评论(0)  编辑  收藏

标签：剪辑,15,RClip,Color,cvs,RenderTarget,Direct2D
来源： https://blog.51cto.com/u_14617575/2745410

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。