From 89fff5ef2a0262689b871d5d2717475721f5d3b0 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 22 Oct 2010 17:28:18 +0200
Subject: GDI: Choose a more specific base class for DropTarget reference.

---
 src/corelib/gdi/fpg_gdi.pas | 6 +++---
 1 file 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;
 
 
-- 
cgit v1.2.3-70-g09d2