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.
窗體文件:
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClIEntHeight = 226
ClIEntWidth = 356
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 DXDraw1: TDXDraw
Left = 8
Top = 8
Width = 225
Height = 211
AutoInitialize = True
AutoSize = True
Color = clBlack
Display.FixedBitCount = False
Display.FixedRatio = True
Display.FixedSize = True
Options = [doAllowReboot, doWaitVBlank, doCenter, do3D, doDirectX7Mode, doHardware, DOSelectDriver]
SurfaceHeight = 211
SurfaceWidth = 225
TabOrder = 0
Traces = <>
end
object Button1: TButton
Left = 239
Top = 8
Width = 112
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 239
Top = 39
Width = 112
Height = 25
Caption = 'Button2'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 239
Top = 70
Width = 112
Height = 25
Caption = 'Button3'
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 239
Top = 101
Width = 112
Height = 25
Caption = 'Button4'
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 239
Top = 132
Width = 112
Height = 25
Caption = 'Button5'
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 239
Top = 163
Width = 112
Height = 25
Caption = 'Button6'
TabOrder = 6
OnClick = Button6Click
end
object Button7: TButton
Left = 239
Top = 194
Width = 112
Height = 25
Caption = 'Button7'
TabOrder = 7
OnClick = Button7Click
end
object DXImageList1: TDXImageList
Items.ColorTable = {
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000}
Items = <>
Left = 192
Top = 16
end
end
