diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-30 10:59:12 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-30 10:59:12 +0200 |
| commit | 2cbe642c56035106d99db0c06fcc30dce2244897 (patch) | |
| tree | df7eee74c3bf41c504edce1ccfeb7bffb85d65ef | |
| parent | c914724da943aa154e1838a339b02746305667db (diff) | |
| download | fpGUI-2cbe642c56035106d99db0c06fcc30dce2244897.tar.xz | |
Removed modal result mrError. It's not needed any more and was a bad design.
| -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; |