ソースを参照

ADD: Show [brackets] around directories names in the status bar if nothing is selected. (#677)

Corvus 2 年 前
コミット
9413a2fe14
1 ファイル変更13 行追加8 行削除
  1. 13 8
      src/fileviews/ucolumnsfileview.pas

+ 13 - 8
src/fileviews/ucolumnsfileview.pas

@@ -743,15 +743,20 @@ begin
   begin
   begin
     AFile:= CloneActiveFile;
     AFile:= CloneActiveFile;
     if Assigned(AFile) then
     if Assigned(AFile) then
-    try
-      if AFile.IsNameValid then
-        lblInfo.Caption := AFile.Name
-      else if not AInfo then begin
-        inherited UpdateInfoPanel;
+      try
+        if AFile.IsNameValid then begin
+          if gDirBrackets and (AFile.IsDirectory or AFile.IsLinkToDirectory) then 
+            lblInfo.Caption := gFolderPrefix + AFile.Name + gFolderPostfix
+          else 
+            lblInfo.Caption := AFile.Name;
+        end                       
+        else 
+         if not AInfo then begin
+            inherited UpdateInfoPanel;
+         end;
+      finally
+        AFile.Free;
       end;
       end;
-    finally
-      AFile.Free;
-    end;
   end;
   end;
 end;
 end;