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

Opkman: Extend package state list.

Browse Source 
git-svn-id: trunk@57329 -
This commit is contained in:
balazs 2018-02-19 12:35:36 +00:00
parent 634a5e3b53
commit 2489e7c8b0
2 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/onlinepackagemanager/opkman_const.pas
View File

@ -105,7 +105,8 @@ resourcestring
rsMainFrm_VSTText_PackageState3 = 'Installed';
rsMainFrm_VSTText_PackageState4 = 'Up to date';
rsMainFrm_VSTText_PackageState5 = 'New version available (repository)';
rsMainFrm_VSTText_PackageState6 = 'New updates available';
rsMainFrm_VSTText_PackageState6 = 'New version available';
rsMainFrm_VSTText_PackageState7 = 'Ahead of OPM';
rsMainFrm_VSTText_PackageCategory0 = 'Charts and Graphs';
rsMainFrm_VSTText_PackageCategory1 = 'Cryptography';
rsMainFrm_VSTText_PackageCategory2 = 'DataControls';

24
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1489,25 +1489,31 @@ begin
begin
if (Data^.UpdateVersion = '') then
begin
if Data^.InstalledVersion >= Data^.Version then
if Data^.InstalledVersion < Data^.Version then
CellText := rsMainFrm_VSTText_PackageState6
else if Data^.InstalledVersion = Data^.Version then
CellText := rsMainFrm_VSTText_PackageState4
else
CellText := rsMainFrm_VSTText_PackageState5
else if Data^.InstalledVersion > Data^.Version then
CellText := rsMainFrm_VSTText_PackageState7
end
else
begin
if (Data^.InstalledVersion >= Data^.UpdateVersion) then
CellText := rsMainFrm_VSTText_PackageState4
else
if Data^.InstalledVersion < Data^.UpdateVersion then
CellText := rsMainFrm_VSTText_PackageState6
else if (Data^.InstalledVersion = Data^.UpdateVersion) then
CellText := rsMainFrm_VSTText_PackageState4
else if (Data^.InstalledVersion > Data^.UpdateVersion) then
CellText := rsMainFrm_VSTText_PackageState7
end;
end
else
begin
if (Data^.InstalledVersion >= Data^.UpdateVersion) then
CellText := rsMainFrm_VSTText_PackageState4
else
if Data^.InstalledVersion < Data^.UpdateVersion then
CellText := rsMainFrm_VSTText_PackageState6
else if Data^.InstalledVersion = Data^.UpdateVersion then
CellText := rsMainFrm_VSTText_PackageState4
else if Data^.InstalledVersion > Data^.UpdateVersion then
CellText := rsMainFrm_VSTText_PackageState7
end;
Data^.IsUpdated := CellText = rsMainFrm_VSTText_PackageState4;
end;