summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2012-07-17 17:31:16 +0100
committerGraeme Geldenhuys <graemeg@gmail.com>2012-07-17 17:31:16 +0100
commita354a18535fa9bdd06efe7d0c8948e110142f6e8 (patch)
tree32bbbc7bc8a01bd36a2c74510a11ef3073706ab0
parent9197d268bf0823d29d86fea3b5e2f6902fc83b5d (diff)
downloadfpGUI-a354a18535fa9bdd06efe7d0c8948e110142f6e8.tar.xz
uidesigner: Adds TfpgHyperlink widget to the design palette.
-rw-r--r--uidesigner/vfdwidgets.pas22
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';