diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-22 17:24:40 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-28 10:57:21 +0200 |
| commit | 93178a594eeac26ceb2d2b0a122f1c9124b2143b (patch) | |
| tree | 94fcfe3eeb210a43fc6839b9bcbf52402f56739a | |
| parent | 90ba379b6ee18be060051eee83e14eb26bf1770b (diff) | |
| download | fpGUI-93178a594eeac26ceb2d2b0a122f1c9124b2143b.tar.xz | |
interface implementation methods can be private. We only work with
the interface anyway, not an actual object instance.
| -rw-r--r-- | src/corelib/gdi/fpg_oledragdrop.pas | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/corelib/gdi/fpg_oledragdrop.pas b/src/corelib/gdi/fpg_oledragdrop.pas index 39f93570..7bf2b997 100644 --- a/src/corelib/gdi/fpg_oledragdrop.pas +++ b/src/corelib/gdi/fpg_oledragdrop.pas @@ -74,11 +74,7 @@ type FOnDragOver: TfpgOLEDragOverEvent;
FOnDragLeave: TNotifyEvent;
FOnDragDrop: TfpgOLEDragDropEvent;
- 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;
+ private
{ IInterface }
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
@@ -88,6 +84,11 @@ type function DragOver(grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult; stdcall;
function DragLeave: HResult; stdcall;
function Drop(const dataObj: IDataObject; grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult; stdcall;
+ 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;
public
property OnDragEnter: TfpgOLEDragEnterEvent read FOnDragEnter write FOnDragEnter;
property OnDragOver: TfpgOLEDragOverEvent read FOnDragOver write FOnDragOver;
|