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:     sl.Clear;
      with sl do
      begin
        Add('<b><u>Filename:</u></b> <red>' + f.Filename + '<black>');
        Add('<b>Title:</b> ' + f.Title);
        Add('<b>File size:</b> ' + IntToStr(fpgFileSize(f.Filename)) + 'bytes');
        Add('<b>Dictionary count:</b> ' + IntToStr(f.DictionaryCount));
        Add('<b>Topic count:</b> ' + IntToStr(f.TopicCount));
        Add('<b>Index count:</b> ' + IntToStr(f.Index.Count));
  
negative.code:     miBookmarks: TfpgPopupMenu;
      miView: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      ToolBar: TfpgBevel;
      btnOpen: TfpgButton;
      btnBack: TfpgButton;
  