Răsfoiți Sursa

Navigating to drive root was broken by 1fbcd416

(cherry picked from commit 7c0745eb18837ab282d3fc734c0d8dc222de4ba3)

Source commit: 0755e3a1dd876de4e5592f78805abda713fdba71
Martin Prikryl 5 ani în urmă
părinte
comite
63a5456cea
1 a modificat fișierele cu 4 adăugiri și 4 ștergeri
  1. 4 4
      source/packages/filemng/DirView.pas

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

@@ -950,10 +950,6 @@ begin
   // do checks before passing directory to drive view, because
   // it would truncate non-existing directory to first superior existing
   Value := ReplaceStr(Value, '/', '\');
-  while ExcludeTrailingPathDelimiter(Value) <> Value do
-  begin
-    Value := ExcludeTrailingPathDelimiter(Value);
-  end;
 
   CheckCanOpenDirectory(Value);
 
@@ -965,6 +961,10 @@ begin
     else
   if FPath <> Value then
   try
+    while ExcludeTrailingPathDelimiter(Value) <> Value do
+    begin
+      Value := ExcludeTrailingPathDelimiter(Value);
+    end;
     PathChanging(not FNotRelative);
     FPath := Value;
     Load(True);