Delphi and DirectX (Delphix): DXImageList1.Items.Find ()

This example effect chart:

Code files:

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;
Procedure formcreate (sender:tobject);
Procedure Button1Click (sender:tobject);
Procedure Button2click (sender:tobject);
End;
Var
Form1:tform1
Implementation
{$R *.DFM}
{load picture and name it, which can also be done at design time}
Procedure Tform1.formcreate ( Sender:tobject);
Const
ImgPath1 = ' C:\Temp\DelphiX.bmp ';
ImgPath2 = ' C:\Temp\DelphiX.jpg ';
Begin
Dximagelist1.dxdraw: = DXDRAW1;
DXIMAGELIST1.ITEMS.ADD;
Dximagelist1.items[dximagelist1.items.count-1]. Picture.loadfromfile (IMGPATH1);
Dximagelist1.items[dximagelist1.items.count-1]. Name: = ' img1 ';
DXImageList1.Items.Add;
Dximagelist1.items[dximagelist1.items.count-1]. Picture.loadfromfile (IMGPATH2);
DximageliSt1. ITEMS[DXIMAGELIST1.ITEMS.COUNT-1]. Name: = ' img2 ';
End;
Procedure Tform1.button1click (sender:tobject);
Begin
DXDraw1.Surface.Fill (0);
DXImageList1.Items.Find (' Img1 '). Draw (dxdraw1.surface, 0, 0, 0);
Dxdraw1.flip;
End;
Procedure Tform1.button2click (sender:tobject);
Begin
DXDraw1.Surface.Fill (0);
DXImageList1.Items.Find (' Img2 '). Draw (dxdraw1.surface, 0, 0, 0);
Dxdraw1.flip;
End;
End.