anchor.diff:      procedure Test_CreateABlock(Sender: TObject);
       {$ENDIF}
       {$ENDIF}
  +    Procedure InitMacOSMenu;
     protected
       procedure RefreshConnectionStatusDisplay;
       procedure RefreshWalletLockIcon;
  
positive.code: 
  {%endregion}
  
  end.
  
  
negative.code: 
  {$R *.lfm}
  
  uses LCLIntf, LCLType, UUserInterface, UThread, UOpTransaction, UWizard, UTime;
  
  const
    CT_FOOTER_TOOLBAR_LEFT_PADDING = 8;
  