diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 07:52:15 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 07:52:15 +0000 |
commit | 8c4b085a78dccc8f5e5fe429a360ad456175b173 (patch) | |
tree | 4ef4f8b50e382ec81c6bb367a09d470069783283 /examples/apps/uidesigner/vfdwidgets.pas | |
parent | 4296554992d2c56360ef23f5ada4c966b9fa157c (diff) | |
download | fpGUI-8c4b085a78dccc8f5e5fe429a360ad456175b173.tar.xz |
* GUI: Rename the Checkbox property FontName to FontDesc to be consistent with
the rest of the fpGUI controls.
* GUI: Introduced FontDesc and HeaderFontDesc properties in TfpgBaseGrid and
published them in descendant components.
* GUI Designer: All newly placed components now default to the Delphi coding
standards component prefixes.
Diffstat (limited to 'examples/apps/uidesigner/vfdwidgets.pas')
-rw-r--r-- | examples/apps/uidesigner/vfdwidgets.pas | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas index c628ebf0..3794586c 100644 --- a/examples/apps/uidesigner/vfdwidgets.pas +++ b/examples/apps/uidesigner/vfdwidgets.pas @@ -169,33 +169,33 @@ begin // Label wc := TVFDWidgetClass.Create(TfpgLabel); - wc.NameBase := 'lb'; + wc.NameBase := 'lblName'; wc.AddProperty('Text', TPropertyString, 'Label text'); - wc.AddProperty('FontDesc', TPropertyString, 'The font used displaying the label text'); + wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the label text'); wc.WidgetIconName := 'vfd.label'; RegisterVFDWidget(wc); // Edit wc := TVFDWidgetClass.Create(TfpgEdit); - wc.NameBase := 'ed'; + wc.NameBase := 'edtName'; wc.AddProperty('Text', TPropertyString, 'Initial text'); - wc.AddProperty('FontDesc', TPropertyString, 'The font used displaying the text'); + wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the text'); wc.WidgetIconName := 'vfd.edit'; RegisterVFDWidget(wc); // Memo wc := TVFDWidgetClass.Create(TfpgMemo); - wc.NameBase := 'memo'; + wc.NameBase := 'memName'; wc.AddProperty('Lines', TPropertyStringList, ''); - wc.AddProperty('FontDesc', TPropertyString, 'The font used displaying the text'); + wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the text'); wc.WidgetIconName := 'vfd.memo'; RegisterVFDWidget(wc); // Button wc := TVFDWidgetClass.Create(TfpgButton); - wc.NameBase := 'btn'; + wc.NameBase := 'btnName'; wc.AddProperty('Text', TPropertyString, 'Initial text'); - wc.AddProperty('FontDesc', TPropertyString, 'The font used displaying the text'); + wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the text'); wc.AddProperty('ImageName', TPropertyString, ''); // wc.AddProperty('ShowImage', TPropertyEnum, ''); wc.AddProperty('ModalResult', TPropertyInteger, ''); @@ -204,42 +204,42 @@ begin // CheckBox wc := TVFDWidgetClass.Create(TfpgCheckBox); - wc.NameBase := 'cb'; + wc.NameBase := 'cbName'; wc.AddProperty('Text', TPropertyString, 'Initial text'); - wc.AddProperty('FontDesc', TPropertyString, 'The font used displaying the text'); + wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the text'); wc.WidgetIconName := 'vfd.checkbox'; RegisterVFDWidget(wc); - // ChoiceList + // ComboBox wc := TVFDWidgetClass.Create(TfpgComboBox); - wc.NameBase := 'chl'; + wc.NameBase := 'cbName'; //wc.AddProperty('Text',TPropertyString16,''); wc.AddProperty('Items', TPropertyStringList, ''); - wc.AddProperty('FontDesc', TPropertyString, 'The font used displaying the text'); + wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the text'); wc.WidgetIconName := 'vfd.choicelist'; RegisterVFDWidget(wc); - // TextListBox + // ListBox wc := TVFDWidgetClass.Create(TfpgListBox); - wc.NameBase := 'lst'; + wc.NameBase := 'lstName'; //wc.AddProperty('Text',TPropertyString16,''); wc.AddProperty('Items', TPropertyStringList, ''); - wc.AddProperty('FontDesc', TPropertyString, 'The font used displaying the text'); + wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the text'); wc.WidgetIconName := 'vfd.listbox'; RegisterVFDWidget(wc); // StringGrid wc := TVFDWidgetClass.Create(TfpgStringGrid); - wc.NameBase := 'grid'; + wc.NameBase := 'grdName'; // wc.AddProperty('Columns',TPropertyDBColumns,''); wc.AddProperty('FontDesc',TPropertyString,''); - wc.AddProperty('HeaderFontName',TPropertyString,''); + wc.AddProperty('HeaderFontDesc',TPropertyString,''); wc.WidgetIconName := 'vfd.dbgrid'; RegisterVFDWidget(wc); // Panel wc := TVFDWidgetClass.Create(TfpgBevel); - wc.NameBase := 'panel'; + wc.NameBase := 'pnlName'; wc.AddProperty('shape', TPropertyEnum, ''); wc.AddProperty('style', TPropertyEnum, ''); wc.WidgetIconName := 'vfd.panel'; @@ -248,7 +248,7 @@ begin // Other - do not delete!!! this should be the last... wc := TVFDWidgetClass.Create(TOtherWidget); - wc.NameBase := 'wg'; + wc.NameBase := 'Custom'; wc.WidgetIconName := 'vfd.other'; RegisterVFDWidget(wc); VFDOtherWidget := wc; |