diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-05 17:00:33 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-05 17:00:33 +0200 |
| commit | 6de2b6ae099ab630e8ef5a9718540754e2c93531 (patch) | |
| tree | 4f2a8e5bfc6c8eb6fabe98205ae12dcdae15814f /src/gui/inputquerydialog.inc | |
| parent | 823bd4c35e69fc8fba8c563d729a2ca248c18744 (diff) | |
| download | fpGUI-6de2b6ae099ab630e8ef5a9718540754e2c93531.tar.xz | |
Input Query Dialog: minor bug fix - now only sets return Value if OK was clicked.
Diffstat (limited to 'src/gui/inputquerydialog.inc')
| -rw-r--r-- | src/gui/inputquerydialog.inc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/gui/inputquerydialog.inc b/src/gui/inputquerydialog.inc index e7769246..094a58e2 100644 --- a/src/gui/inputquerydialog.inc +++ b/src/gui/inputquerydialog.inc @@ -48,8 +48,10 @@ begin try dlg.WindowTitle := ACaption; dlg.lblText.Text := APrompt; + dlg.edtText.Text := Value; Result := dlg.ShowModal = mrOK; - Value := dlg.edtText.Text; + if Result then + Value := dlg.edtText.Text; finally dlg.Free; end; |