示例图片:
![26153933_keC5.png](http://static.oschina.net/uploads/img/201409/26153933_keC5.png)
示例代码:
uses GdiPlus;
procedure TForm1.FormPaint(Sender: TObject);
var
Graphics: IGPGraphics;
Image: IGPImage;
Brush: IGPTextureBrush;
Rect: TGPRect;
begin
ChDir('C:\GdiPlusImg\');
Image := TGPImage.Create('HouseAndTree.gif');
Brush := TGPTextureBrush.Create(Image);
Graphics := TGPGraphics.Create(Handle);
Rect.Initialize(Image.Width, Image.Height, Image.Width * 2, Image.Height * 2);
Graphics.Clear($FFFFFFFF);
Graphics.DrawImage(Image, 0, 0, Image.Width, Image.Height);
//Brush.WrapMode := WrapModeTile; //默认
Graphics.FillRectangle(Brush, Rect);
Brush.WrapMode := WrapModeTileFlipX;
Graphics.TranslateTransform(0, Rect.Y + Rect.Height);
Graphics.FillRectangle(Brush, Rect);
Brush.WrapMode := WrapModeTileFlipY;
Graphics.TranslateTransform(Rect.X + Rect.Width, -Graphics.Transform.OffsetY);
Graphics.FillRectangle(Brush, Rect);
Brush.WrapMode := WrapModeTileFlipXY;
Graphics.TranslateTransform(0, Rect.Y + Rect.Height);
Graphics.FillRectangle(Brush, Rect);
end;