Direct2D (6) : 绘制质量(设置抗锯齿模式)



{相关方法}

TDirect2DCanvas.RenderTarget.SetAntialiasMode();

TDirect2DCanvas.RenderTarget.GetAntialiasMode;



{相关常量}

D2D1_ANTIALIAS_MODE_PER_PRIMITIVE = 0;

D2D1_ANTIALIAS_MODE_ALIASED       = 1;



测试代码:


uses Direct2D, D2D1;



procedure TForm1.FormCreate(Sender: TObject);

begin

  CheckBox1.Caption := 'D2D1_ANTIALIAS_MODE_PER_PRIMITIVE';

  CheckBox1.Checked := True;

end;



procedure TForm1.CheckBox1Click(Sender: TObject);

const

  sArr: array[Boolean] of string = ('D2D1_ANTIALIAS_MODE_PER_PRIMITIVE', 'D2D1_ANTIALIAS_MODE_ALIASED');

begin

  CheckBox1.Caption := sArr[not CheckBox1.Checked];

  Refresh;

end;



procedure TForm1.FormPaint(Sender: TObject);

var

  cvs: TDirect2DCanvas;

  rect: TRect;

begin

  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);

  cvs.Pen.Color := clRed;

  cvs.Pen.Width := 25;



  if CheckBox1.Checked then

    cvs.RenderTarget.SetAntialiasMode(D2D1_ANTIALIAS_MODE_PER_PRIMITIVE)

  else

    cvs.RenderTarget.SetAntialiasMode(D2D1_ANTIALIAS_MODE_ALIASED);

  //cvs.RenderTarget.SetAntialiasMode(Integer(not CheckBox1.Checked)); 可用该行代替上面四行



  rect := ClientRect;

  InflateRect(rect, -ClientWidth div 5, -ClientHeight div 5 );

  OffsetRect(rect, 0, 10);



  cvs.BeginDraw;

  cvs.Ellipse(rect);

  cvs.EndDraw;

  cvs.Free;

end;



procedure TForm1.FormResize(Sender: TObject);

begin

  Repaint;

end;



效果图:

Direct2D (6) : 绘制质量(设置抗锯齿模式)

你可能感兴趣的:(DI)