AV - Possible bug in TCustomDropTarget.SetPerformedDropEffect about the-drag-and-drop-component-suite-for-delphi

[brianjford]

SetPerformedDropEffect calls TClipboardFormat.SetData which has these lines in it:

// If we didn't succeed in transfering ownership of the data medium to the
// IDataObject, we must deallocate the medium ourselves.
if (not Result) then
ReleaseStgMedium(AMedium);

The comment there seems to indicate that upon failure it should release the medium (which it does). So it does seem strange to me that once this function returns it goes back to SetPerformedDropEffect which then releases the medium in the non-failure case.. It seems like it should not be released as the IDataObject should have ownership of that medium now.

[landrix]

Can you provide a demo-project?