Issue #1138: Removed duplicate definition of IVTDragManager

JAM-Software · Feb 11, 2023 · a6d1469 · a6d1469
1 parent 0ee6112
commit a6d1469
Showing 1 changed file with 0 additions and 24 deletions.
diff --git a/Source/VirtualTrees.DragnDrop.pas b/Source/VirtualTrees.DragnDrop.pas
@@ -27,22 +27,6 @@   TEnumFormatEtc = class(TInterfacedObject, IEnumFormatEtc)
     function Skip(celt : Integer) : HResult; stdcall;
   end;
 
-  // ----- OLE drag'n drop handling
-
-  IVTDragManager = interface(IUnknown)
-    ['{C4B25559-14DA-446B-8901-0C879000EB16}']
-    procedure ForceDragLeave; stdcall;
-    function GetDataObject : IDataObject; stdcall;
-    function GetDragSource : TBaseVirtualTree; stdcall;
-    function GetDropTargetHelperSupported : Boolean; stdcall;
-    function GetIsDropTarget : Boolean; stdcall;
-
-    property DataObject : IDataObject read GetDataObject;
-    property DragSource : TBaseVirtualTree read GetDragSource;
-    property DropTargetHelperSupported : Boolean read GetDropTargetHelperSupported;
-    property IsDropTarget : Boolean read GetIsDropTarget;
-  end;
-
   // TVTDragManager is a class to manage drag and drop in a Virtual Treeview.
   TVTDragManager = class(TInterfacedObject, IVTDragManager, IDropSource, IDropTarget)
   private
@@ -55,7 +39,6 @@   TVTDragManager = class(TInterfacedObject, IVTDragManager, IDropSource, IDropTa
 
     function GetDataObject : IDataObject; stdcall;
     function GetDragSource : TBaseVirtualTree; stdcall;
-    function GetDropTargetHelperSupported : Boolean; stdcall;
     function GetIsDropTarget : Boolean; stdcall;
   public
     constructor Create(AOwner : TBaseVirtualTree); virtual;
@@ -225,13 +208,6 @@ function TVTDragManager.GetDragSource : TBaseVirtualTree;
 
 //----------------------------------------------------------------------------------------------------------------------
 
-function TVTDragManager.GetDropTargetHelperSupported : Boolean;
-begin
-  Result := Assigned(FDropTargetHelper);
-end;
-
-//----------------------------------------------------------------------------------------------------------------------
-
 function TVTDragManager.GetIsDropTarget : Boolean;
 begin
   Result := FIsDropTarget;