anchor.diff:      FontDesc := '#Label1';
       Hint := '';
       ImageName := '';
  +    ModalResult := mrOK;
       TabOrder := 1;
  -    ModalResult := mrOK;
     end;
   
     Memo1 := TfpgMemo.Create(self);
  
positive.code:     TabOrder := 2;
    end;
  
    {@VFD_BODY_END: TextForm}
    {%endregion}
  end;
  
negative.code: 
  {@VFD_NEWFORM_IMPL}
  
  procedure TTextForm.btnCopyClicked(Sender: TObject);
  begin
    fpgClipboard.Text := Memo1.Lines.Text;
  end;
  
  procedure TTextForm.AfterCreate;
  begin
    {%region 'Auto-generated GUI code' -fold}
  