Browse Source

Experimental GUI: fix macOS cosmetic defects

Herman Schoenfeld 6 years ago
parent
commit
cca37edb55
2 changed files with 15 additions and 8 deletions
  1. 8 8
      src/gui-experimental/UFRMMainForm.lfm
  2. 7 0
      src/gui-experimental/UFRMMainForm.pas

+ 8 - 8
src/gui-experimental/UFRMMainForm.lfm

@@ -1,10 +1,10 @@
 object FRMMainForm: TFRMMainForm
-  Left = 231
+  Left = 422
   Height = 600
-  Top = 44
+  Top = 59
   Width = 870
   Caption = 'Pascal Coin Wallet, JSON-RPC Miner & Explorer'
-  ClientHeight = 580
+  ClientHeight = 600
   ClientWidth = 870
   Color = clBtnFace
   Constraints.MinHeight = 600
@@ -43,7 +43,7 @@ object FRMMainForm: TFRMMainForm
   end
   object paSyncPanel: TPanel
     Left = 0
-    Height = 497
+    Height = 502
     Top = 80
     Width = 870
     Align = alClient
@@ -60,7 +60,7 @@ object FRMMainForm: TFRMMainForm
   end
   object paWalletPanel: TPanel
     Left = 0
-    Height = 497
+    Height = 502
     Top = 80
     Width = 870
     Align = alClient
@@ -76,8 +76,8 @@ object FRMMainForm: TFRMMainForm
   end
   object sbStatusBar: TStatusBar
     Left = 0
-    Height = 23
-    Top = 577
+    Height = 18
+    Top = 582
     Width = 870
     Panels = <    
       item
@@ -106,7 +106,7 @@ object FRMMainForm: TFRMMainForm
     AnchorSideBottom.Side = asrBottom
     Left = 783
     Height = 15
-    Top = 581
+    Top = 584
     Width = 70
     Align = alNone
     Anchors = [akTop, akRight]

+ 7 - 0
src/gui-experimental/UFRMMainForm.pas

@@ -161,6 +161,7 @@ procedure TFRMMainForm.FormCreate(Sender: TObject);
 
     tbStatusToolBar.AnchorSideTop.Side := asrTop;
     tbStatusToolBar.Anchors := [akRight, akBottom];
+
   end;
 
 begin
@@ -171,6 +172,12 @@ begin
   FSyncControl := TCTRLSyncronization.Create(self);
   paLogoPanel.AddControlDockCenter(TCTRLBanner.Create(Self));
   paSyncPanel.AddControlDockCenter(FSyncControl);
+  // Remove design-time colors (avoid issue on macOS)
+  paSyncPanel.Color:=clDefault;
+  paSyncPanel.Caption:='';
+  paWalletPanel.Color := clDefault;
+  paWalletPanel.Caption:='';
+
   // note: wallet control is lazily constructed
   {$IFDEF TESTNET}
   // Things for testing purposes only