Delphi and DirectX Delphix (11)

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
pic1,pic2:tpicturecollectionitem;
procedu Re tform1.formcreate (Sender:tobject); 　
Const
ImgPath1 = ' C:\Temp\Back.jpg ';
ImgPath2 = ' C:\Temp\DelphiX.bmp '; 　
Begin
Dximagelist1.dxdraw: = DXDRAW1;
Pic1: = Tpicturecollectionitem (DXIMAGELIST1.ITEMS.ADD);
Pic1. Picture.loadfromfile (IMGPATH1);
Pic2: = Tpicturecollectionitem (DXIMAGELIST1.ITEMS.ADD);
Pic2. Picture.loadfromfile (IMGPATH2);
End;
Procedure Tform1.button1click (SeNder:tobject);
var
r:trect
Begin
R: = Bounds (Dxdraw1.width-pic2. Width) Div 2,
(Dxdraw1.height-pic2. Height),
Pic2. Width,
Pic2. Height);
DXDraw1.Surface.Fill (0);
Pic1. Stretchdraw (Dxdraw1.surface, dxdraw1.clientrect, 0);
Pic2. Drawadd (Dxdraw1.surface, R, 0);
Dxdraw1.flip;
End;
Procedure Tform1.button2click (sender:tobject);
var
r:trect
Begin
R: = Bounds (Dxdraw1.width-pic2. Width) Div 2,
(Dxdraw1.height-pic2. Height),
Pic2. Width,
Pic2. Height);
DXDraw1.Surface.Fill (0);
Pic1. Stretchdraw (Dxdraw1.surface, dxdraw1.clientrect, 0);
Pic2. Drawsub (Dxdraw1.surface, R, 0);
Dxdraw1.flip;
End;
End.