GdiPlus[10]: IGPTextureBrush 的構建參數

　IGPTextureBrush 對應的 TGPTextureBrush 類的 Create 方法有很多重載.

　　參數中可有 TGPWrapMode 和 IGPImageAttributes, 但測試中發現 IGPImageAttributes 在這裡並不好用.

　　比較有意義是: 可以從建立參數中指定原始圖片的范圍.

　　測試效果圖:

　　查看原圖（大圖）

uses　GdiPlus;　
　
procedure　TForm1.FormPaint(Sender:　TObject);　
var　
　Image:　IGPImage;　
　Brush1,　Brush2:　IGPTextureBrush;　
　Rect,　DstRect:　TGPRectF;　
　Graphics:　IGPGraphics;　
begin　
　Image　:=　TGPImage.Create('C:\GdiPlusImg\Apple.gif'　);　
　Rect.Initialize(0,　0,　270,　300);　
　DstRect.Initialize(0,　0,　Image.Width　*　0.6,　Image.Height　*　0.6);　
　
　Brush1　:=　TGPTextureBrush.Create(Image);　
　Brush2　:=　TGPTextureBrush.Create(Image,　DstRect);　//只使用原始圖片的一部分　
　
　Graphics　:=　TGPGraphics.Create(Canvas.Handle);　
　Graphics.Clear($FF008000);　
　
　Graphics.FillRectangle(Brush1,　Rect);　
　Rect.X　:=　Rect.X　+　Rect.Width　+　20;　
　Graphics.FillRectangle(Brush2,　Rect);　
end;