Delphi and DirectX Delphix (10)

This example effect chart:

Code files:

Unit Unit1
Interface
uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms ,
Dialogs, Dxdraws, Stdctrls, Dxclass; 　　
Type
TForm1 = Class (Tform)
Dxdraw1:tdxdraw;
Dximagelist1:tdximagelist;
Button1:tbutton;
Button2:tbutton;
Procedure formcreate (sender:tobject);
Procedure Button1Click (sender:tobject);
Procedure Button2click (sender:tobject);
End;
Var
Form1:tform1
Implementation
{$R *.DFM}
var
picitem:tpicturecollectionitem;
Procedure Tform1.formcreate (Sender:tobject); 　
Const
ImgPath1 = ' C:\Temp\DelphiX.bmp ';
begin
Dximagelist1.dxdraw: = DXDRAW1;
Picitem: = Tpicturecollectionitem (DXIMAGELIST1.ITEMS.ADD);
PicItem.Picture.LoadFromFile (IMGPATH1);
End;
Procedure Tform1.button1click (sender:tobject); 　
Begin
DXDraw1.Surface.Fill (0);
Picitem.stretchdraw (Dxdraw1.surface, DXDraw1.Surface.ClientRect, 0); 　
Dxdraw1.flip;
End;
Procedure Tform1.button2click (sender:tobject); 　
var
r:trect
Begin
R.left: = (dxdraw1.width-picitem.width) div 2;
R.top: = (dxdraw1.height-picitem.height) div 2;
R.right: = R.left + picitem.width;
R.bottom: = R.top + picitem.height;
DXDraw1.Surface.Fill (0);
Picitem.stretchdraw (dxdraw1.surface, R, 0);
Dxdraw1.flip;
End;
End.