VirtualStringTree - Icon zu Dateinamen anzeigen besser möglich?

[a.def]

Schon seit einer Ewigkeit lasse ich mir in einer VirtualStringTree eine Dateiliste mit den dazugehören Icons folgendermaßen anzeigen

Delphi-Quellcode:

procedure TForm8.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
var
 Info: TSHFileInfo;
 sFN: string;
begin
 // ...
 sFN := 'C:\TestDatei.txt';
 SHGetFileInfo(PChar(sFN), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
 ImageIndex := Info.iIcon;
end;

Das klappt auch wunderbar. Aber ist das irgendwie anders und besser möglich?

[Hobbycoder]

Was möchtest du denn daran noch "besser" machen?

Man könnte sich irgendwo den Index für die Icons zu Dateiendungen merken, die schon mal ermittelt wurden.

Gruß Hobbycoder

[a.def]

Zitat:

Man könnte sich irgendwo den Index für die Icons zu Dateiendungen merken, die schon mal ermittelt wurden.

Genau das war auch meine Idee aber ich weiß nicht genau wo.

All meine Daten für das StringTree liegen in einem eigenem class-Object dafür. Vielleicht da drin?

[Ghostwalker]

Naja, wenn du eh schon eine eigene Klasse pro Endung hast, würde sich das geradezu anbieten, diese dort zu speichern :)

[jaenicke]

Ich habe dafür ein TDictionary in der Datenklasse verwendet.