Browse Source

GUI: show wallet on loaded

Herman Schoenfeld 7 years ago
parent
commit
2d52d0e4a9
3 changed files with 7 additions and 1 deletions
  1. 0 1
      src/gui/UCTRLSyncronization.pas
  2. 2 0
      src/gui/UUserInterface.pas
  3. 5 0
      src/gui/UUserInterface.pas.rej

+ 0 - 1
src/gui/UCTRLSyncronization.pas

@@ -185,7 +185,6 @@ begin
   lblReceivedMessages.Caption := text;
 end;
 
-
 procedure TCTRLSyncronization.SetStatusText(AColour: TColor; AText: String);
 begin
   lblNodeStatus.Font.Color := AColour;

+ 2 - 0
src/gui/UUserInterface.pas

@@ -237,6 +237,7 @@ begin
     FMessagesNotificationText := '';
 
     // Create root form and dependent components
+    FMainForm := mainForm as TFRMMainForm;
     FMainForm.CloseAction := caNone;     // wallet is destroyed on ExitApplication
     if (FMainForm = nil)
       then raise Exception.Create('Main form is not TWallet');
@@ -482,6 +483,7 @@ begin
   FPoolMiningServer.Active := TSettings.MinerServerRpcActive;
   FPoolMiningServer.OnMiningServerNewBlockFound := NotifyMiningServerNewBlockFoundEvent;
   State := uisLoaded;
+  ShowWallet;
 end;
 
 class procedure TUserInterface.OnUITimerRefresh(Sender: Tobject);

+ 5 - 0
src/gui/UUserInterface.pas.rej

@@ -0,0 +1,5 @@
+diff a/src/gui/UUserInterface.pas b/src/gui/UUserInterface.pas	(rejected hunks)
+@@ -239,3 +239,2 @@
+     // Create root form and dependent components
+-    FMainForm := mainForm as TFRMMainForm;
+     FMainForm.CloseAction := caNone;     // wallet is destroyed on ExitApplication