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

Opkman: Add "2.0.10" to Lazarus versions.

Browse Source 
git-svn-id: trunk@63438 -
This commit is contained in:
balazs 2020-06-24 12:31:57 +00:00
parent 5dbd8cdf67
commit 3fa3067c8a
2 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/onlinepackagemanager/opkman_categoriesfrm.pas
View File

@ -239,13 +239,26 @@ procedure TCategoriesFrm.VSTCompareNodes(Sender: TBaseVirtualTree; Node1,
var
Data1: PData;
Data2: PData;
Str1, Str2: String;
Int1, Int2: Integer;
begin
Data1 := Sender.GetNodeData(Node1);
Data2 := Sender.GetNodeData(Node2);
if Column = 0 then
begin
if Data1^.FType = Data2^.FType then
Result := CompareText(Data1^.FName, Data2^.FName)
begin
Str1 := Data1^.FName;
Str1 := StringReplace(Str1, '.', '', [rfReplaceAll]);
Int1 := StrToIntDef(Str1, -1);
Str2 := Data2^.FName;
Str2 := StringReplace(Str1, '.', '', [rfReplaceAll]);
Int2 := StrToIntDef(Str2, -1);
if (Int1 <> -1) and (Int2 <> -1) then
Result := Int2 - Int1
else
Result := CompareText(Data1^.FName, Data2^.FName)
end
else if Data1^.FType > Data2^.FType then
Result := 1
else if Data1^.FType < Data2^.FType then

8
components/onlinepackagemanager/opkman_common.pas
View File

@ -111,19 +111,19 @@ const
'Other',
'Games and Game Engines');
MaxLazVersions = 9;
MaxLazVersions = 11;
LazVersions: array [0..MaxLazVersions - 1] of String = (
'1.8.0', '1.8.2', '1.8.4', '1.8.5',
'2.0.0', '2.0.2', '2.0.4', '2.0.6',
'2.0.0', '2.0.2', '2.0.4', '2.0.6', '2.0.8', '2.0.10',
'Trunk');
LazDefVersions = '2.0.0, 2.0.2, 2.0.4, 2.0.6';
LazDefVersions = '2.0.0, 2.0.2, 2.0.4, 2.0.6, 2.0.8, 2.0.10';
LazTrunk = '2.1.0';
MaxFPCVersions = 5;
FPCVersions: array [0..MaxFPCVersions - 1] of String = (
'3.0.0', '3.0.2', '3.0.4', '3.2.0',
'Trunk');
FPCDefVersion = '3.0.0, 3.0.2, 3.0.4';
FPCDefVersion = '3.0.0, 3.0.2, 3.0.4, 3.2.0';
FPCTrunk = '3.3.1';
DefWidgetSets = 'gtk2, win32/win64';