//使用画刷建立画笔 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTextureBrush.Create(img); p := TGPPen.Create(tb,36); {参数 1 是画刷; 参数 2 是笔宽} g.DrawEllipse(p, 20, 20, 200, 100); p.Free; img.Free; tb.Free; g.Free; end;
GDI+ 学习记录(6): 使用画刷建立画笔
最新推荐文章于 2021-05-26 17:05:53 发布