Direct2D (13) : 畫刷之 ID2D1BitmapBrush

{相關結構}TD2D1BitmapBrushProperties = record  extendModeX: D2D1_EXTEND_MODE;                     //三個可選值分別是：0(延伸)、1(換行)、2(鏡像)  extendModeY: D2D1_EXTEND_MODE;                     //同上  interpolationMode: D2D1_BITMAP_INTERPOLATION_MODE; //展開映像時的差值演算法：0(高速低質)、1(高質低速)end;

測試代碼：

uses Direct2D, D2D1;procedure TForm1.FormPaint(Sender: TObject);var  cvs: TDirect2DCanvas;  iBrush: ID2D1BitmapBrush;  rBBP: TD2D1BitmapBrushProperties;  R: TRect;  bit: TBitmap;begin  bit := TBitmap.Create;  bit.LoadFromFile('C:\Temp\Test.bmp');  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);  R := ClientRect;  rBBP.extendModeX := D2D1_EXTEND_MODE_MIRROR;  rBBP.extendModeY := D2D1_EXTEND_MODE_WRAP;  rBBP.interpolationMode := D2D1_BITMAP_INTERPOLATION_MODE_LINEAR;  cvs.RenderTarget.CreateBitmapBrush(cvs.CreateBitmap(bit), @rBBP, nil, iBrush);  cvs.Brush.Handle := iBrush;  //cvs.Brush.Bitmap := bit;  //如果是簡單平鋪，可以用這句代替上面五行  cvs.Pen.Width := 0;  cvs.BeginDraw;  cvs.Rectangle(R);  cvs.EndDraw;  cvs.Free;  bit.Free;end;procedure TForm1.FormResize(Sender: TObject);begin  Repaint;end;

：