anchor.diff:    ShowConfigForm;
   end;
   
  +procedure TMainForm.miViewExpandAllClicked(Sender: TObject);
  +begin
  +  tvContents.FullExpand;
  +end;
  +
  +procedure TMainForm.miViewCollapseAllClicked(Sender: TObject);
  +begin
  +  tvContents.FullCollapse;
  +end;
  +
   procedure TMainForm.miHelpProdInfoClicked(Sender: TObject);
   var
     s: TfpgString;
  
positive.code:     AddMenuItem('Show', '', nil);
    end;
  
    miHelp := TfpgPopupMenu.Create(self);
    with miHelp do
    begin
  
negative.code:     procedure   miFileOpenSpecialClicked(Sender: TObject);
      procedure   miFileCloseClicked(Sender: TObject);
      procedure   miConfigureClicked(Sender: TObject);
      procedure   miViewExpandAllClicked(Sender: TObject);
      procedure   miViewCollapseAllClicked(Sender: TObject);
      procedure   miHelpProdInfoClicked(Sender: TObject);
      procedure   miHelpAboutFPGui(Sender: TObject);
      procedure   miHelpCmdLineParams(Sender: TObject);
  