diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2012-07-17 17:31:16 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2012-07-17 17:31:16 +0100 |
commit | a354a18535fa9bdd06efe7d0c8948e110142f6e8 (patch) | |
tree | 32bbbc7bc8a01bd36a2c74510a11ef3073706ab0 /uidesigner | |
parent | 9197d268bf0823d29d86fea3b5e2f6902fc83b5d (diff) | |
download | fpGUI-a354a18535fa9bdd06efe7d0c8948e110142f6e8.tar.xz |
uidesigner: Adds TfpgHyperlink widget to the design palette.
Diffstat (limited to 'uidesigner')
-rw-r--r-- | uidesigner/vfdwidgets.pas | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index b214c774..26efe1e3 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -66,6 +66,7 @@ uses fpg_editbtn, fpg_ColorWheel, fpg_splitter, + fpg_hyperlink, vfdpropeditgrid, vfdmain; @@ -959,6 +960,27 @@ begin wc.WidgetIconName := 'vfd.splitter'; RegisterVFDWidget(wc); + // Hyperlink + wc := TVFDWidgetClass.Create(TfpgHyperlink); + wc.NameBase := 'Hyperlink'; + wc.AddProperty('Align', TPropertyEnum, 'Component alignment'); + wc.AddProperty('Alignment', TPropertyEnum, 'Horizontal text alignment'); + wc.AddProperty('BackgroundColor', TPropertyColor, ''); + wc.AddProperty('Enabled', TPropertyBoolean, ''); + wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the label text'); + wc.AddProperty('Hint', TPropertyString, 'Tooltip hint'); + wc.AddProperty('HotTrackColor', TPropertyColor, 'The color that the text must appear in when the mouse is over the widget.'); + wc.AddProperty('HotTrackFont', TPropertyFontDesc, 'The font that the text must use, when the mouse is over the widget.'); + wc.AddProperty('Layout', TPropertyEnum, 'Vertical text layout'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); + wc.AddProperty('Text', TPropertyString, 'Label text'); + wc.AddProperty('TextColor', TPropertyColor, ''); + wc.AddProperty('URL', TPropertyString, 'The URL that must be opened in the default web browser. If OnClick is specified, then the URL has no affect.'); + wc.AddProperty('WrapText', TPropertyBoolean, 'If True text will wrap when it doesn''t fit the width'); + wc.WidgetIconName := 'vfd.hyperlink'; + RegisterVFDWidget(wc); + // Other - do not delete!!! this should be the last... wc := TVFDWidgetClass.Create(TOtherWidget); wc.NameBase := 'Custom'; |