more adjustments to popup menu.

src/gui/UCTRLWallet.lfm

@@ -176,9 +176,16 @@ object CTRLWallet: TCTRLWallet
         OnClick = miChangeAccountsPrivateKeyClick
       end
     end
-    object miListAccountsForSale: TMenuItem
-      Caption = 'List Account(s) For Sale'
-      OnClick = miListAccountsForSaleClick
+    object miAccountsMarket: TMenuItem
+      Caption = 'Account Market'
+      object miEnlistAccountsForSale: TMenuItem
+        Caption = 'Enlist Account(s) For Sale'
+        OnClick = miEnlistAccountsForSaleClick
+      end
+      object miDelistAccountsFromSale: TMenuItem
+        Caption = 'Delist Account(s) From Sale'
+        OnClick = miDelistAccountsFromSaleClick
+      end
     end
     object miSep1: TMenuItem
       Caption = '-'

src/gui/UCTRLWallet.pas

@@ -35,7 +35,9 @@ type
     miChangeKey: TMenuItem;
     miTransferAccounts: TMenuItem;
     miChangeAccountsPrivateKey: TMenuItem;
-    miListAccountsForSale: TMenuItem;
+    miAccountsMarket: TMenuItem;
+    miEnlistAccountsForSale: TMenuItem;
+    miDelistAccountsFromSale: TMenuItem;
     miAccountInfo: TMenuItem;
     miSep1: TMenuItem;
     miSep2: TMenuItem;
@@ -58,7 +60,8 @@ type
     procedure miSendPASCClick(Sender: TObject);
     procedure miTransferAccountsClick(Sender: TObject);
     procedure miChangeAccountsPrivateKeyClick(Sender: TObject);
-    procedure miListAccountsForSaleClick(Sender: TObject);
+    procedure miEnlistAccountsForSaleClick(Sender: TObject);
+    procedure miDelistAccountsFromSaleClick(Sender: TObject);
   private
     FNodeNotifyEvents: TNodeNotifyEvents;
     FAccountsMode: TCTRLWalletAccountsMode;
@@ -614,9 +617,15 @@ begin
   miChangeAccountsPrivateKey.Caption :=
     IIF(ASelection.RowCount = 1, 'Change Account Private Key',
     'Change Accounts Private Key');
-  miListAccountsForSale.Caption :=
+  miEnlistAccountsForSale.Caption :=
     IIF(ASelection.RowCount = 1, 'List Account For Sale',
     'List Accounts For Sale');
+  miEnlistAccountsForSale.Caption :=
+    IIF(ASelection.RowCount = 1, 'Enlist Account For Sale',
+    'Enlist Accounts For Sale');
+  miDelistAccountsFromSale.Caption :=
+    IIF(ASelection.RowCount = 1, 'Delist Account From Sale',
+    'Delist Accounts From Sale');
   APopupMenu := mnuAccountsPopup;
 end;
 
@@ -688,11 +697,16 @@ begin
   wiz.Start(model);
 end;
 
-procedure TCTRLWallet.miListAccountsForSaleClick(Sender: TObject);
+procedure TCTRLWallet.miEnlistAccountsForSaleClick(Sender: TObject);
 begin
  raise ENotImplemented.Create('not yet implemented.');
 end;
 
+procedure TCTRLWallet.miDelistAccountsFromSaleClick(Sender: TObject);
+begin
+  raise ENotImplemented.Create('not yet implemented.');
+end;
+
 procedure TCTRLWallet.OnPrepareOperationsPopupMenu(Sender: TObject;
   constref ASelection: TVisualGridSelection; out APopupMenu: TPopupMenu);
 begin