From bda7ccb8e5920125cde97dd8f1ef0af25ad39804 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 28 Oct 2010 00:29:16 +0200 Subject: TfpgDrag.Execute now has a default TfpgDropAction drop action of daCopy. --- src/corelib/fpg_main.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/corelib') diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index 8ae6da5e..25e8806d 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -346,7 +346,7 @@ type function GetSource: TfpgWindow; reintroduce; public constructor Create(ASource: TfpgWindow); - function Execute(const ADropActions: TfpgDropActions; const ADefaultAction: TfpgDropAction = daCopy): TfpgDropAction; override; + function Execute(const ADropActions: TfpgDropActions = [daCopy]; const ADefaultAction: TfpgDropAction = daCopy): TfpgDropAction; override; property Source: TfpgWindow read GetSource; property Target: TfpgWinHandle read FTarget write FTarget; property MimeData: TfpgMimeDataBase read FMimeData write SetMimeData; -- cgit v1.2.3-70-g09d2