* Updated the UI Designer to use the TfpgPanel and gui_panel unit.

* Minor fixes in the gui_panel default values.

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);