Преглед на файлове

Bug fix: Folders in a root drive of a local folder showed incorrect type name sometimes

(cherry picked from commit 0629c18c98d71915a37b91e4bb897639f4831b22)

Source commit: c25c9ce6498a5784458221fe1424d70eed715978
Martin Prikryl преди 5 години
родител
ревизия
54fe47b809
променени са 1 файла, в които са добавени 5 реда и са изтрити 5 реда
  1. 5 5
      source/packages/filemng/DirView.pas

+ 5 - 5
source/packages/filemng/DirView.pas

@@ -1912,11 +1912,11 @@ begin
       begin
         try
           if IsDirectory then
-            SHGetFileInfo(PChar(FPath), FILE_ATTRIBUTE_DIRECTORY, FileInfo, SizeOf(FileInfo),
-            SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES)
-            else
-          SHGetFileInfo(PChar(FPath + '\' + FileName), FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo),
-            SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);
+            SHGetFileInfo(PChar(FPath + '\' + FileName), FILE_ATTRIBUTE_DIRECTORY, FileInfo, SizeOf(FileInfo),
+              SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES)
+          else
+            SHGetFileInfo(PChar(FPath + '\' + FileName), FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo),
+              SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);
           TypeName := FileInfo.szTypeName;
         except
           {Capture exceptions generated by the shell}