Direct2D (8) : 透明色
Direct2D (8) : 透明色
涂孟超 发表于3年前
Direct2D (8) : 透明色
  • 发表于 3年前
  • 阅读 6
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   


uses Direct2D, D2D1;

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

  cvs.Brush.Color := clGreen;
  R := Rect(30, 30, 200, 150);
  cvs.Ellipse(R);

  cvs.Brush.Handle.SetOpacity(0.75);
  OffsetRect(R, 30, 20);
  cvs.Ellipse(R);

  cvs.Brush.Handle.SetOpacity(0.5);
  OffsetRect(R, 30, 20);
  cvs.Ellipse(R);

  cvs.Brush.Handle.SetOpacity(0.25);
  OffsetRect(R, 30, 20);
  cvs.Ellipse(R);

  cvs.EndDraw;
  cvs.Free;
end;


效果图:



共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: