paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 07:49:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

TShellTreeView: fix bug in SetPath if AValue was an absolute path but still had '..' in it.

Browse Source
This commit is contained in:
Bart 2024-01-23 23:24:05 +01:00
parent af1035188c
commit b3ccc3d69a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/shellctrls.pas
View File

@ -1539,7 +1539,8 @@ begin
end
else
begin
//AValue is an absoulte path to begin with
//AValue is an absoulte path to begin with , but still needs expanding (because TryCreateRelativePath requires this)
AValue := ExpandFilenameUtf8(AValue);
//if not DirectoryExistsUtf8(AValue) then
if not Exists(AValue) then
Raise EInvalidPath.CreateFmt(sShellCtrlsInvalidPath,[AValue]);