diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-07 12:32:59 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-07 12:32:59 +0200 |
| commit | 2b0bb6d1167e479404bd5d616f4d6155b1a92255 (patch) | |
| tree | 364ebdb5572305754a0fb383b08e9240fb946abe /uidesigner/vfdforms.pas | |
| parent | 063cf4313bff63e6ec61596e681ac9674b1b7a49 (diff) | |
| download | fpGUI-2b0bb6d1167e479404bd5d616f4d6155b1a92255.tar.xz | |
ModalResult changed to a enum type
* Replaced all magic number modal results with actual enum values
* UI Designer now uses enum combolist for ModalResult type in
Object Inspector.
* UI Designer now handles default values of ModalResult property correctly.
Diffstat (limited to 'uidesigner/vfdforms.pas')
| -rw-r--r-- | uidesigner/vfdforms.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas index 00bb3e38..ec60265d 100644 --- a/uidesigner/vfdforms.pas +++ b/uidesigner/vfdforms.pas @@ -364,9 +364,9 @@ var begin if Sender = btnOK then - ModalResult := 1 + ModalResult := mrOK else if Sender = btnCancel then - ModalResult := 2 + ModalResult := mrCancel else begin // up / down @@ -512,7 +512,7 @@ begin FontDesc := '#Label1'; Hint := ''; ImageName := 'stdimg.cancel'; - ModalResult := -1; + ModalResult := mrCancel; TabOrder := 7; end; |