From 9f02bfab4ac14bb0cfd1fa6265e0a6a8170218c2 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Tue, 23 Jan 2024 23:31:30 +0100
Subject: [PATCH] TShellTreeView: ifdef some code which only applies to windows
 (desktop). Reported by rens groenewegen.

---
 lcl/shellctrls.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index 9424fb2ddb..faf1008f21 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -1512,7 +1512,9 @@ begin
   else
     FQRootPath := '';
   RootIsAbsolute := (FQRootPath = '') or (FQRootPath = PathDelim)
-                    or ((Length(FQRootPath) = 3) and (FQRootPath[2] = ':') and (FQRootPath[3] = PathDelim));
+                    {$ifdef mswindows}
+                    or ((Length(FQRootPath) = 3) and (FQRootPath[2] = ':') and (FQRootPath[3] = PathDelim))
+                    {$endif};
 
   {$ifdef debug_shellctrls}
   debugln(['SetPath: FQRootPath = ',fqrootpath]);