anchor.diff:      procedure   HandleDNDLeave(Sender: TObject);
       procedure   HandleDNDEnter(Sender: TObject; DataObj: IDataObject; KeyState: Longint; PT: TPoint; var Effect: DWORD);
       procedure   HandleDNDPosition(Sender: TObject; KeyState: Longint; PT: TPoint; var Effect: TfpgOLEDragDropEffect);
  +    procedure   HandleDNDDrop(Sender: TObject; DataObj: IDataObject; KeyState: Longint; PT: TPoint; Effect: TfpgOLEDragDropEffect);
     private
       FMouseInWindow: boolean;
       FNonFullscreenRect: TfpgRect;
  
positive.code:   end;
  end;
  
  function TfpgGDIWindow.GetDropManager: TfpgOLEDropTarget;
  begin
    if not Assigned(FDropManager) then
  
negative.code:     FDropManager.OnDragLeave := @HandleDNDLeave;
      FDropManager.OnDragEnter := @HandleDNDEnter;
      FDropManager.OnDragOver  := @HandleDNDPosition;
      FDropManager.OnDragDrop  := @HandleDNDDrop;
    end;
    Result := FDropManager;
  end;
  