Try to fix tbStatusToolBar for MacOS X

Units/Forms/UFRMMainForm.lfm

@@ -1,10 +1,10 @@
 object FRMMainForm: TFRMMainForm
-  Left = 168
+  Left = 231
   Height = 600
-  Top = 12
+  Top = 44
   Width = 865
   Caption = 'Pascal Coin Wallet, JSON-RPC Miner & Explorer'
-  ClientHeight = 580
+  ClientHeight = 600
   ClientWidth = 865
   Color = clBtnFace
   Constraints.MinHeight = 600
@@ -45,7 +45,7 @@ object FRMMainForm: TFRMMainForm
   end
   object paSyncPanel: TPanel
     Left = 0
-    Height = 477
+    Height = 505
     Top = 80
     Width = 865
     Align = alClient
@@ -62,7 +62,7 @@ object FRMMainForm: TFRMMainForm
   end
   object paWalletPanel: TPanel
     Left = 0
-    Height = 477
+    Height = 505
     Top = 80
     Width = 865
     Align = alClient
@@ -79,8 +79,8 @@ object FRMMainForm: TFRMMainForm
   end
   object sbStatusBar: TStatusBar
     Left = 0
-    Height = 23
-    Top = 557
+    Height = 15
+    Top = 585
     Width = 865
     Panels = <    
       item
@@ -101,17 +101,20 @@ object FRMMainForm: TFRMMainForm
         Width = 30
       end>
     SimplePanel = False
-    OnDrawPanel = sbStatusBarDrawPanel
   end
   object tbStatusToolBar: TToolBar
+    AnchorSideTop.Control = sbStatusBar
+    AnchorSideBottom.Control = sbStatusBar
+    AnchorSideBottom.Side = asrBottom
     Left = 778
-    Height = 16
-    Top = 544
+    Height = 15
+    Top = 585
     Width = 70
     Align = alNone
-    Anchors = [akRight, akBottom]
+    Anchors = [akTop, akRight, akBottom]
     AutoSize = True
     ButtonHeight = 16
+    ButtonWidth = 23
     Caption = 'tbStatusToolBar'
     EdgeBorders = []
     EdgeInner = esNone
@@ -119,7 +122,6 @@ object FRMMainForm: TFRMMainForm
     Images = ilSmallIcons
     List = True
     TabOrder = 0
-    Visible = False
     Wrapable = False
     object tbtnWalletLock: TToolButton
       Left = 1
@@ -131,7 +133,7 @@ object FRMMainForm: TFRMMainForm
       OnClick = tbtnWalletLockClick
     end
     object tbtnConnectivity: TToolButton
-      Left = 24
+      Left = 47
       Hint = 'Network is active. Click to deactivate'
       Top = 0
       Caption = 'Net'
@@ -139,7 +141,7 @@ object FRMMainForm: TFRMMainForm
       OnClick = tbtnConnectivityClick
     end
     object tbtnSync: TToolButton
-      Left = 47
+      Left = 24
       Hint = 'Show &Syncronization'
       Top = 0
       Caption = '&Synchronization'

Units/Forms/UFRMMainForm.pas

@@ -90,10 +90,8 @@ type
     procedure tbtnSyncClick(Sender: TObject);
     procedure tbtnWalletLockClick(Sender:TObject);
     procedure tbtnConnectivityClick(Sender:TObject);
-    procedure sbStatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
     procedure miSeedNodesClick(Sender: TObject);
   private
-    __FLastFooterToolBarDrawRect : TRect;  // Required for FPC bug work-around
     FMode : TFRMMainFormMode;
     FSyncControl : TCTRLSyncronization;
     FWalletControl : TCTRLWallet;
@@ -131,8 +129,6 @@ const
 
 procedure TFRMMainForm.FormCreate(Sender: TObject);
 begin
-  tbStatusToolBar.Parent := sbStatusBar;
-  __FLastFooterToolBarDrawRect := TRect.Empty;
   CloseAction := caNone; // Will handle terminate in separate method
   FMode := wmSync;
   FSyncControl := TCTRLSyncronization.Create(self);
@@ -395,18 +391,6 @@ begin
   TUserInterface.ShowSyncDialog;
 end;
 
-procedure TFRMMainForm.sbStatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
-begin
-  if __FLastFooterToolBarDrawRect = Rect then exit; // avoid FPC bug: triggers infinite draw refresh on windows
-  if Panel = sbStatusBar.Panels[3] then
-    with tbStatusToolBar do begin
-      Top := Rect.Top + (Rect.Height - tbStatusToolBar.Height) div 2;
-      Left := Rect.Right - tbStatusToolBar.Width - CT_FOOTER_TOOLBAR_RIGHT_PADDING;
-      Visible := true;
-    end;
-  __FLastFooterToolBarDrawRect := Rect;
-end;
-
 {%endregion}
 
 end.