anchor.diff:      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
  
positive.code: var
    wg: TfpgWidget;
  begin
    wg := self as TfpgWidget;
    if wg.AcceptDrops then  { if we get here, this should always be true anyway }
    begin
  
negative.code:   private
      FDropManager: TfpgOLEDropTarget;
      FDropPos: TPoint;
      FUserMimeSelection: TfpgString;
      FUserAcceptDrag: Boolean;
      function    GetDropManager: TfpgOLEDropTarget;
      procedure   HandleDNDLeave(Sender: TObject);
      procedure   HandleDNDEnter(Sender: TObject; DataObj: IDataObject; KeyState: Longint; PT: TPoint; var Effect: DWORD);
  