再学 GDI+[19]: TGPTextureBrush(纹理画刷)
2008-06-11 10:32
323 查看
TGPTextureBrush.Create( image: TGPImage; {用于画刷的图像} );
本例效果图:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDIPAPI; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTextureBrush.Create(img); g.FillEllipse(tb, 0, 0, Self.ClientWidth, Self.ClientHeight); img.Free; tb.Free; g.Free; end; end.
相关文章推荐
- 再学 GDI+[19] TGPTextureBrush(纹理画刷)
- 再学 GDI+[18] FillEllipse、TGPHatchBrush(阴影画刷)
- 再学 GDI+[20] TGPTextureBrush 与 TWrapMode
- 再学 GDI+[21] TGPTextureBrush 与 TGPMatrix
- 再学 GDI+[18]: FillEllipse、TGPHatchBrush(阴影画刷)
- 再学 GDI+[17] FillRectangle、ColorRefToARGB、TGPSolidBrush 和颜色透明度
- GDI+ 学习记录(9): 纹理画刷 - TextureBrush
- 再学 GDI+[22]: TGPLinearGradientBrush - 之一: TLinearGradientMode
- 再学 GDI+[30]: TGPPen - 用画刷定义的画笔
- GDI+学习记录(11)- 纹理画刷 TextureBrush的基本使用
- GDI+ 学习记录(9) 纹理画刷 - TextureBrush
- 再学 GDI+[23]: TGPLinearGradientBrush - 之二
- 再学 GDI+[99]: TGPImage(19) - 把图像转存为其他格式
- GDI+ 学习记录(11): 路径渐变画刷 - PathGradientBrush
- 再学 GDI+[24]: TGPLinearGradientBrush - 之三
- GDI+学习及代码总结之------画刷Brush
- Delphi下的GDI+编程[7] 单色画刷-SolidBrush & 填充矩形-FillRectangle
- GDI+学习及代码总结之------画刷Brush
- 再学 GDI+[17]: FillRectangle、ColorRefToARGB、TGPSolidBrush 和颜色透明度
- (转载)GDI+画刷Brush