anchor.diff:      AddMenuItem('View source of RichView component', '', @ViewSourceMIOnClick);
       AddMenuItem('Current topic properties', '', @miTopicPropertiesClicked);
       AddMenuItem('Dump dictionary to file in temp directory', '', @miDumpDictionaryClicked);
  +    AddMenuItem('Show DocView used environment variables', '', @miToolsShowEnvVariablesClicked);
     end;
   
     miHelp := TfpgPopupMenu.Create(self);
  
positive.code:   i: integer;
    Bookmark: TBookmark;
  Begin
    BookmarksListBox.Items.BeginUpdate;
    BookmarksListBox.Clear;
  
  
negative.code:   if not DisplayTopicByName( TopicNameString ) then
      if not DisplayTopicByGlobalName( TopicNameString ) then
        TfpgMessageDialog.Critical( 'Find Topic By Name', 'Topic name not found' );
  end;
  
  procedure TMainForm.miToolsShowEnvVariablesClicked(Sender: TObject);
    function LGetEnvVarValue(const AVariable: string): string;
    begin
      Result := Format('%s = ''%s''', [AVariable, GetEnvironmentVariable(AVariable)]);
    end;
  begin
    RichView.Clear;
    RichView.AddParagraph(PChar(LGetEnvVarValue(BookshelfEnvironmentVar)));
    RichView.AddParagraph(PChar(LGetEnvVarValue(HelpPathEnvironmentVar)));
  end;
  
  procedure TMainForm.miTopicPropertiesClicked(Sender: TObject);
  