anchor.diff:    begin
       Name := 'mnuFile';
       SetPosition(44, 72, 120, 20);
  +    miAdd := AddMenuItem('Add Item', '', @CommandHandler);
       AddMenuItem('Quit', '', @CommandHandler);
     end;
   
  
positive.code: interface
  
  uses
    SysUtils, Classes, fpg_base, fpg_main, fpg_edit,
    fpg_widget, fpg_form, fpg_label, fpg_button,
    fpg_listbox, fpg_memo, fpg_combobox, fpg_grid,
    fpg_dialogs, fpg_checkbox, fpg_tree, fpg_trackbar,
    fpg_progressbar, fpg_radiobutton, fpg_tab, fpg_menu,
    fpg_panel;
  
  type
  
    TMainForm = class(TfpgForm)
    private
      procedure CommandHandler(Sender: TObject);
    public
      {@VFD_HEAD_BEGIN: MainForm}
      btnAdd: TfpgButton;
      memName1: TfpgMemo;
  
negative.code:   Name := 'MainForm';
    SetPosition(293, 236, 284, 254);
    WindowTitle := 'Command Interface Test';
    WindowPosition := wpOneThirdDown;
  
    btnAdd := TfpgButton.Create(self);
    with btnAdd do
  