diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/corelib/fpg_base.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_form.pas | 3 |
2 files changed, 0 insertions, 4 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 7c62a612..c592e6e7 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -91,7 +91,6 @@ const {$I keys.inc} { TfpgModalResult values } - mrError = -1; mrNone = 0; mrOk = mrNone + 1; mrCancel = mrOk + 1; diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas index 21f934ed..26d24f0d 100644 --- a/src/gui/fpg_form.pas +++ b/src/gui/fpg_form.pas @@ -308,7 +308,6 @@ begin except on E: Exception do begin - ModalResult := mrError; Visible := False; fpgApplication.HandleException(self); end; @@ -418,8 +417,6 @@ end; procedure TfpgBaseForm.Hide; begin Visible := False; - if ModalResult = mrNone then // No modal Result was set, and we need something - ModalResult := mrError; // other than mrNone to exit modal event loop end; procedure TfpgBaseForm.Close; |