From d2dee87211aa3dfc0b56ce5766a2eaa09570d0a5 Mon Sep 17 00:00:00 2001 From: graemeg Date: Wed, 2 Jul 2008 14:27:42 +0000 Subject: * Applied Button patch from Michael van Canneyt. Adding ImageLayout property to Buttons. --- examples/apps/uidesigner/vfdwidgets.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'examples/apps') diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas index 43004722..d47f0d88 100644 --- a/examples/apps/uidesigner/vfdwidgets.pas +++ b/examples/apps/uidesigner/vfdwidgets.pas @@ -261,9 +261,10 @@ procedure RegisterWidgets; wc.AddProperty('Flat', TPropertyBoolean, 'Only draw button borders when mouse hovers over button'); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); wc.AddProperty('GroupIndex', TPropertyInteger, ''); - wc.AddProperty('ImageMargin', TPropertyInteger, ''); + wc.AddProperty('ImageLayout', TPropertyEnum, 'Which side of the button contains the image'); + wc.AddProperty('ImageMargin', TPropertyInteger, 'Space between image and border, -1 centers image/text'); wc.AddProperty('ImageName', TPropertyString, ''); - wc.AddProperty('ImageSpacing', TPropertyInteger, ''); + wc.AddProperty('ImageSpacing', TPropertyInteger, 'Space between image and text, -1 centers text'); wc.AddProperty('ModalResult', TPropertyInteger, ''); wc.AddProperty('ShowImage', TPropertyBoolean, 'Boolean value'); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); -- cgit v1.2.3-54-g00ecf