Direct2D (8) : 透明色

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;

---

效果图：

---