Learn more about GDI + [20]: tgptexturebrush and twrapmode

Tgptexturebrush. Create (image: tgpimage; {image used for image painting} wrapmode: twrapmode = wrapmodetile {tile style, which is an optional value, as shown in the table below });
 

In this example:

Code file:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    ComboBox1: TComboBox;    procedure FormCreate(Sender: TObject);    procedure FormPaint(Sender: TObject);    procedure ComboBox1Change(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses GDIPOBJ, GDIPAPI, TypInfo;procedure TForm1.FormCreate(Sender: TObject);var  i: Integer;begin  for i := 0 to 4 do    ComboBox1.Items.Add(GetEnumName(TypeInfo(TWrapMode), i));  ComboBox1.ItemIndex := 0;end;procedure TForm1.FormPaint(Sender: TObject);var  g: TGPGraphics;  r: TGPRect;  img: TGPImage;  tb: TGPTextureBrush;begin  g := TGPGraphics.Create(Canvas.Handle);  r := MakeRect(ClientRect);  img := TGPImage.Create('c:\temp\cat.png');  tb := TGPTextureBrush.Create(img);  tb.SetWrapMode(TWrapMode(ComboBox1.ItemIndex));  g.FillRectangle(tb, r);  img.Free;  tb.Free;  g.Free;end;procedure TForm1.ComboBox1Change(Sender: TObject);begin  Repaint;end;end.
 

Form file:

object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 263  ClientWidth = 352  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  Position = poDesktopCenter  OnCreate = FormCreate  OnPaint = FormPaint  PixelsPerInch = 96  TextHeight = 13  object ComboBox1: TComboBox    Left = 242    Top = 2    Width = 107    Height = 21    ItemHeight = 13    TabOrder = 0    Text = 'ComboBox1'    OnChange = ComboBox1Change  endend
 

Wrapmode options:

Delphi	Microsoft	Description
Wrapmodetile	Tile	Tile gradient or texture.
Wrapmodetileflipx	Tileflipx	The texture or gradient is reversed horizontally, and the texture or gradient is tiled.
Wrapmodetileflipy	Tileflipy	Vertical inversion of texture or gradient, and then tile the texture or gradient.
Wrapmodetileflipxy	Tileflipxy	Reverse the texture or gradient horizontally and vertically, and tile the texture or gradient.
Wrapmodeclamp	Clamp	The texture or gradient is not tiled.