如何提高Delphi TPngImageList（或TImageList）的加载时间

Question

我在我的应用程序中使用了一组大约 100 个图标，这些图标是使用固定参考编号访问的，并且这些编号也可供用户选择图标。所需的三种分辨率是 16x16、32x32 和 48x48。这些分辨率中的每一个都保存在 TPngImageList 中，并且我使用包含这三个图像列表 (TArtImageLibraryImageLists) 的 TDataModule 创建了一个“图标库”。当需要任何图像列表时，一个简单的“首次使用时创建”方法会实例化此 TDataModule。需要访问图像列表的任何控件的 LargeImages 或类似属性只需通过调用所需的分辨率函数即可设置。

问题是程序启动时的加载时间，在快的机器上大约是1s。显然，最糟糕的罪魁祸首是 48x48 图像列表，但我想知道是否有更好的加载机制（例如使用资源文件？）来加快速度。或者有什么方法可以重新格式化图像列表？我在运行时仍然需要 TImageList，例如用于我的 TreeView 等。

谢谢， 布莱恩.

var
  FInstance : TArtImageLibraryImageLists;

function ArtImageLibraryImageLists : TArtImageLibraryImageLists;
begin
  If not Assigned( FInstance ) then
    FInstance := TArtImageLibraryImageLists.Create( nil );
  Result := FInstance;
end;


function ArtIconLibraryImageList16 : TImageList;
begin
  Result := ArtImageLibraryImageLists.ImageList16;
end;

function ArtIconLibraryImageList32 : TImageList;
begin
  Result := ArtImageLibraryImageLists.ImageList32;
end;

function ArtIconLibraryImageList48 : TImageList;
begin
  Result := ArtImageLibraryImageLists.ImageList48Shadow;
end;

Answer 1

1. 您说“一个简单的‘首次使用时创建’方法实例化了这个 TDataModule”，但随后又说问题是启动时间。数据模块何时实际创建？
2. 您是否对应用程序进行了分析以确保图像列表加载存在问题？
3. 如果问题实际上是图像列表，您是否需要 png？如果它们如此存储，则需要将它们解码并添加到图像列表位图中。 ImageList_LoadImage()可以一步加载一张位图。