Pārlūkot izejas kodu

Tracing (browsing folders)

Source commit: f2b7a8e3e6eb6504b8aeba8c578c7cf52f8e72e0
Martin Prikryl 7 gadi atpakaļ
vecāks
revīzija
881bf90975
1 mainītis faili ar 5 papildinājumiem un 1 dzēšanām
  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);