Direct2D (33) : 通过 ID2D1BitmapRenderTarget 绘制背景网格

ID2D1BitmapRenderTarget 是内存绘图的解决方案。它从 ID2D1RenderTarget 继承，只多出一个 GetBitmap() 方法。

---

{相关方法}

TDirect2DCanvas.RenderTarget.CreateCompatibleRenderTarget(); //建立 ID2D1BitmapRenderTarget

ID2D1BitmapRenderTarget.GetBitmap();                         //从 ID2D1BitmapRenderTarget 获取 ID2D1Bitmap

---

测试代码：

---

uses Direct2D, D2D1;



{通过 ID2D1BitmapRenderTarget 从内存建立 ID2D1BitmapBrush 的函数}

function GetBitmapBrush(RenderTarget: ID2D1RenderTarget): ID2D1BitmapBrush;

var

  iBitmapRenderTarget: ID2D1BitmapRenderTarget;

  rSizeF: TD2DSizeF;

  iSolidColorBrush: ID2D1SolidColorBrush;

  iBitmap: ID2D1Bitmap;

  rBitmapBrushProperties: TD2D1BitmapBrushProperties;

begin

  {根据指定大小建立 ID2D1BitmapRenderTarget}

  rSizeF := D2D1SizeF(10, 10);

  RenderTarget.CreateCompatibleRenderTarget(@rSizeF, nil, nil, D2D1_COMPATIBLE_RENDER_TARGET_OPTIONS_NONE, iBitmapRenderTarget);



  {在 ID2D1BitmapRenderTarget 中绘图}

  RenderTarget.CreateSolidColorBrush(D2D1ColorF(clGreen), nil, iSolidColorBrush);

  iBitmapRenderTarget.BeginDraw;

  iBitmapRenderTarget.FillRectangle(D2D1RectF(0, 0, 10, 1), iSolidColorBrush);

  iBitmapRenderTarget.FillRectangle(D2D1RectF(0, 1, 1, 10), iSolidColorBrush);

  iBitmapRenderTarget.EndDraw();



  {从 ID2D1BitmapRenderTarget 输出 ID2D1Bitmap}

  iBitmapRenderTarget.GetBitmap(iBitmap);



  {根据刚刚获取的 ID2D1Bitmap 建立 ID2D1BitmapBrush}

  rBitmapBrushProperties.extendModeX := D2D1_EXTEND_MODE_WRAP;

  rBitmapBrushProperties.extendModeY := D2D1_EXTEND_MODE_WRAP;

  rBitmapBrushProperties.interpolationMode := D2D1_BITMAP_INTERPOLATION_MODE_NEAREST_NEIGHBOR;

  RenderTarget.CreateBitmapBrush(iBitmap, @rBitmapBrushProperties, nil, Result);

end;



procedure TForm1.FormPaint(Sender: TObject);

var

  cvs: TDirect2DCanvas;

begin

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

  cvs.BeginDraw;

  cvs.RenderTarget.Clear(D2D1ColorF(clBlack));

  cvs.Brush.Handle := GetBitmapBrush(cvs.RenderTarget);

  cvs.FillRectangle(ClientRect);

  cvs.EndDraw;

  cvs.Free;

end;



procedure TForm1.FormResize(Sender: TObject);

begin

  Repaint;

end;

---

效果图：

---