Direct2D (13) : 画刷之 ID2D1BitmapBrush
生活随笔
收集整理的這篇文章主要介紹了
Direct2D (13) : 画刷之 ID2D1BitmapBrush
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
{相關結構} TD2D1BitmapBrushProperties = recordextendModeX: 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); varcvs: TDirect2DCanvas;iBrush: ID2D1BitmapBrush;rBBP: TD2D1BitmapBrushProperties;R: TRect;bit: TBitmap; beginbit := 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); beginRepaint; end;
效果圖:
轉載于:https://www.cnblogs.com/del/archive/2011/04/02/2003785.html
總結
以上是生活随笔為你收集整理的Direct2D (13) : 画刷之 ID2D1BitmapBrush的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: iPhone应用程序编程指南(文本和We
- 下一篇: 【android】读取/res/raw目