diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-10-03 21:56:15 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-10-03 21:56:15 +0200 |
| commit | 636c0d92e030ca7168d5b9785a9702d0927a3df6 (patch) | |
| tree | 84e16b17a6d9aa2061b2d228f50f0adaa3111c99 /uidesigner/vfdforms.pas | |
| parent | 42fd9a1e64bcbeda87e5c72ffd91fefdc0549ca3 (diff) | |
| download | fpGUI-636c0d92e030ca7168d5b9785a9702d0927a3df6.tar.xz | |
uidesigner now gives better default form names and detects conflicts
* Form name conflicts are now detected and creation of that new
form is stopped before causing harm.
* No default form name is given any more in the name prompt dialog
because the new form will already be named 'FormX' where X is
the next available number.
Diffstat (limited to 'uidesigner/vfdforms.pas')
| -rw-r--r-- | uidesigner/vfdforms.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas index 626c9cad..00e90855 100644 --- a/uidesigner/vfdforms.pas +++ b/uidesigner/vfdforms.pas @@ -187,7 +187,7 @@ begin l1 := CreateLabel(self, 8, 8, 'Form name:'); edName := CreateEdit(self, 8, 28, 180, 0); - edName.Text := 'frm'; + edName.Text := ''; edName.OnKeyPress := @OnedNameKeyPressed; btnOK := CreateButton(self, 196, 8, 80, rsOK, @OnButtonClick); btnCancel := CreateButton(self, 196, 36, 80, rsCancel, @OnButtonClick); |