pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix av when destroying a instance that created a drag manager under qt

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@420 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-12 21:45:28 +00:00
parent c42a0a1751
commit 46fd53ba72
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-unstable/include/intf/dummydragmanager.inc
View File

@ -603,9 +603,9 @@ constructor TVTDragManager.Create(AOwner: TBaseVirtualTree);
begin begin
inherited Create; inherited Create;
{
FOwner := AOwner;
FOwner := AOwner;
{
// Create an instance of the drop target helper interface. This will fail but not harm on systems which do // Create an instance of the drop target helper interface. This will fail but not harm on systems which do
// not support this interface (everything below Windows 2000); // not support this interface (everything below Windows 2000);
CoCreateInstance(CLSID_DragDropHelper, nil, CLSCTX_INPROC_SERVER, IID_IDropTargetHelper, FDropTargetHelper); CoCreateInstance(CLSID_DragDropHelper, nil, CLSCTX_INPROC_SERVER, IID_IDropTargetHelper, FDropTargetHelper);