anchor.diff:  
   { TfpgBaseForm }
   
  +procedure TfpgBaseForm.SetEnableDrops(const AValue: boolean);
  +begin
  +  if FEnableDrops = AValue then exit;
  +  FEnableDrops := AValue;
  +  DoEnableDrops(AValue);
  +end;
  +
   procedure TfpgBaseForm.SetWindowTitle(const ATitle: string);
   begin
     FWindowTitle := ATitle;
  
positive.code:     function    ShowModal: TfpgModalResult;
      procedure   Close;
      function    CloseQuery: boolean; virtual;
    end;
    
    
  
negative.code:     FOnHide: TNotifyEvent;
      FOnShow: TNotifyEvent;
      FOnHelp: TfpgHelpEvent;
      FEnableDrops: boolean;
      procedure   SetEnableDrops(const AValue: boolean);
    protected
      FModalResult: TfpgModalResult;
      FParentForm: TfpgBaseForm;
  