anchor.diff:  procedure TMainForm.miHelpAboutFPGui(Sender: TObject);
   begin
     TfpgMessageDialog.AboutFPGui;
  +end;
  +
  +procedure TMainForm.SetHelpFile(const AValue: TfpgString);
  +begin
  +  if FHelpFile = AValue then
  +    Exit; //==>
  +  FHelpFile := AValue;
   end;
   
   constructor TMainForm.Create(AOwner: TComponent);
  
positive.code:     miSettings: TfpgPopupMenu;
      miBookmarks: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      {@VFD_HEAD_END: MainForm}
      procedure MainFormShow(Sender: TObject);
      procedure miFileQuitClicked(Sender: TObject);
      procedure miHelpProdInfoClicked(Sender: TObject);
      procedure miHelpAboutFPGui(Sender: TObject);
    public
      constructor Create(AOwner: TComponent); override;
      procedure AfterCreate; override;
    end;
  
  {@VFD_NEWFORM_DECL}
  
negative.code:   begin
      Name := 'miFile';
      SetPosition(244, 28, 132, 20);
      AddMenuItem('Open...', '', @miFileOpenClicked);
      AddMenuitem('-', '', nil);
      AddMenuItem('Quit', '', @miFileQuitClicked);
    end;
  