uidesigner: Adds TfpgHyperlink widget to the design palette.

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';