BUG: account explorer now correctly opens operations dialog

Units/Forms/UFRMAccountExplorer.lfm

@@ -1,6 +1,6 @@
 object FRMAccountExplorer: TFRMAccountExplorer
   Left = 207
-  Height = 471
+  Height = 451
   Top = 94
   Width = 868
   Caption = 'Accounts Explorer'
@@ -11,10 +11,11 @@ object FRMAccountExplorer: TFRMAccountExplorer
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   Position = poOwnerFormCenter
-  LCLVersion = '1.6.4.0'
+  LCLVersion = '1.8.0.6'
+  Visible = False
   object Splitter1: TSplitter
     Left = 380
-    Height = 385
+    Height = 365
     Top = 66
     Width = 5
   end
@@ -140,17 +141,17 @@ object FRMAccountExplorer: TFRMAccountExplorer
   end
   object pnlAccounts: TPanel
     Left = 0
-    Height = 385
+    Height = 365
     Top = 66
     Width = 380
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 385
+    ClientHeight = 365
     ClientWidth = 380
     TabOrder = 1
     object dgAccounts: TDrawGrid
       Left = 0
-      Height = 351
+      Height = 331
       Top = 0
       Width = 380
       Align = alClient
@@ -164,7 +165,7 @@ object FRMAccountExplorer: TFRMAccountExplorer
     object pnlAccountsInfo: TPanel
       Left = 0
       Height = 34
-      Top = 351
+      Top = 331
       Width = 380
       Align = alBottom
       BevelOuter = bvNone
@@ -245,7 +246,7 @@ object FRMAccountExplorer: TFRMAccountExplorer
   end
   object pcAccountsOptions: TPageControl
     Left = 385
-    Height = 385
+    Height = 365
     Top = 66
     Width = 483
     ActivePage = tsMultiSelectAccounts
@@ -273,12 +274,12 @@ object FRMAccountExplorer: TFRMAccountExplorer
     end
     object tsMultiSelectAccounts: TTabSheet
       Caption = 'Selected accounts for massive operations'
-      ClientHeight = 357
+      ClientHeight = 337
       ClientWidth = 475
       ImageIndex = 1
       object dgSelectedAccounts: TDrawGrid
         Left = 41
-        Height = 300
+        Height = 280
         Top = 31
         Width = 325
         Align = alLeft
@@ -316,7 +317,7 @@ object FRMAccountExplorer: TFRMAccountExplorer
       object pnlSelectedAccountsBottom: TPanel
         Left = 0
         Height = 26
-        Top = 331
+        Top = 311
         Width = 475
         Align = alBottom
         BevelOuter = bvNone
@@ -358,12 +359,12 @@ object FRMAccountExplorer: TFRMAccountExplorer
       end
       object pnlSelectedAccountsLeft: TPanel
         Left = 0
-        Height = 300
+        Height = 280
         Top = 31
         Width = 41
         Align = alLeft
         BevelOuter = bvNone
-        ClientHeight = 300
+        ClientHeight = 280
         ClientWidth = 41
         TabOrder = 3
         object sbSelectedAccountsAdd: TSpeedButton

Units/Forms/UFRMAccountExplorer.pas

@@ -601,20 +601,12 @@ var l : TOrderedCardinalList;
 begin
   TUserInterface.CheckNodeIsReady;
   if FAccountsSelectedGrid.AccountsCount<=0 then raise Exception.Create('Must select at least 1 account');
-  With TFRMOperation.Create(Self) do
-  Try
+  try
     l := FAccountsSelectedGrid.LockAccountsList;
-    try
-      SenderAccounts.CopyFrom(l);
-    finally
-      FAccountsSelectedGrid.UnlockAccountsList;
-    end;
-    DefaultFee := TSettings.DefaultFee;
-    WalletKeys := TWallet.Keys;
-    ShowModal;
-  Finally
-    Free;
-  End;
+    TUserInterface.ShowNewOperationDialog(Self, l, TSettings.DefaultFee);
+  finally
+    FAccountsSelectedGrid.UnlockAccountsList;
+  end;
 end;
 
 procedure TFRMAccountExplorer.sbSearchAccountClick(Sender: TObject);

Units/Forms/UUserInterface.pas

@@ -449,6 +449,7 @@ begin
   Try
     SenderAccounts.CopyFrom(accounts);
     DefaultFee := defaultFee;
+    WalletKeys := TWallet.Keys;
     ShowModal;
   Finally
     Free;