GDI+ 学习记录(9) 纹理画刷 - TextureBrush[转]

//纹理画刷

var

  g: TGPGraphics;

  img: TGPImage;

  tb: TGPTextureBrush;

begin

  g := TGPGraphics.Create(Canvas.Handle);

  img := TGPImage.Create('d:\mm.jpg');

  tb := TGPTextureBrush.Create(img);

 

  g.FillEllipse(tb, 20, 20, 200, 100);

 

  img.Free;

  tb.Free;

  g.Free;

end;

//Matrix

var

  g: TGPGraphics;

  img: TGPImage;

  tb: TGPTextureBrush;

  matrix: TGPMatrix;

begin

  g := TGPGraphics.Create(Canvas.Handle);

  img := TGPImage.Create('d:\mm.jpg');

  tb := TGPTextureBrush.Create(img);

  matrix := TGPMatrix.Create(75.0/640.0, 0.0, 0.0, 75.0/480.0, 0.0, 0.0);

  tb.SetTransform(matrix);

 

  g.FillEllipse(tb, 20, 20, 200, 100);

 

  matrix.Free;

  img.Free;

  tb.Free;

  g.Free;

end;

//WrapMode

var

  g : TGPGraphics;

  img: TGPImage;

  tb : TGPTextureBrush;

  p: TGPPen;

begin

  g := TGPGraphics.Create(Canvas.Handle);

 

  img := TGPImage.Create('d:\mm.jpg');

  tb := TGPTextureBrush.Create(img);

  p := TGPPen.Create(MakeColor(255, 0, 0, 0));

 

  tb.SetWrapMode(WrapModeTile);

  g.FillRectangle(tb, MakeRect(0, 0, 200, 200));

  g.DrawRectangle(p, MakeRect(0, 0, 200, 200));

 

  tb.SetWrapMode(WrapModeTileFlipX);

  g.FillRectangle(tb, MakeRect(200, 0, 200, 200));

  g.DrawRectangle(p, MakeRect(200, 0, 200, 200));

 

  tb.SetWrapMode(WrapModeTileFlipY);

  g.FillRectangle(tb, MakeRect(0, 200, 200, 200));

  g.DrawRectangle(p, MakeRect(0, 200, 200, 200));

 

  tb.SetWrapMode(WrapModeTileFlipXY);

  g.FillRectangle(tb, MakeRect(200, 200, 200, 200));

  g.DrawRectangle(p, MakeRect(200, 200, 200, 200));

 

  img.Free;

  tb.Free;

  p.Free;

  g.Free;

end;

 

WrapMode 选项:

Delphi	微软	说明
WrapModeClamp	Clamp	纹理或渐变没有平铺。
WrapModeTile	Tile	平铺渐变或纹理。
WrapModeTileFlipX	TileFlipX	水平反转纹理或渐变，然后平铺该纹理或渐变。
WrapModeTileFlipXY	TileFlipXY	水平和垂直反转纹理或渐变，然后平铺该纹理或渐变。
WrapModeTileFlipY	TileFlipY	垂直反转纹理或渐变，然后平铺该纹理或渐变。