Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Dalai,
10. Dez 2020
Ist das denn richtig? if SHGetFileInfo(PChar(TreeDataKlassen.PfadSpalte1), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_SMALLICON) = 0 then
begin
ImageIndex := TreeDataKlassen.IconIndexSpalte1;
// Eigentlich müsste das Icon angezeigt werden, wird es aber nicht.
end;Wird .IconIndexSpalte1 jemals gesetzt und wenn ja, wo?
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Dalai,
10. Dez 2020
Zerstörst du denn die Icons irgendwann wieder? Die Remarks zu SHGetFileInfo sagen klar, dass man DestroyIcon rufen muss, wenn man die Ressourcen nicht mehr braucht:
Außerdem:
Grüße
Dalai