GdiPlus[8]: IGPTextureBrush 之 WrapMode 属性

为什么80%的码农都做不了架构师？>>>   

示例图片:

---

示例代码:

---

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;

 
 
 
 
 

 

 

  

转载于:https://my.oschina.net/hermer/blog/320848