Delphi与DirectX之DelphiX（14）

Delphi与DirectX之DelphiX（14）2009-11-01 cnblogs 万一

TPictureCollectionItem.DrawRotate（）; 的同类函数还有:
TPictureCollectionItem.DrawRotateAdd（）;
TPictureCollectionItem.DrawRotateSub（）;
TPictureCollectionItem.DrawRotateAlpha（）;
TPictureCollectionItem.DrawRotateAddCol（）;
TPictureCollectionItem.DrawRotateSubCol（）;
TPictureCollectionItem.DrawRotateAlphaCol（）;

本例分别进行了演示, 运行效果图:

代码文件:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, DXDraws, StdCtrls;
type
 TForm1 = class（TForm）
  DXDraw1: TDXDraw;
  DXImageList1: TDXImageList;
  Button1: TButton;
  Button2: TButton;
  Button3: TButton;
  Button4: TButton;
  Button5: TButton;
  Button6: TButton;
  Button7: TButton;
  procedure FormCreate（Sender: TObject）;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
  procedure Button3Click（Sender: TObject）;
  procedure Button4Click（Sender: TObject）;
  procedure Button5Click（Sender: TObject）;
  procedure Button6Click（Sender: TObject）;
  procedure Button7Click（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
const
 Angle = 32; {在这里相当于 45° 角}
 clr = $777777;
var
 PicItem: TPictureCollectionItem;
procedure TForm1.FormCreate（Sender: TObject）;
const
 ImgPath1 = "C:TempDelphiX.bmp";
begin
 DXImageList1.DXDraw := DXDraw1;
 PicItem := TPictureCollectionItem（DXImageList1.Items.Add）;
 PicItem.Picture.LoadFromFile（ImgPath1）;
 Button1.Caption := "DrawRotateAdd";
 Button2.Caption := "DrawRotateSub";
 Button3.Caption := "DrawRotateAlpha";
 Button4.Caption := "DrawRotateAddCol";
 Button5.Caption := "DrawRotateSubCol";
 Button6.Caption := "DrawRotateAlphaCol";
 Button7.Caption := "原始效果";
end;
procedure TForm1.Button1Click（Sender: TObject）;
begin
 DXDraw1.Surface.Fill（clr）;
 PicItem.DrawRotateAdd（DXDraw1.Surface,
           DXDraw1.Width div 2, DXDraw1.Height div 2,
           PicItem.Width, PicItem.Height,
           0,
           0.5, 0.5,
           Angle）;
 DXDraw1.Flip;
end;
procedure TForm1.Button2Click（Sender: TObject）;
begin
 DXDraw1.Surface.Fill（clr）;
 PicItem.DrawRotateSub（DXDraw1.Surface,
           DXDraw1.Width div 2, DXDraw1.Height div 2,
           PicItem.Width, PicItem.Height,
           0,
           0.5, 0.5,
           Angle）;
 DXDraw1.Flip;
end;
procedure TForm1.Button3Click（Sender: TObject）;
begin
 DXDraw1.Surface.Fill（clr）;
 PicItem.DrawRotateAlpha（DXDraw1.Surface,
           DXDraw1.Width div 2, DXDraw1.Height div 2,
           PicItem.Width, PicItem.Height,
           0,
           0.5, 0.5,
           Angle,
           128）;
 DXDraw1.Flip;
end;
procedure TForm1.Button4Click（Sender: TObject）;
begin
 DXDraw1.Surface.Fill（clr）;
 PicItem.DrawRotateAddCol（DXDraw1.Surface,
           DXDraw1.Width div 2, DXDraw1.Height div 2,
           PicItem.Width, PicItem.Height,
           0,
           0.5, 0.5,
           Angle,
           clYellow）;
 DXDraw1.Flip;
end;
procedure TForm1.Button5Click（Sender: TObject）;
begin
 DXDraw1.Surface.Fill（clr）;
 PicItem.DrawRotateSubCol（DXDraw1.Surface,
           DXDraw1.Width div 2, DXDraw1.Height div 2,
           PicItem.Width, PicItem.Height,
           0,
           0.5, 0.5,
           Angle,
           clYellow）;
 DXDraw1.Flip;
end;
procedure TForm1.Button6Click（Sender: TObject）;
begin
 DXDraw1.Surface.Fill（clr）;
 PicItem.DrawRotateAlphaCol（DXDraw1.Surface,
           DXDraw1.Width div 2, DXDraw1.Height div 2,
           PicItem.Width, PicItem.Height,
           0,
           0.5, 0.5,
           Angle,
           clYellow）;
 DXDraw1.Flip;
end;
procedure TForm1.Button7Click（Sender: TObject）;
begin
 DXDraw1.Surface.Fill（clr）;
 PicItem.DrawRotate（DXDraw1.Surface,
           DXDraw1.Width div 2, DXDraw1.Height div 2,
           PicItem.Width, PicItem.Height,
           0,
           0.5, 0.5,
           Angle）;
 DXDraw1.Flip;
end;
end.