* Applied label patch from Jean-Marc adding improved Layout, Wraptext and Alignment behavior.

* Removed TfpgLabel.Length property as it's the same functionality as Width property.
* Added the new TfpgLabel properties to the UI Designer.
* Added some minor fixes to TfpgLabel when setting properties via the UI Designer.

1 files changed, 5 insertions, 2 deletions

diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas
index 678de21a..86519d8f 100644
--- a/examples/apps/uidesigner/vfdwidgets.pas
+++ b/examples/apps/uidesigner/vfdwidgets.pas
@@ -225,8 +225,11 @@ begin
   // Label
   wc          := TVFDWidgetClass.Create(TfpgLabel);
   wc.NameBase := 'lblName';
-  wc.AddProperty('Text', TPropertyString, 'Label text');
+  wc.AddProperty('Alignment', TPropertyEnum, 'Horizontal text alignment');
   wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the label text');
+  wc.AddProperty('Layout', TPropertyEnum, 'Vertical text layout');
+  wc.AddProperty('Text', TPropertyString, 'Label text');
+  wc.AddProperty('WrapText', TPropertyBoolean, 'If True text will wrap when it doesn''t fit the width');
   wc.WidgetIconName := 'vfd.label';
   RegisterVFDWidget(wc);
 
@@ -254,7 +257,7 @@ begin
   wc.NameBase := 'btnName';
   wc.AddProperty('Text', TPropertyString, 'Initial text');
   wc.AddProperty('AllowAllUp', TPropertyBoolean, '');
-  wc.AddProperty('Embedded', TPropertyBoolean, '');
+  wc.AddProperty('Embedded', TPropertyBoolean, 'No focus rectangle will be drawn. eg: Toolbar buttons');
   wc.AddProperty('FontDesc', TPropertyString, 'The font used for displaying the text');
   wc.AddProperty('GroupIndex', TPropertyInteger, '');
   wc.AddProperty('ImageMargin', TPropertyInteger, '');