Browse Source

AdjustStatusToolBar for proper drawing tbStatusToolBar for Windows and MacOS X

maciej-izak 7 years ago
parent
commit
05ec4110f2
2 changed files with 23 additions and 10 deletions
  1. 8 10
      Units/Forms/UFRMMainForm.lfm
  2. 15 0
      Units/Forms/UFRMMainForm.pas

+ 8 - 10
Units/Forms/UFRMMainForm.lfm

@@ -4,12 +4,11 @@ object FRMMainForm: TFRMMainForm
   Top = 44
   Width = 865
   Caption = 'Pascal Coin Wallet, JSON-RPC Miner & Explorer'
-  ClientHeight = 570
+  ClientHeight = 600
   ClientWidth = 865
   Color = clBtnFace
   Constraints.MinHeight = 600
   Constraints.MinWidth = 865
-  DesignTimePPI = 144
   DockSite = True
   Font.Color = clWindowText
   Font.Height = -11
@@ -46,7 +45,7 @@ object FRMMainForm: TFRMMainForm
   end
   object paSyncPanel: TPanel
     Left = 0
-    Height = 454
+    Height = 505
     Top = 80
     Width = 865
     Align = alClient
@@ -63,7 +62,7 @@ object FRMMainForm: TFRMMainForm
   end
   object paWalletPanel: TPanel
     Left = 0
-    Height = 454
+    Height = 505
     Top = 80
     Width = 865
     Align = alClient
@@ -80,8 +79,8 @@ object FRMMainForm: TFRMMainForm
   end
   object sbStatusBar: TStatusBar
     Left = 0
-    Height = 36
-    Top = 534
+    Height = 15
+    Top = 585
     Width = 865
     Panels = <    
       item
@@ -108,13 +107,12 @@ object FRMMainForm: TFRMMainForm
     AnchorSideBottom.Control = sbStatusBar
     AnchorSideBottom.Side = asrBottom
     Left = 778
-    Height = 16
-    Top = 552
+    Height = 15
+    Top = 585
     Width = 70
     Align = alNone
-    Anchors = [akRight, akBottom]
+    Anchors = [akTop, akRight, akBottom]
     AutoSize = True
-    BorderSpacing.Bottom = 2
     ButtonHeight = 16
     ButtonWidth = 23
     Caption = 'tbStatusToolBar'

+ 15 - 0
Units/Forms/UFRMMainForm.pas

@@ -128,7 +128,22 @@ const
 {%region Form life-cycle }
 
 procedure TFRMMainForm.FormCreate(Sender: TObject);
+
+  procedure AdjustStatusToolBar;
+  var
+    LHeightDiff: Integer;
+  begin
+    LHeightDiff := sbStatusBar.Height - tbStatusToolBar.Height;
+    if LHeightDiff <= 0 then
+      Exit;
+
+    tbStatusToolBar.BorderSpacing.Bottom := (LHeightDiff div 2) + (LHeightDiff mod 2);
+    tbStatusToolBar.BorderSpacing.Top := LHeightDiff div 2;
+  end;
+
 begin
+  AdjustStatusToolBar;
+
   CloseAction := caNone; // Will handle terminate in separate method
   FMode := wmSync;
   FSyncControl := TCTRLSyncronization.Create(self);