diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2014-10-19 09:36:54 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-10-19 09:36:54 +0100 |
| commit | 4230124c725ac9287a428a06edab776df0e5f3a8 (patch) | |
| tree | 56c301ce2a914c6f478662ba993d64fa6a0eb3e8 | |
| parent | 1cbf064db5130438cbc7153f121b535fcea56e41 (diff) | |
| download | fpGUI-4230124c725ac9287a428a06edab776df0e5f3a8.tar.xz | |
uidesigner: Tab/Widget Order forms now show selected form's name
| -rw-r--r-- | uidesigner/vfddesigner.pas | 4 | ||||
| -rw-r--r-- | uidesigner/vfdforms.pas | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index aff9d543..0de305cb 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -683,7 +683,7 @@ var begin frm := TWidgetOrderForm.Create(nil); frm.WindowTitle := cEditOrder[AMode]; - frm.Title := cEditOrder[AMode]; + frm.Title := maindsgn.selectedform.Form.Name; frm.Treeview1.RootNode.Clear; lFocused := nil; diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas index ba16fd24..ea7265df 100644 --- a/uidesigner/vfdforms.pas +++ b/uidesigner/vfdforms.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -293,7 +293,6 @@ procedure TWidgetOrderForm.SetupCaptions; begin inherited SetupCaptions; WindowTitle := rsDlgWidgetOrder; - lblTitle.Text := fpgAddColon(rsFormTitle); btnOK.Text := rsOK; btnCancel.Text := rsCancel; btnUp.Text := rsUp; @@ -330,7 +329,7 @@ begin SetPosition(4, 4, 248, 16); FontDesc := '#Label1'; Hint := ''; - Text := 'Form %s:'; + Text := 'Form: %s'; end; btnOK := TfpgButton.Create(self); |