anchor.diff:  procedure TMainForm.miFileCloseClicked(Sender: TObject);
   begin
     CloseFile;
  +end;
  +
  +procedure TMainForm.miActionsContentsClicked(Sender: TObject);
  +begin
  +  PageControl1.ActivePage := tsContents;
  +end;
  +
  +procedure TMainForm.miActionsIndexClicked(Sender: TObject);
  +begin
  +  PageControl1.ActivePage := tsIndex;
  +end;
  +
  +procedure TMainForm.miActionsSearchClicked(Sender: TObject);
  +begin
  +  PageControl1.ActivePage := tsSearch;
  +end;
  +
  +procedure TMainForm.miActionsNotesClicked(Sender: TObject);
  +begin
  +  PageControl1.ActivePage := tsNotes;
  +end;
  +
  +procedure TMainForm.miActionsHistoryClicked(Sender: TObject);
  +begin
  +  PageControl1.ActivePage := tsHistory;
   end;
   
   procedure TMainForm.miConfigureClicked(Sender: TObject);
  
positive.code:   begin
      Name := 'miHelp';
      SetPosition(292, 168, 132, 20);
      AddMenuItem('Help using DocView', '', @miHelpUsingDocView);
      AddMenuItem('Command line parameters', '', @miHelpCmdLineParams);
      AddMenuItem('-', '', nil);
      AddMenuItem('About fpGUI Toolkit...', '', @miHelpAboutFPGui);
      AddMenuItem('Product Information...', '', @miHelpProdInfoClicked);
    end;
  
negative.code:     procedure   miFileOpenAdditionalFileClicked(Sender: TObject);
      procedure   miFileOpenSpecialClicked(Sender: TObject);
      procedure   miFileCloseClicked(Sender: TObject);
      procedure   miActionsContentsClicked(Sender: TObject);
      procedure   miActionsIndexClicked(Sender: TObject);
      procedure   miActionsSearchClicked(Sender: TObject);
      procedure   miActionsNotesClicked(Sender: TObject);
      procedure   miActionsHistoryClicked(Sender: TObject);
      procedure   miActionsBackClicked(Sender: TObject);
      procedure   miActionsForwardClicked(Sender: TObject);
      procedure   miActionsPrevTopicClicked(Sender: TObject);
      procedure   miActionsNextTopicClicked(Sender: TObject);
      procedure   miConfigureClicked(Sender: TObject);
      procedure   miViewExpandAllClicked(Sender: TObject);
      procedure   miViewCollapseAllClicked(Sender: TObject);
  