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

LCL: Fix TTreeNode.GetTextPath. Issue #41356, patch by Don Siders.

Browse Source
This commit is contained in:
Juha 2025-01-31 15:39:25 +02:00
parent fddb4de9bc
commit 5bcc39179c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/treeview.inc
View File

@ -1361,13 +1361,15 @@ end;
function TTreeNode.GetTextPath: string;
var
Node: TTreeNode;
PDelim: String;
begin
PDelim := FOwner.FOwner.FPathDelimiter;
Result := '';
Node := Self;
while Assigned(Node) do
begin
if Result <> '' then
Result := FOwner.FOwner.FPathDelimiter + Result;
if (Result <> '') and (Node.Text <> PDelim) then
Result := PDelim + Result;
Result := Node.Text + Result;
Node := Node.Parent;
end;