* Published ShowHint and ParentShowHint for all gui components.

* UI Designer: Updated the designer to support ShowHint and ParentShowHint properties.
* Updated the ShowHint property in TfpgWidget to use the stored property specifier.

22 files changed, 119 insertions, 79 deletions

diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index 1e945c19..5ce5bd9e 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -35,6 +35,7 @@ type
     FOnResize: TNotifyEvent;
     FOnScreen: boolean;
     procedure   SetActiveWidget(const AValue: TfpgWidget);
+    function    IsShowHintStored: boolean;
   protected
     procedure   MsgPaint(var msg: TfpgMessageRec); message FPGM_PAINT;
     procedure   MsgResize(var msg: TfpgMessageRec); message FPGM_RESIZE;
@@ -135,7 +136,7 @@ type
     property    Anchors: TAnchors read FAnchors write FAnchors;
     property    Align: TAlign read FAlign write FAlign;
     property    Hint: string read FHint write FHint;
-    property    ShowHint: boolean read FShowHint write SetShowHint default False;
+    property    ShowHint: boolean read FShowHint write SetShowHint stored IsShowHintStored;
     property    ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True;
     property    BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground;
     property    TextColor: TfpgColor read FTextColor write SetTextColor default clText1;
@@ -197,6 +198,11 @@ begin
     FActiveWidget.HandleSetFocus;
 end;
 
+function TfpgWidget.IsShowHintStored: boolean;
+begin
+  Result := not ParentShowHint;
+end;
+
 procedure TfpgWidget.SetVisible(const AValue: boolean);
 begin
   if FVisible = AValue then
@@ -224,6 +230,8 @@ procedure TfpgWidget.SetParentShowHint(const AValue: boolean);
 begin
   if FParentShowHint <> AValue then
     FParentShowHint := AValue;
+  if FParentShowHint then
+    FShowHint := False;
 end;
 
 procedure TfpgWidget.DoUpdateWindowPosition;
diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas
index 6c7a3971..cd1ad1eb 100644
--- a/src/gui/gui_button.pas
+++ b/src/gui/gui_button.pas
@@ -130,6 +130,7 @@ type
     property    ImageName;
     property    ImageSpacing;
     property    ModalResult;
+    property    ParentShowHint;
     property    ShowHint;
     property    ShowImage;
     property    Text;
diff --git a/src/gui/gui_checkbox.pas b/src/gui/gui_checkbox.pas
index f0013043..412f77d6 100644
--- a/src/gui/gui_checkbox.pas
+++ b/src/gui/gui_checkbox.pas
@@ -57,6 +57,8 @@ type
     property    BackgroundColor;
     property    Checked: boolean read FChecked write SetChecked default False;
     property    FontDesc: string read GetFontDesc write SetFontDesc;
+    property    ParentShowHint;
+    property    ShowHint;
     property    TabOrder;
     property    Text: string read FText write SetText;
     property    TextColor;
diff --git a/src/gui/gui_combobox.pas b/src/gui/gui_combobox.pas
index dbd07504..f4a4ecc0 100644
--- a/src/gui/gui_combobox.pas
+++ b/src/gui/gui_combobox.pas
@@ -138,6 +138,8 @@ type
     property    Height;
     property    Items;
     property    Options;
+    property    ParentShowHint;
+    property    ShowHint;
     property    TabOrder;
     property    Text;
     property    TextColor;
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas
index dd789a32..178cf1e7 100644
--- a/src/gui/gui_edit.pas
+++ b/src/gui/gui_edit.pas
@@ -127,6 +127,8 @@ type
     property    HideSelection;
     property    MaxLength;
     property    PasswordMode;
+    property    ParentShowHint;
+    property    ShowHint;
     property    TabOrder;
     property    Text;
     property    TextColor;
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index f58d08f9..fc2bdfad 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -100,6 +100,7 @@ type
     property    FullScreen;
     property    ModalResult;
     property    Sizeable;
+    property    ShowHint;
     property    TextColor;
     property    WindowPosition;
     property    WindowTitle;
diff --git a/src/gui/gui_gauge.pas b/src/gui/gui_gauge.pas
index b3685d50..97da4eb9 100644
--- a/src/gui/gui_gauge.pas
+++ b/src/gui/gui_gauge.pas
@@ -83,15 +83,17 @@ type
   published
     property    Align;
     property    Anchors;
-    property    SecondColor: TfpgColor read FSecondColor write SetSecondColor default clWhite;
     property    BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
     property    Color: TfpgColor read FColor write FColor default clButtonFace;
     property    Enabled;
     property    FirstColor: TfpgColor read FFirstColor write SetFirstColor default clBlack;
     property    Kind: TGaugeKind read FKind write SetGaugeKind default gkHorizontalBar;
-    property    MinValue: Longint read FMin write SetMin default 0;
     property    MaxValue: Longint read FMax write SetMax default 100;
+    property    MinValue: Longint read FMin write SetMin default 0;
+    property    ParentShowHint;
     property    Progress: Longint read FPosition write SetProgress;
+    property    SecondColor: TfpgColor read FSecondColor write SetSecondColor default clWhite;
+    property    ShowHint;
     property    ShowText: Boolean read FShowText write SetShowText default True;
     property    Visible;
   end;
diff --git a/src/gui/gui_grid.pas b/src/gui/gui_grid.pas
index 489da421..6d343f24 100644
--- a/src/gui/gui_grid.pas
+++ b/src/gui/gui_grid.pas
@@ -133,11 +133,13 @@ type
     property    HeaderFontDesc;
     property    HeaderHeight;
     property    Options;
+    property    ParentShowHint;
     property    RowCount;
     property    RowSelect;
     property    ScrollBarStyle;
     property    ShowGrid;
     property    ShowHeader;
+    property    ShowHint;
     property    TabOrder;
     property    TopRow;
     property    VisibleRows;
diff --git a/src/gui/gui_label.pas b/src/gui/gui_label.pas
index 58808020..ed7ade85 100644
--- a/src/gui/gui_label.pas
+++ b/src/gui/gui_label.pas
@@ -75,6 +75,7 @@ type
     property    Hint;
     property    Layout;
     property    LineSpace;
+    property    ParentShowHint;
     property    ShowHint;
     property    Text;
     property    TextColor;
diff --git a/src/gui/gui_listbox.pas b/src/gui/gui_listbox.pas
index 0db01afd..67803847 100644
--- a/src/gui/gui_listbox.pas
+++ b/src/gui/gui_listbox.pas
@@ -131,7 +131,9 @@ type
     property    FontDesc;
     property    HotTrack;
     property    Items;
+    property    ParentShowHint;
     property    PopupFrame;
+    property    ShowHint;
     property    TabOrder;
     property    TextColor;
   end;
diff --git a/src/gui/gui_listview.pas b/src/gui/gui_listview.pas
index 094f8281..45e51fcc 100644
--- a/src/gui/gui_listview.pas
+++ b/src/gui/gui_listview.pas
@@ -247,15 +247,17 @@ type
     function    ItemAdd: TfpgLVItem;
   published
     property    Columns: TfpgLVColumns read FColumns;
-    property    Items: TfpgLVItems read FItems write SetItems;
-    property    SelectionFollowsFocus: Boolean read FSelectionFollowsFocus write FSelectionFollowsFocus;
-    property    ShowHeaders: Boolean read FShowHeaders write SetShowHeaders;
-    property    MultiSelect: Boolean read FMultiSelect write SetMultiSelect;
-    property    VScrollBar: TfpgScrollBar read FVScrollBar;
     property    HScrollBar: TfpgScrollBar read FHScrollBar;
     property    ItemHeight: Integer read GetItemHeight;
     property    ItemIndex: Integer read FItemIndex write SetItemIndex;
+    property    Items: TfpgLVItems read FItems write SetItems;
+    property    MultiSelect: Boolean read FMultiSelect write SetMultiSelect;
+    property    ParentShowHint;
+    property    SelectionFollowsFocus: Boolean read FSelectionFollowsFocus write FSelectionFollowsFocus;
+    property    ShowHeaders: Boolean read FShowHeaders write SetShowHeaders;
+    property    ShowHint;
     property    TabOrder;
+    property    VScrollBar: TfpgScrollBar read FVScrollBar;
     property    OnColumnClick: TfpgLVColumnClickEvent read FOnColumnClick write SetOnColumnClick;
     property    OnPaintColumn: TfpgLVPaintColumnEvent read FOnPaintColumn write FOnPaintColumn;
     property    OnPaintItem: TfpgLVPaintItemEvent read FOnPaintItem write FOnPaintItem;
diff --git a/src/gui/gui_memo.pas b/src/gui/gui_memo.pas
index afd9d4fb..e4f56ccb 100644
--- a/src/gui/gui_memo.pas
+++ b/src/gui/gui_memo.pas
@@ -106,6 +106,8 @@ type
     property    BackgroundColor default clBoxColor;
     property    FontDesc: string read GetFontDesc write SetFontDesc;
     property    Lines: TStringList read FLines;
+    property    ParentShowHint;
+    property    ShowHint;
     property    TabOrder;
     property    TextColor;
     property    OnChange: TNotifyEvent read FOnChange write FOnChange;
diff --git a/src/gui/gui_panel.pas b/src/gui/gui_panel.pas
index 3ea6c4a5..da9e1875 100644
--- a/src/gui/gui_panel.pas
+++ b/src/gui/gui_panel.pas
@@ -63,7 +63,9 @@ type
   published
     property    BackgroundColor;
     property    BorderStyle;
+    property    ParentShowHint;
     property    Shape: TPanelShape read FPanelShape write SetPanelShape default bsBox;
+    property    ShowHint;
     property    Style;
     property    OnClick;
     property    OnDoubleClick;
@@ -108,6 +110,8 @@ type
     property    BorderStyle;
     property    FontDesc: string read GetFontDesc write SetFontDesc;
     property    Layout: TLayout read GetLayout write SetLayout default tlCenter;
+    property    ParentShowHint;
+    property    ShowHint;
     property    Style;
     property    Text: string read GetText write SetText;
     property    TextColor;
diff --git a/src/gui/gui_popupcalendar.pas b/src/gui/gui_popupcalendar.pas
index 6ee37019..b9915457 100644
--- a/src/gui/gui_popupcalendar.pas
+++ b/src/gui/gui_popupcalendar.pas
@@ -140,6 +140,8 @@ type
     property    FontDesc;
     property    MinDate: TDateTime read FMinDate write SetMinDate;
     property    MaxDate: TDateTime read FMaxDate write SetMaxDate;
+    property    ParentShowHint;
+    property    ShowHint;
     { Clicking on calendar Today button will close the popup calendar by default }
     property    CloseOnSelect: boolean read FCloseOnSelect write SetCloseOnSelect default True;
     property    TabOrder;
diff --git a/src/gui/gui_progressbar.pas b/src/gui/gui_progressbar.pas
index d6d25b60..a0c0491f 100644
--- a/src/gui/gui_progressbar.pas
+++ b/src/gui/gui_progressbar.pas
@@ -64,7 +64,9 @@ type
     property    ShowCaption;
     property    Max;
     property    Min;
+    property    ParentShowHint;
     property    Position;
+    property    ShowHint;
     property    Step;
     property    TextColor;
   end;
diff --git a/src/gui/gui_radiobutton.pas b/src/gui/gui_radiobutton.pas
index 445ac44d..33b76bd2 100644
--- a/src/gui/gui_radiobutton.pas
+++ b/src/gui/gui_radiobutton.pas
@@ -65,6 +65,8 @@ type
     property    Checked: boolean read FChecked write SetChecked default False;
     property    FontDesc: string read GetFontDesc write SetFontDesc;
     property    GroupIndex: integer read FGroupIndex write FGroupIndex;
+    property    ParentShowHint;
+    property    ShowHint;
     property    TabOrder;
     property    Text: string read FText write SetText;
     property    TextColor;
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas
index a26d1590..b39863c6 100644
--- a/src/gui/gui_tab.pas
+++ b/src/gui/gui_tab.pas
@@ -125,6 +125,8 @@ type
     property    ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex;
     property    BackgroundColor;
     property    FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0;
+    property    ParentShowHint;
+    property    ShowHint;
     property    SortPages: boolean read FSortPages write SetSortPages default False;
     property    Style: TfpgTabStyle read FStyle write SetStyle default tsTabs;
     property    TabOrder;
diff --git a/src/gui/gui_trackbar.pas b/src/gui/gui_trackbar.pas
index c76debe4..08d9b5fe 100644
--- a/src/gui/gui_trackbar.pas
+++ b/src/gui/gui_trackbar.pas
@@ -117,6 +117,8 @@ type
     property    ScrollStep: integer read FScrollStep write FScrollStep default 1;
     property    Min: integer read FMin write SetMin default 0;
     property    Max: integer read FMax write SetMax default 100;
+    property    ParentShowHint;
+    property    ShowHint;
     property    ShowPosition: boolean read FShowPosition write SetShowPosition default False;
     property    Orientation: TOrientation read FOrientation write FOrientation default orHorizontal;
     property    TabOrder;
diff --git a/src/gui/gui_tree.pas b/src/gui/gui_tree.pas
index 2beb35de..8571f89b 100644
--- a/src/gui/gui_tree.pas
+++ b/src/gui/gui_tree.pas
@@ -222,8 +222,10 @@ type
     property    FontDesc: string read GetFontDesc write SetFontDesc;
     property    IndentNodeWithNoImage: boolean read FIndentNodeWithNoImage write SetIndentNodeWithNoImage default True;
     property    NoImageIndent: integer read FNoImageIndent write FNoImageIndent default 16;
+    property    ParentShowHint;
     property    ScrollWheelDelta: integer read FScrollWheelDelta write FScrollWheelDelta default 15;
     property    ShowColumns: boolean read FShowColumns write SetShowColumns default False;
+    property    ShowHint;
     property    ShowImages: boolean read FShowImages write SetShowImages default False;
     property    TabOrder;
     property    TreeLineColor: TfpgColor read FTreeLineColor write SetTreeLineColor default clShadow1;
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas
index f8bb23af..ee1c4477 100644
--- a/uidesigner/vfddesigner.pas
+++ b/uidesigner/vfddesigner.pas
@@ -892,68 +892,6 @@ begin
     btnAnRight.Down  := anRight in wg.Anchors;
     btnAnBottom.Down := anBottom in wg.Anchors;
   end;
-
-  Exit;
-  {
-  with PropertyForm do
-  begin
-    if wg is TOtherWidget then lbClass.Text8 := TOtherWidget(wg).wgClassName
-                          else lbClass.Text8 := wg.ClassName;
-
-    edName.Text8 := wg.Name;
-
-    lbLeft.Text8 := IntToStr(wg.Left);
-    lbTop.Text8 := IntToStr(wg.Top);
-    lbWidth.Text8 := IntToStr(wg.Width);
-    lbHeight.Text8 := IntToStr(wg.Height);
-
-    cbAL.Checked := anLeft in wg.Anchors;
-    cbAT.Checked := anTop in wg.Anchors;
-    cbAR.Checked := anRight in wg.Anchors;
-    cbAB.Checked := anBottom in wg.Anchors;
-
-    btxt  := true;
-    bedit := false;
-    lbText.Text := u8('Text:');
-
-    if wg is TGfxForm then edText.Text := TGfxForm(wg).WindowTitle
-    else if wg is TwgLabel then edText.Text := TwgLabel(wg).Text
-    else if wg is TwgEdit  then edText.Text := TwgEdit(wg).Text
-    else if wg is TwgButton then edText.Text := TwgButton(wg).Text
-    else if wg is TwgCheckBox then edText.Text := TwgCheckBox(wg).Text
-    else btxt := false;
-
-    if not btxt and ((wg is TwgMemo) or (wg is TwgChoiceList) or (wg is TwgTextListBox))
-    then
-    begin
-      bedit := true;
-      lbText.Text := u8('Items:');
-      btnEdit.Text := u8('Edit items...');
-    end
-    else if (wg is TwgDBGrid) then
-    begin
-      bedit := true;
-      //lbText.Text := u8('Items:');
-      btnEdit.Text := u8('Edit columns...');
-    end;
-
-    if scd <> nil then
-    begin
-      edOther.Text := str8to16(scd.other.Text);
-    end
-    else
-    begin
-      edOther.Text := str8to16(FFormOther);
-    end;
-
-    edText.Visible := btxt;
-    lbText.Visible := btxt;
-    btnEdit.Visible := bedit;
-    edName.Visible := (wgcnt < 2);
-    edOther.Visible := (wgcnt < 2);
-
-  end; // with PropertyForm
-}
 end;
 
 procedure TFormDesigner.OnPropTextChange(Sender: TObject);
@@ -1228,12 +1166,16 @@ end;
 
 function TFormDesigner.GetFormSourceImpl: string;
 var
-  s: string;
+  s: TfpgString;
   sl: TStringList;
   n: integer;
   wd: TWidgetDesigner;
   wg: TfpgWidget;
   wgclass, pwgname: string;
+
+  t: TfpgString;
+  i: integer;
+  PropInfo: PPropInfo;
 begin
   s := '';
 
@@ -1267,6 +1209,21 @@ begin
 }
   s := s + '  WindowTitle := ' + QuotedStr(FForm.WindowTitle) + ';' + LineEnding;
 
+  // ShowHint property - This is ugly, Form's properties or not handled well!!
+  PropInfo := GetPropInfo(FForm.ClassType, 'ShowHint');
+  i := GetOrdProp(FForm, 'ShowHint');
+  if IsStoredProp(FForm, PropInfo) then
+  begin
+    if PropInfo^.Default <> i then
+    begin
+      if i = 1 then
+        t := 'True'
+      else
+        t := 'False';
+      s := s + '  ShowHint := ' + t + ';' + LineEnding;
+    end;
+  end;
+
   //adding other form properties, idented
   sl      := TStringList.Create;
   sl.Text := FFormOther;
diff --git a/uidesigner/vfdprops.pas b/uidesigner/vfdprops.pas
index a46b73c5..0b701c8d 100644
--- a/uidesigner/vfdprops.pas
+++ b/uidesigner/vfdprops.pas
@@ -488,16 +488,19 @@ var
 begin
   PropInfo := GetPropInfo(wg.ClassType, Name);
   i := GetOrdProp(wg, Name);
-  if PropInfo^.Default <> i then
+  if IsStoredProp(wg, PropInfo) then
   begin
-    if i = 1 then
-      s := 'True'
+    if PropInfo^.Default <> i then
+    begin
+      if i = 1 then
+        s := 'True'
+      else
+        s := 'False';
+      Result := ident + Name + ' := ' + s + ';' + LineEnding;
+    end
     else
-      s := 'False';
-    Result := ident + Name + ' := ' + s + ';' + LineEnding;
-  end
-  else
-    Result := '';
+      Result := '';
+  end;
 end;
 
 function TPropertyBoolean.GetValueText(wg: TfpgWidget): string;
diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
index c002b6b9..4f338151 100644
--- a/uidesigner/vfdwidgets.pas
+++ b/uidesigner/vfdwidgets.pas
@@ -227,6 +227,7 @@ begin
   wc.NameBase := 'frm';
   wc.AddProperty('WindowTitle', TPropertyString, '');
 //  wc.AddProperty('WindowPosition', TPropertyEnum, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   FVFDFormWidget := wc;
 
   // Label
@@ -236,6 +237,8 @@ begin
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the label text');
   wc.AddProperty('Hint', TPropertyString, '');
   wc.AddProperty('Layout', TPropertyEnum, 'Vertical text layout');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   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';
@@ -248,6 +251,8 @@ begin
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.AddProperty('Text', TPropertyString, 'Initial text');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.WidgetIconName := 'vfd.edit';
   RegisterVFDWidget(wc);
 
@@ -256,6 +261,8 @@ begin
   wc.NameBase := 'memName';
   wc.AddProperty('Lines', TPropertyStringList, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.memo';
   RegisterVFDWidget(wc);
@@ -275,6 +282,8 @@ begin
   wc.AddProperty('ImageName', TPropertyString, '');
   wc.AddProperty('ImageSpacing', TPropertyInteger, 'Space between image and text, -1 centers text');
   wc.AddProperty('ModalResult', TPropertyInteger, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowImage', TPropertyBoolean, 'Boolean value');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.button';
@@ -285,6 +294,8 @@ begin
   wc.NameBase := 'cbName';
   wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.AddProperty('Text', TPropertyString, 'Initial text');
   wc.WidgetIconName := 'vfd.checkbox';
@@ -296,6 +307,8 @@ begin
   wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('GroupIndex', TPropertyInteger, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.AddProperty('Text', TPropertyString, 'Initial text');
   wc.WidgetIconName := 'vfd.radiobutton';
@@ -306,6 +319,8 @@ begin
   wc.NameBase := 'cbName';
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('Items', TPropertyStringList, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.combobox';
   RegisterVFDWidget(wc);
@@ -314,6 +329,8 @@ begin
   wc          := TVFDWidgetClass.Create(TfpgCalendarCombo);
   wc.NameBase := 'calName';
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.combodateedit';
   RegisterVFDWidget(wc);
@@ -324,7 +341,9 @@ begin
   wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
   wc.AddProperty('HotTrack', TPropertyBoolean, '');
   wc.AddProperty('Items', TPropertyStringList, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('PopupFrame', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.listbox';
   RegisterVFDWidget(wc);
@@ -335,9 +354,11 @@ begin
   wc.AddProperty('Columns', TPropertyDBColumns, '');
   wc.AddProperty('FontDesc', TPropertyFontDesc, '');
   wc.AddProperty('HeaderFontDesc', TPropertyFontDesc, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('RowCount', TPropertyInteger, '');
   wc.AddProperty('RowSelect', TPropertyBoolean, '');
   wc.AddProperty('ShowHeader', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowGrid', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.stringgrid';
@@ -347,8 +368,10 @@ begin
   wc           := TVFDWidgetClass.Create(TfpgBevel);
   wc.NameBase  := 'bvlName';
   wc.AddProperty('BorderStyle', TPropertyEnum, 'Single or Double');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look');
   wc.AddProperty('Shape', TPropertyEnum, 'Box, Frame, TopLine, Spacer etc..');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.WidgetIconName := 'vfd.bevel';
   wc.Container := True;
   RegisterVFDWidget(wc);
@@ -360,6 +383,8 @@ begin
   wc.AddProperty('Layout', TPropertyEnum, 'Layout of the caption');
   wc.AddProperty('LineSpace', TPropertyInteger, 'Line spacing between wrapped caption');
   wc.AddProperty('Margin', TPropertyInteger, 'Margin of text');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('Style', TPropertyEnum, '');
   wc.AddProperty('Text', TPropertyString, 'The panel caption');
   wc.AddProperty('WrapText', TPropertyBoolean, 'Should the panel text be wrapped');
@@ -372,8 +397,10 @@ begin
   wc.NameBase := 'pbName';
   wc.AddProperty('Min', TPropertyInteger, '');
   wc.AddProperty('Max', TPropertyInteger, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('Position', TPropertyInteger, '');
   wc.AddProperty('ShowCaption', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.WidgetIconName := 'vfd.progressbar';
   RegisterVFDWidget(wc);
 
@@ -383,6 +410,8 @@ begin
   wc.AddProperty('Max', TPropertyInteger, '');
   wc.AddProperty('Min', TPropertyInteger, '');
   wc.AddProperty('Orientation', TPropertyEnum, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('Position', TPropertyInteger, '');
   wc.AddProperty('ShowPosition', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
@@ -393,7 +422,9 @@ begin
   wc := TVFDWidgetClass.Create(TfpgListView);
   wc.NameBase := 'lvName';
   wc.AddProperty('MultiSelect', TPropertyBoolean, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowHeaders', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.WidgetIconName := 'vfd.listview';
   RegisterVFDWidget(wc);
@@ -403,8 +434,10 @@ begin
   wc.NameBase := 'tvName';
   wc.AddProperty('DefaultColumnWidth',TPropertyInteger, '');
   wc.AddProperty('FontDesc',TPropertyFontDesc, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('ScrollWheelDelta', TPropertyInteger, 'Scroll amount with mouse wheel');
   wc.AddProperty('ShowColumns',TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowImages',TPropertyBoolean, 'Boolean value');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
   wc.AddProperty('TreeLineStyle', TPropertyEnum, '');
@@ -415,6 +448,8 @@ begin
   wc          := TVFDWidgetClass.Create(TfpgPageControl);
   wc.NameBase := 'pcName';
   wc.AddProperty('FixedTabWidth', TPropertyInteger, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('SortPages', TPropertyBoolean, 'Boolean value');
   wc.AddProperty('Style', TPropertyEnum, '');
   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
@@ -428,7 +463,9 @@ begin
   wc.AddProperty('Kind', TPropertyEnum, '');
   wc.AddProperty('MinValue', TPropertyInteger, '');
   wc.AddProperty('MaxValue', TPropertyInteger, '');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
   wc.AddProperty('Progress', TPropertyInteger, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
   wc.AddProperty('ShowText', TPropertyBoolean, 'Boolean value');
   wc.WidgetIconName := 'vfd.gauge';
   RegisterVFDWidget(wc);