From 4afc35bcd3a7c1c12669b6f91a25b52fdffe361f Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sun, 12 May 2013 15:29:21 +0000
Subject: [PATCH] LazFileUtils: Fix TCustomShellTreeView.GetPathFromNode when
 Node.Text from "RootNode" <> GetRootPath.

git-svn-id: trunk@41157 -
---
 lcl/shellctrls.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index 20c6398bb0..3a6710d895 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -744,7 +744,11 @@ begin
     while (ANode.Parent <> nil) do
     begin
       ANode := ANode.Parent;
-      Result := IncludeTrailingPathDelimiter(ANode.Text) + Result;
+      if (ANode.Parent = nil) and (GetRootPath <> '') then
+        //Node.Text of rootnode may not be fully qualified
+        Result := GetRootPath + Result
+      else
+        Result := IncludeTrailingPathDelimiter(ANode.Text) + Result;
     end;
   end;
   if not FilenameIsAbsolute(Result) then