diff options
Diffstat (limited to 'examples/apps/uidesigner')
-rw-r--r-- | examples/apps/uidesigner/vfdfile.pas | 2 | ||||
-rw-r--r-- | examples/apps/uidesigner/vfdmain.pas | 2 | ||||
-rw-r--r-- | examples/apps/uidesigner/vfdwidgets.pas | 11 |
3 files changed, 10 insertions, 5 deletions
diff --git a/examples/apps/uidesigner/vfdfile.pas b/examples/apps/uidesigner/vfdfile.pas index 1f0a96df..8c6ab122 100644 --- a/examples/apps/uidesigner/vfdfile.pas +++ b/examples/apps/uidesigner/vfdfile.pas @@ -357,7 +357,7 @@ begin ' gui_listbox, gui_memo, gui_combobox, gui_basegrid, gui_grid, ' + LineEnding + ' gui_dialogs, gui_checkbox, gui_tree, gui_trackbar, ' + LineEnding + ' gui_progressbar, gui_radiobutton, gui_tab, gui_menu,' + LineEnding + - ' gui_bevel, gui_popupcalendar, gui_gauge;' + LineEnding + LineEnding + + ' gui_panel, gui_popupcalendar, gui_gauge;' + LineEnding + LineEnding + 'type' + LineEnding + LineEnding + '{@VFD_NEWFORM_DECL}' + LineEnding + LineEnding + 'implementation' + LineEnding + LineEnding + diff --git a/examples/apps/uidesigner/vfdmain.pas b/examples/apps/uidesigner/vfdmain.pas index a15790b6..1b139e61 100644 --- a/examples/apps/uidesigner/vfdmain.pas +++ b/examples/apps/uidesigner/vfdmain.pas @@ -32,7 +32,7 @@ uses newformdesigner; const - program_version = '0.6 beta'; + program_version = '0.7 beta'; type diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas index 3dbdfd74..ac415fe3 100644 --- a/examples/apps/uidesigner/vfdwidgets.pas +++ b/examples/apps/uidesigner/vfdwidgets.pas @@ -51,7 +51,7 @@ uses gui_combobox, gui_grid, gui_checkbox, - gui_bevel, + gui_panel, gui_tree, gui_radiobutton, gui_listview, @@ -333,10 +333,15 @@ begin RegisterVFDWidget(wc); // Panel - wc := TVFDWidgetClass.Create(TfpgBevel); + wc := TVFDWidgetClass.Create(TfpgPanel); wc.NameBase := 'pnlName'; - wc.AddProperty('Shape', TPropertyEnum, ''); + wc.AddProperty('Alignment', TPropertyEnum, 'Text alignment'); + wc.AddProperty('Layout', TPropertyEnum, 'Layout of the caption'); + wc.AddProperty('LineSpace', TPropertyInteger, 'Line spacing between wrapped caption'); + wc.AddProperty('Margin', TPropertyInteger, 'Margin of text'); wc.AddProperty('Style', TPropertyEnum, ''); + wc.AddProperty('Text', TPropertyString, 'The panel caption'); + wc.AddProperty('WrapText', TPropertyBoolean, 'Should the panel text be wrapped'); wc.WidgetIconName := 'vfd.panel'; wc.Container := True; RegisterVFDWidget(wc); |