Re-learning gdi+[85]: Tgpimage (5)

This example effect chart:

Code files: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.