From 1bfb9a35d6d597a9691777dfc6b757a4366b88e3 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 29 Oct 2010 12:39:38 +0200
Subject: More DND debugging code for TfpgGDIDrag class.

---
 src/corelib/gdi/fpg_gdi.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index c1560042..e4cea8a5 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -274,6 +274,7 @@ type
     FSource: TfpgGDIWindow;
     function    GetSource: TfpgGDIWindow; virtual;
   public
+    destructor  Destroy; override;
     function    Execute(const ADropActions: TfpgDropActions; const ADefaultAction: TfpgDropAction=daCopy): TfpgDropAction; override;
   end;
 
@@ -2791,6 +2792,14 @@ begin
   Result := FSource;
 end;
 
+destructor TfpgGDIDrag.Destroy;
+begin
+  {$IFDEF DND_DEBUG}
+  writeln('TfpgGDIDrag.Destroy ');
+  {$ENDIF}
+  inherited Destroy;
+end;
+
 function TfpgGDIDrag.Execute(const ADropActions: TfpgDropActions; const ADefaultAction: TfpgDropAction): TfpgDropAction;
 var
   dwEffect: DWORD;
-- 
cgit v1.2.3-70-g09d2