paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 06:57:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

TShellTreeView: ifdef some code which only applies to windows (desktop). Reported by rens groenewegen.

Browse Source
This commit is contained in:
Bart 2024-01-23 23:31:30 +01:00
parent b3ccc3d69a
commit 9f02bfab4a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/shellctrls.pas
View File

@ -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]);