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

TCustomTreeView: use Utf8CompareStr for default sorting instead of AnsiCompareStr.

Browse Source 
Issue #0024740.

git-svn-id: trunk@42123 -
This commit is contained in:
bart 2013-07-17 21:22:58 +00:00
parent bc30518a35
commit 44ab1aef23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/treeview.inc
View File

@ -3226,7 +3226,7 @@ begin
Result:=0; Result:=0;
OnCompare(Node1.TreeView,Node1, Node2, Result); OnCompare(Node1.TreeView,Node1, Node2, Result);
end else end else
Result := AnsiCompareStr(Node1.Text,Node2.Text); Result := Utf8CompareStr(Node1.Text,Node2.Text);
end; end;
procedure TCustomTreeView.SetAutoExpand(Value: Boolean); procedure TCustomTreeView.SetAutoExpand(Value: Boolean);