diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-21 16:35:47 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-28 10:57:21 +0200 |
| commit | 14b833869c02a78c83abeb23ddac3cde95f67df0 (patch) | |
| tree | bc4ba0d55784a7715281ed36bc7906f34806a349 /src/corelib/gdi | |
| parent | c5b6a7fea8272ba12b5d7ed5444402f8a810a065 (diff) | |
| download | fpGUI-14b833869c02a78c83abeb23ddac3cde95f67df0.tar.xz | |
GDI: Implemented DoDragLeave for droptarget
Diffstat (limited to 'src/corelib/gdi')
| -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
|