anchor.diff:    MainMenu.AddMenuItem('&Bookmarks', nil).SubMenu := miBookmarks;
     MainMenu.AddMenuItem('&Tools', nil).SubMenu := miTools;
     MainMenu.AddMenuItem('&Help', nil).SubMenu := miHelp;
  -  MainMenu.AddMenuItem('&Debug', nil).SubMenu := miDebug;
     FFileOpenRecent.SubMenu := miOpenRecentMenu;
   
     tvContents.PopupMenu := miView;
  
positive.code:     miBookmarks: TfpgPopupMenu;
      miView: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      miDebug: TfpgPopupMenu;
      ToolBar: TfpgBevel;
      btnOpen: TfpgButton;
      btnBack: TfpgButton;
  
negative.code:     AddMenuItem('Help using DocView', '', @miHelpUsingDocView);
      AddMenuItem('Command line parameters', '', @miHelpCmdLineParams);
      AddMenuItem('-', '', nil);
      AddMenuItem('About fpGUI Toolkit...', '', @miHelpAboutFPGui);
      AddMenuItem('Product Information...', '', @miHelpProdInfoClicked);
    end;
  
    ToolBar := TfpgBevel.Create(self);
  