Browse Source

Fix tbStatusToolBar for Windows

maciej-izak 7 years ago
parent
commit
e616d79421
1 changed files with 10 additions and 8 deletions
  1. 10 8
      Units/Forms/UFRMMainForm.lfm

+ 10 - 8
Units/Forms/UFRMMainForm.lfm

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