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

LCL: TTreeView fixed sort under unixes. issue #33064

Browse Source 
git-svn-id: trunk@62828 -
This commit is contained in:
zeljko 2020-03-31 11:03:33 +00:00
parent 5e1a4e94f5
commit 42c1f05392
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/treeview.inc
View File

@ -291,7 +291,11 @@ begin
Result:=0;
Node1.TreeView.OnCompare(Node1.TreeView,Node1, Node2, Result);
end else
{$IFDEF UNIX}
Result := CompareStr(Node1.Text, Node2.Text);
{$ELSE}
Result := AnsiCompareStr(Node1.Text,Node2.Text);
{$ENDIF}
end;
constructor TTreeNode.Create(AnOwner: TTreeNodes);