diff options
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 9 |
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; |