* 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.

19 files changed, 51 insertions, 8 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;