diff options
Diffstat (limited to 'src/corelib/gdi/fpg_oledragdrop.pas')
| -rw-r--r-- | src/corelib/gdi/fpg_oledragdrop.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/corelib/gdi/fpg_oledragdrop.pas b/src/corelib/gdi/fpg_oledragdrop.pas index 1dce7d6c..39f93570 100644 --- a/src/corelib/gdi/fpg_oledragdrop.pas +++ b/src/corelib/gdi/fpg_oledragdrop.pas @@ -77,6 +77,7 @@ type protected
procedure DoDragEnter(DataObj: IDataObject; KeyState: Longint; PT: TPoint; var Effect: DWORD); virtual;
procedure DoDragOver(KeyState: Longint; PT: TPoint; var Effect: TfpgOLEDragDropEffect); virtual;
+ procedure DoDragLeave;
procedure DoDragDrop(DataObj: IDataObject; KeyState: Longint; PT: TPoint; Effect: TfpgOLEDragDropEffect); virtual;
{ IInterface }
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
@@ -775,6 +776,12 @@ begin end;
end;
+procedure TfpgOLEDropTarget.DoDragLeave;
+begin
+ if Assigned(FOnDragLeave) then
+ FOnDragLeave(self);
+end;
+
procedure TfpgOLEDropTarget.DoDragDrop(DataObj: IDataObject; KeyState: LongInt;
PT: TPoint; Effect: TfpgOLEDragDropEffect);
begin
|