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