summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/gui/fpg_form.pas10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas
index 0322050a..f465e09e 100644
--- a/src/gui/fpg_form.pas
+++ b/src/gui/fpg_form.pas
@@ -51,6 +51,8 @@ type
FOnHide: TNotifyEvent;
FOnShow: TNotifyEvent;
FOnHelp: TfpgHelpEvent;
+ FEnableDrops: boolean;
+ procedure SetEnableDrops(const AValue: boolean);
protected
FModalResult: TfpgModalResult;
FParentForm: TfpgBaseForm;
@@ -100,6 +102,7 @@ type
function ShowModal: TfpgModalResult;
procedure Close;
function CloseQuery: boolean; virtual;
+ property EnableDrops: boolean read FEnableDrops write SetEnableDrops;
end;
@@ -185,6 +188,13 @@ end;
{ TfpgBaseForm }
+procedure TfpgBaseForm.SetEnableDrops(const AValue: boolean);
+begin
+ if FEnableDrops = AValue then exit;
+ FEnableDrops := AValue;
+ DoEnableDrops(AValue);
+end;
+
procedure TfpgBaseForm.SetWindowTitle(const ATitle: string);
begin
FWindowTitle := ATitle;