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;