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

IDE, Install/Uninstall Packages dialog: display "selected for installation/uninstallation" package states in package info memo

Browse Source 
git-svn-id: trunk@42796 -
This commit is contained in:
maxim 2013-09-14 14:06:19 +00:00
parent 0f05bac744
commit 39bc6e707c
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -4195,6 +4195,8 @@ resourcestring
// open installed packages dialog
lisOIPFilename = 'Filename: %s';
lisCurrentState = 'Current state: ';
lisSelectedForInstallation = 'selected for installation';
lisSelectedForUninstallation = 'selected for uninstallation';
lisInstalled = 'installed';
lisNotInstalled = 'not installed';
lisOIPThisPackageIsInstalledButTheLpkFileWasNotFound = '%sThis package is '

10
packager/installpkgsetdlg.pas
View File

@ -693,9 +693,17 @@ begin
InfoStr:=lisCurrentState;
if Info.Installed<>pitNope then
AddState(lisInstalled)
begin
if PackageInInstallList(Info.ID.Name)=false then
AddState(lisSelectedForUninstallation);
AddState(lisInstalled);
end
else
begin
if PackageInInstallList(Info.ID.Name)=true then
AddState(lisSelectedForInstallation);
AddState(lisNotInstalled);
end;
if Info.Base then
AddState(lisPckExplBase);
AddState(LazPackageTypeIdents[Info.PkgType]);