anchor.diff:      Label1: TfpgLabel;
       btnClose: TfpgButton;
       btnOpenForm2: TfpgButton;
  +    edtTest: TfpgEdit;
       procedure   btnCloseClick(Sender: TObject);
       procedure   btnOpenForm2Click(Sender: TObject);
     public
  
positive.code:   gui_button,
    gui_label,
    gui_popupcalendar,
    gui_combobox;
    
  type
    // forward declaration
  
negative.code:     cal: TfpgComboBox;
      btnClose: TfpgButton;
      btnOpenForm1: TfpgButton;
      edtTest: TfpgEdit;
      procedure   btnCloseClick(Sender: TObject);
      procedure   btnOpenForm1Click(Sender: TObject);
    public
  