anchor.diff:    FDropPos.x := 0;
     FDropPos.y := 0;
     FFullscreenIsSet := false;
  +  FUserMimeSelection := '';
  +  FUserAcceptDrag := False;
   end;
   
   destructor TfpgGDIWindow.Destroy;
  
positive.code: 
  end;
  
  constructor TGDIDragManager.Create(ADropTarget: TObject);
  begin
    inherited Create;
    FDropTarget := ADropTarget;
  
negative.code:     if not lAccept then
        Effect := DROPEFFECT_NONE
      else
      begin
        Effect := TranslateToWinDragEffect(lDropAction);
        FUserMimeSelection := lMimeChoice;
        FUserAcceptDrag := True;
      end;
  
      { Notify widget of drag status, so it can update its look }
      if lAccept then
  