anchor.diff:    begin
       Name := 'miTools';
       SetPosition(428, 96, 120, 20);
  +    AddMenuItem('Show file info', '', @miDebugHeader);
       AddMenuItem('View source of RichView component', '', @ViewSourceMIOnClick);
     end;
   
  
positive.code:     AddMenuItem('Help using DocView', '', @miHelpUsingDocView);
      AddMenuItem('Command line parameters', '', @miHelpCmdLineParams);
      AddMenuItem('-', '', nil);
      AddMenuItem('Show help file header info', '', @miDebugHeader);
      AddMenuItem('-', '', nil);
      AddMenuItem('About fpGUI Toolkit...', '', @miHelpAboutFPGui);
      AddMenuItem('Product Information...', '', @miHelpProdInfoClicked);
    end;
  
    miDebug := TfpgPopupMenu.Create(self);
    with miDebug do
    begin
      Name := 'miDebug';
      SetPosition(292, 192, 132, 20);
      miDebugHexInfo := AddMenuItem('Toggle Hex INF Values in Contents', '', @miDebugHex);
    end;
  
    ToolBar := TfpgBevel.Create(self);
  
negative.code:   MainMenu.AddMenuItem('&Bookmarks', nil).SubMenu := miBookmarks;
    MainMenu.AddMenuItem('&Tools', nil).SubMenu := miTools;
    MainMenu.AddMenuItem('&Help', nil).SubMenu := miHelp;
    FFileOpenRecent.SubMenu := miOpenRecentMenu;
  
    tvContents.PopupMenu := miView;
  