Wenn es sich ausschließlich um PNG Icons handelt, könntest du mit der
PngImageList
aus den
PngComponents eventuell weiterkommen: Dort hat jeder Eintrag einen Namen.
Ich benutze diese Namen auch um den aktuell gültigen gültigen ImageIndex zu ermitteln und habe mir dazu einen kleinen Class-Helper geschrieben:
Delphi-Quellcode:
type
TPngImageListHelper = class helper for TPngImageList
public
function FindImageIndexByName(const AName: string): Integer;
end;
function TPngImageListHelper.FindImageIndexByName(const AName: string): Integer;
var
itm: TCollectionItem;
begin
Result := -1;
for itm in PngImages do begin
if SameText(itm.DisplayName, AName) then begin
Result := itm.Index;
Break;
end;
end;
end;