anchor.diff:    WindowTitle := cTitle + ' - No file';
     tvContents.Selection := nil;
     tvContents.RootNode.Clear;
  +  tvContents.Invalidate;
     Memo1.Lines.Clear;
   
     // First save notes. It's important we do this first
  
positive.code:     ShowImages := True;
      TabOrder := 0;
      Align := alClient;
    end;
  
    tvIndex := TfpgTreeView.Create(tsIndex);
  
negative.code:     miBookmarks: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      btnIndex: TfpgButton;
      btnGo: TfpgButton;
      {@VFD_HEAD_END: MainForm}
      Files: TList; // current open help files.
      Debug: boolean;
      procedure   MainFormShow(Sender: TObject);
      procedure   miFileQuitClicked(Sender: TObject);
      procedure   miFileOpenClicked(Sender: TObject);
  