浏览代码

Tracing (browsing folders)

Source commit: f2b7a8e3e6eb6504b8aeba8c578c7cf52f8e72e0
Martin Prikryl 7 年之前
父节点
当前提交
881bf90975
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      source/packages/filemng/DriveView.pas

+ 5 - 1
source/packages/filemng/DriveView.pas

@@ -1537,9 +1537,13 @@ var
       if (UpperCase(GetDirName(Node)) = Dir) or (TNodeData(Node.Data).ShortName = Dir) then
       begin
         if Length(Path) > 0 then
+        begin
           Result := SearchSubDirs(Node, Path)
-        else
+        end
+          else
+        begin
           Result := Node;
+        end;
         Exit;
       end;
       Node := ParentNode.GetNextChild(Node);