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

Opkman: Fixed a small sorting bug in the main tree.

Browse Source 
git-svn-id: trunk@55090 -
This commit is contained in:
balazs 2017-05-26 04:31:37 +00:00
parent 77b9c644a0
commit 0a06e5079d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1327,7 +1327,12 @@ begin
case Column of case Column of
0: begin 0: begin
if (Data1^.DataType = 1) and (Data1^.DataType = 1) then if (Data1^.DataType = 1) and (Data1^.DataType = 1) then
Result := CompareText(Data1^.PackageName, Data2^.PackageName); begin
if (Trim(Data1^.PackageDisplayName) <> '') and (Trim(Data2^.PackageDisplayName) <> '') then
Result := CompareText(Data1^.PackageDisplayName, Data2^.PackageDisplayName)
else
Result := CompareText(Data1^.PackageName, Data2^.PackageName);
end;
if (Data1^.DataType < Data2^.DataType) then if (Data1^.DataType < Data2^.DataType) then
Result := 0 Result := 0
else if (Data1^.DataType > Data2^.DataType) then else if (Data1^.DataType > Data2^.DataType) then