anchor.diff:      AddMenuItem('Show', '', nil);
     end;
   
  +  miView := TfpgPopupMenu.Create(self);
  +  with miView do
  +  begin
  +    Name := 'miView';
  +    SetPosition(292, 216, 132, 20);
  +    AddMenuItem('Expand All', '', @miViewExpandAllClicked);
  +    AddMenuItem('Collapse All', '', @miViewCollapseAllClicked);
  +  end;
  +
     miHelp := TfpgPopupMenu.Create(self);
     with miHelp do
     begin
  
positive.code:     procedure   miFileOpenSpecialClicked(Sender: TObject);
      procedure   miFileCloseClicked(Sender: TObject);
      procedure   miConfigureClicked(Sender: TObject);
      procedure   miHelpProdInfoClicked(Sender: TObject);
      procedure   miHelpAboutFPGui(Sender: TObject);
      procedure   miHelpCmdLineParams(Sender: TObject);
  
negative.code:   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;
  