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

LCL/ShellTreeView: Fix incorrect behavior of TShellTreeView after propagating node renaming to the file system. Issue #39629.

Browse Source
This commit is contained in:
wp_xyz 2022-02-04 10:50:42 +01:00
parent 61ad4be039
commit 931246668e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/shellctrls.pas
View File

@ -439,17 +439,16 @@ end;
function TShellTreeNode.ShortFilename: String;
begin
Result := ExtractFileName(FFileInfo.Name);
if (Result = '') then Result := FFileInfo.Name;
Result := Text;
end;
function TShellTreeNode.FullFilename: String;
begin
if (FBasePath <> '') then
Result := AppendPathDelim(FBasePath) + FFileInfo.Name
Result := AppendPathDelim(FBasePath) + Text
else
//root nodes
Result := FFileInfo.Name;
Result := Text;
{$if defined(windows) and not defined(wince)}
if (Length(Result) = 2) and (Result[2] = DriveSeparator) then
Result := Result + PathDelim;