Delphi與DirectX之DelphiX(5)：初識TDXImageList

建立工程後, 在表單上分別添加: DXDraw1、DXImageList1;

然後只需要下面四行代碼即可在 DXDraw1 中顯示 DelphiX.dxg 映像:

procedure TForm1.Button1Click(Sender: TObject);
begin
　DXImageList1.Items.LoadFromFile('C:\Temp\DelphiX.dxg');
　DXImageList1.DXDraw := DXDraw1;
　DXImageList1.Items[0].Draw(DXDraw1.Surface, 10, 10, 0);
　DXDraw1.Flip;
end;

你如果沒有 dxg 格式的映像, 就下載本例用到的映像吧(下載後解壓到C:\Temp\):

http://files.cnblogs.com/del/DelphiX_img.rar

DXImageList1 是一個映像列表, 本來用 LoadFromFile 添加很方便, 但現在這個命令很不好用;

不過沒關係, 還有其他辦法建立映像列表:

1、設計時雙擊 DXImageList1 表徵圖...這種方法也不好, 目前只支援 dxg 和部分 bmp(dib我沒試);

2、從 DXImageList1 雙擊其 items 屬性...這種方法好, 支援很多種格式;

3、TDXImageList 總歸還是 VCL 控制項嗎, 它可以和其他 VCL 互動; 只要其他控制項能載入的圖片它都可以拿來用.

下面的例子是用第二種辦法添加了兩個圖片, 運行效果圖: