From 39bc6e707cc2ff2b3f04c828fe3e922fd5af153c Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Sat, 14 Sep 2013 14:06:19 +0000
Subject: [PATCH] IDE, Install/Uninstall Packages dialog: display "selected for
 installation/uninstallation" package states in package info memo

git-svn-id: trunk@42796 -
---
 ide/lazarusidestrconsts.pas   |  2 ++
 packager/installpkgsetdlg.pas | 10 +++++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index d7f24b078c..481b2bdba9 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -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 '
diff --git a/packager/installpkgsetdlg.pas b/packager/installpkgsetdlg.pas
index 4e231dd55b..3794b880b4 100644
--- a/packager/installpkgsetdlg.pas
+++ b/packager/installpkgsetdlg.pas
@@ -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]);