anchor.diff:      function GetShowFloatGroup1: boolean;
       function GetShowFloatGroup2: boolean;
       function GetShowFloatGroup3: boolean;
  -    function GetShowMenu: boolean;
       function GetShowOnTop: boolean;
       function GetShowSidebarOnRight: boolean;
       procedure InitAppleMenu;
  
positive.code:     property ShowFloatGroup1: boolean read GetShowFloatGroup1 write SetShowFloatGroup1;
      property ShowFloatGroup2: boolean read GetShowFloatGroup2 write SetShowFloatGroup2;
      property ShowFloatGroup3: boolean read GetShowFloatGroup3 write SetShowFloatGroup3;
      property ShowMenu: boolean read GetShowMenu write SetShowMenu;
      property ShowOnTop: boolean read GetShowOnTop write SetShowOnTop;
      property ShowFullscreen: boolean read FShowFullScreen write SetShowFullScreen;
      property ShowDistractionFree: boolean read FShowFullScreen write SetShowDistractionFree;
  
negative.code: 
  procedure TfmMain.SetShowMenu(AValue: boolean);
  begin
    FMenuVisible:= AValue;
    {$ifdef windows}
    //workaround for LCL strange bug, when hiding MainMenu causes app hang on pressing Alt
    if AValue then
      Windows.SetMenu(Handle, MainMenu.Handle)
    else
      Windows.SetMenu(Handle, 0);
    {$else}
    if AValue then
      Menu:= MainMenu
    else
      Menu:= nil;
    {$endif}
  end;
  
  function TfmMain.GetShowOnTop: boolean;
  begin
    Result:= UiOps.ShowFormsOnTop;
  end;
  
  procedure TfmMain.SetShowOnTop(AValue: boolean);
  