再学GDI+[85]: TGPImage（5） - RotateFlip - 旋转与镜像

再学GDI+[85]: TGPImage（5） - RotateFlip - 旋转与镜像2012-05-23 cnblogs 万一本例效果图:

代码文件:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  ListBox1: TListBox;
  procedure FormCreate（Sender: TObject）;
  procedure FormPaint（Sender: TObject）;
  procedure ListBox1Click（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
uses GDIPOBJ, GDIPAPI;
procedure TForm1.FormCreate（Sender: TObject）;
begin
 ListBox1.Align := alRight;
 with ListBox1.Items do
 begin
  Add（"RotateNoneFlipNone"）;
  Add（"Rotate90FlipNone"）;
  Add（"Rotate180FlipNone"）;
  Add（"Rotate270FlipNone"）;
  Add（"RotateNoneFlipX"）;
  Add（"Rotate90FlipX"）;
  Add（"Rotate180FlipX"）;
  Add（"Rotate270FlipX"）;
 end;
end;
procedure TForm1.FormPaint（Sender: TObject）;
var
 g: TGPGraphics;
 img: TGPImage;
begin
 g := TGPGraphics.Create（Self.Canvas.Handle）;
 img := TGPImage.Create（"C:	emp	est.jpg"）;
 img.RotateFlip（TRotateFlipType（ListBox1.ItemIndex））;
 g.DrawImage（img, 4, 4, img.GetWidth, img.GetHeight）;
 img.Free;
 g.Free;
end;
procedure TForm1.ListBox1Click（Sender: TObject）;
begin
 Repaint;
end;
end.