Oops, forgot to commit the TfpgDragBase class from earlier.

1 files changed, 28 insertions, 0 deletions

diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index 1e69a47e..ce9e3727 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -661,6 +661,19 @@ type
     property    HTML: TfpgString read GetHTML write SetHTML;
     property    FormatCount: integer read GetFormatCout;
   end;
+
+  TfpgDragBase = class(TObject)
+  protected
+    FDragging: Boolean;
+    FMimeData: TfpgMimeDataBase;
+  public
+    constructor Create;
+    destructor  Destroy; override;
+    function    Execute(const ADropActions: TfpgDropActions; const ADefaultAction: TfpgDropAction = daCopy): TfpgDropAction; virtual; abstract;
+  end;
+
+
+
 { ********  Helper functions  ******** }
 { Keyboard }
 function  KeycodeToText(AKey: Word; AShiftState: TShiftState): string;
@@ -2891,5 +2904,20 @@ begin
 end;
 
 
+{ TfpgDragBase }
+
+constructor TfpgDragBase.Create;
+begin
+  inherited Create;
+  FDragging := False;
+end;
+
+destructor TfpgDragBase.Destroy;
+begin
+  FMimeData.Free;
+  inherited Destroy;
+end;
+
+
 end.