GdiPlus[9]: IGPTextureBrush 变换

TranslateTransform: 平移;
ScaleTransform: 放缩;
RotateTransform: 旋转;

通过 MultiplyTransform 方法和 Transform 属性, 能完成包括上述变换在内的更多变换.

ResetTransform 方法是重置变换.

这些方法和属性, 在 IGPGraphics 中都有, 在 IGPGraphics 中详细学习更合适些.

---

测试效果图:

---

代码文件:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    TrackBar4: TTrackBar;
    TrackBar5: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    PaintBox1: TPaintBox;
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GdiPlus, GdiPlusHelpers;

var
  Brush1: IGPTextureBrush;
  Image: IGPImage;
  Rect: TGPRect;
  RX: Single = 1.0;
  RY: Single = 1.0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Min := -200;
  TrackBar1.Max := 200;

  TrackBar2.Min := -200;
  TrackBar2.Max := 200;

  TrackBar3.Min := -99;
  TrackBar3.Max := 99;

  TrackBar4.Min := -99;
  TrackBar4.Max := 99;

  TrackBar5.Min := -180;
  TrackBar5.Max := 180;

  TrackBar2.OnChange := TrackBar1.OnChange;
  TrackBar3.OnChange := TrackBar1.OnChange;
  TrackBar4.OnChange := TrackBar1.OnChange;
  TrackBar5.OnChange := TrackBar1.OnChange;

  Image := TGPImage.Create('C:\GdiPlusImg\HouseAndTree.gif');
  Brush1 := TGPTextureBrush.Create(Image);
  Rect.Initialize(0, 0, PaintBox1.Width, PaintBox1.Height);
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  Brush1.ResetTransform;
  Brush1.TranslateTransform(TrackBar1.Tag, TrackBar2.Tag);
  Brush1.ScaleTransform(RX + TrackBar3.Tag / 100, RY + TrackBar4.Tag / 100);
  Brush1.RotateTransform(TrackBar5.Tag);
  PaintBox1.ToGPGraphics.FillRectangle(Brush1, Rect);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  with TTrackBar(Sender) do Tag := Position;
  PaintBox1.Repaint;
end;

end.

窗体文件:

---

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 234
  ClientWidth = 423
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 259
    Top = 13
    Width = 28
    Height = 13
    Caption = #24179#31227':'
  end
  object Label2: TLabel
    Left = 259
    Top = 90
    Width = 28
    Height = 13
    Caption = #25918#32553':'
  end
  object Label3: TLabel
    Left = 259
    Top = 169
    Width = 28
    Height = 13
    Caption = #26059#36716':'
  end
  object PaintBox1: TPaintBox
    Left = 8
    Top = 8
    Width = 225
    Height = 217
    OnPaint = PaintBox1Paint
  end
  object TrackBar1: TTrackBar
    Left = 251
    Top = 32
    Width = 169
    Height = 23
    ShowSelRange = False
    TabOrder = 0
    OnChange = TrackBar1Change
  end
  object TrackBar2: TTrackBar
    Left = 251
    Top = 56
    Width = 169
    Height = 23
    ShowSelRange = False
    TabOrder = 1
  end
  object TrackBar3: TTrackBar
    Left = 251
    Top = 109
    Width = 169
    Height = 23
    ShowSelRange = False
    TabOrder = 2
  end
  object TrackBar4: TTrackBar
    Left = 251
    Top = 133
    Width = 169
    Height = 23
    ShowSelRange = False
    TabOrder = 3
  end
  object TrackBar5: TTrackBar
    Left = 251
    Top = 188
    Width = 169
    Height = 23
    ShowSelRange = False
    TabOrder = 4
  end
end