anchor.diff:      {@VFD_HEAD_END: MainForm}
       FMediator: TFormMediator;
       procedure FormShow(Sender: TObject);
  +    procedure GridDoubleClicked(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
       procedure SetupMediators;
       procedure miEditAddClick(Sender: TObject);
       procedure miEditEditClick(Sender: TObject);
  
positive.code: // do nothing yet
  end;
  
  procedure TMainForm.SetupMediators;
  begin
    if not Assigned(FMediator) then
  
negative.code:     Anchors := [anLeft,anRight,anTop,anBottom];
      FontDesc := '#Grid';
      HeaderFontDesc := '#GridHeader';
      OnDoubleClick := @GridDoubleClicked;
    end;
  
    btnAdd := TfpgButton.Create(self);
  