More DND debugging code for TfpgGDIDrag class.

1 files changed, 9 insertions, 0 deletions

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;