本例效果圖:
代碼文件: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:\temp\test.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.
