diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-22 17:28:18 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-28 10:57:22 +0200 |
| commit | 89fff5ef2a0262689b871d5d2717475721f5d3b0 (patch) | |
| tree | cb0a1afdc2a883096713a4331eca60d9194d2a21 | |
| parent | 1835f3a010dfdd252f3776f6aff3d5992391fb05 (diff) | |
| download | fpGUI-89fff5ef2a0262689b871d5d2717475721f5d3b0.tar.xz | |
GDI: Choose a more specific base class for DropTarget reference.
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index 33563935..ce80be83 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -267,7 +267,7 @@ type TGDIDragManager = class(TInterfacedObject, IDropTarget) private - FDropTarget: TObject; { actually a TfpgWidget } + FDropTarget: TfpgWindowBase; { actually a TfpgWidget } FRegistered: boolean; { IDropTarget } function DragEnter(const dataObj: IDataObject; grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult;StdCall; @@ -275,11 +275,11 @@ type function DragLeave: HResult;StdCall; function Drop(const dataObj: IDataObject; grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD):HResult;StdCall; public - constructor Create(ADropTarget: TObject); reintroduce; + constructor Create(ADropTarget: TfpgWindowBase); reintroduce; destructor Destroy; override; procedure RegisterDragDrop; procedure RevokeDragDrop; - property DropTarget: TObject read FDropTarget; { actually a TfpgWidget } + property DropTarget: TfpgWindowBase read FDropTarget; { actually a TfpgWidget } end; |