From da58a092fdedcbbaf508952e3dc9e354f9bdedc0 Mon Sep 17 00:00:00 2001 From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> Date: Mon, 10 Mar 2008 10:53:42 +0000 Subject: * 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. --- examples/apps/uidesigner/vfdwidgets.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'examples') 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, ''); -- cgit v1.2.3-70-g09d2