paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-16 23:49:23 +01: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; function TShellTreeNode.ShortFilename: String;
begin begin
Result := ExtractFileName(FFileInfo.Name); Result := Text;
if (Result = '') then Result := FFileInfo.Name;
end; end;
function TShellTreeNode.FullFilename: String; function TShellTreeNode.FullFilename: String;
begin begin
if (FBasePath <> '') then if (FBasePath <> '') then
Result := AppendPathDelim(FBasePath) + FFileInfo.Name Result := AppendPathDelim(FBasePath) + Text
else else
//root nodes //root nodes
Result := FFileInfo.Name; Result := Text;
{$if defined(windows) and not defined(wince)} {$if defined(windows) and not defined(wince)}
if (Length(Result) = 2) and (Result[2] = DriveSeparator) then if (Length(Result) = 2) and (Result[2] = DriveSeparator) then
Result := Result + PathDelim; Result := Result + PathDelim;