FIX: Show overlay icons when load file list in thread

This commit is contained in:
Alexander Koblov 2011-04-07 11:52:25 +00:00
commit 28b84a8884

View file

@ -2923,7 +2923,8 @@ begin
begin
AFile := FFiles[i];
if (AFile.FSFile.Name <> '..') and
(FileSource.CanRetrieveProperties(AFile.FSFile, FilePropertiesNeeded) or (AFile.IconID = -1)) then
(FileSource.CanRetrieveProperties(AFile.FSFile, FilePropertiesNeeded) or
(AFile.IconID = -1) or (AFile.IconOverlayID = -1)) then
begin
AFileList.AddClone(AFile, AFile);
end;
@ -2978,6 +2979,9 @@ begin
if UpdatedFile.IconID <> -1 then
OrigDisplayFile.IconID := UpdatedFile.IconID;
if UpdatedFile.IconOverlayID <> -1 then
OrigDisplayFile.IconOverlayID := UpdatedFile.IconOverlayID;
MakeColumnsStrings(OrigDisplayFile);
RedrawFile(OrigDisplayFile);
end;