diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-14 23:08:35 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-23 16:24:34 +0200 |
| commit | d7b98a6916f67170e14688e7c98a7949a027f9e8 (patch) | |
| tree | 11353a69ff4122bfd7d327cc78d5c45962f3b2bd /src | |
| parent | fc30dea93cf70e2660638e2b5e7e200ea8510e50 (diff) | |
| download | fpGUI-d7b98a6916f67170e14688e7c98a7949a027f9e8.tar.xz | |
Adds OnDragEnter event for TfpgWidget.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_widget.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas index 589ab720..a7c062ee 100644 --- a/src/corelib/fpg_widget.pas +++ b/src/corelib/fpg_widget.pas @@ -34,6 +34,8 @@ type THintEvent = procedure(Sender: TObject; var AHint: TfpgString) of object; + TfpgDragEnterEvent = procedure(Sender, Source: TObject; AMimeList: TStringList; var AMimeChoice: TfpgString; var ADropAction: TfpgDropAction; var Accept: Boolean) of object; + TfpgWidget = class(TfpgWindow) private @@ -41,6 +43,7 @@ type FAlignRect: TfpgRect; FOnClick: TNotifyEvent; FOnDoubleClick: TMouseButtonEvent; + FOnDragEnter: TfpgDragEnterEvent; FOnEnter: TNotifyEvent; FOnExit: TNotifyEvent; FOnMouseDown: TMouseButtonEvent; @@ -169,6 +172,7 @@ type property ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True; property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground; property TextColor: TfpgColor read FTextColor write SetTextColor default clText1; + property OnDragEnter: TfpgDragEnterEvent read FOnDragEnter write FOnDragEnter; end; |