anchor.diff:      FCodetreeModifiedVersion: integer;
       FMenuCopy: TPopupMenu;
       FMenuItemTabSize: array[cMenuTabsizeMin..cMenuTabsizeMax] of TMenuItem;
  +    FMenuVisible: boolean;
       FPopupListboxOutput: TPopupMenu;
       FPopupListboxValidate: TPopupMenu;
       FNewClickedEditor: TATSynEdit;
  
positive.code:   AppManagerLite.OnGetStyleHash:= @LiteLexer_GetStyleHash;
    AppManagerLite.OnApplyStyle:= @LiteLexer_ApplyStyle;
  
    FSessionName:= '';
    FListRecents:= TStringList.Create;
    FListThemesUI:= TStringList.Create;
  
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);
  