LCL: implemented THintInfo.ReshowTimeout, issue #27496

git-svn-id: trunk@47918 -

docs/xml/lcl/controls.xml

@@ -13426,8 +13426,8 @@ While CanFocus checks all control parents it does not check whether a form contr
       </element>
       <!-- variable Visibility: default -->
       <element name="THintInfo.ReshowTimeout">
-        <short/>
-        <descr/>
+        <short>If set to a value &gt;0 call after value milliseconds OnShowHint again</short>
+        <descr>Use this update the hint text while it is showing.</descr>
         <seealso/>
       </element>
       <!-- variable Visibility: default -->

lcl/include/application.inc

@@ -213,7 +213,7 @@ begin
           //if a hint is visible immediately query the app to show a new hint...
           if FHintTimerType = ahttHideHint then
             ShowHintWindow(Info);
-          //...if there's no hint window visible at this point than schedule a new query
+          //...if there's no hint window visible at this point then schedule a new query
           if (FHintTimerType = ahttNone) or (FHintWindow = nil) or not FHintWindow.Visible then
             StartHintTimer(HintPause, ahttShowHint);
         end;
@@ -864,6 +864,9 @@ begin
     FHintWindow.ActivateHint(HintWinRect, HintInfo.HintStr);
     FHintRect := HintInfo.CursorRect;
     // start hide timer
+    if HintInfo.ReshowTimeout>0 then
+      StartHintTimer(HintInfo.ReshowTimeout,ahttReshowHint)
+    else
       StartHintTimer(HintInfo.HideTimeout,ahttHideHint);
   end
   else
@@ -912,7 +915,7 @@ begin
   {$endif}
   StopHintTimer;
   case FHintTimerType of
-    ahttShowHint:
+    ahttShowHint,ahttReshowHint:
       begin
         if not GetCursorPos(CursorPos) then
           HideHint

lcl/include/hintwindow.inc

@@ -220,6 +220,8 @@ begin
   FActivating := True;
   try
     Assert(ControlCount = 0, 'THintWindow.ActivateRendered: ControlCount > 0');
+    if Caption<>AHint then
+      Invalidate;
     Caption := AHint;
     ActivateSub(Visible and (Caption <> AHint));
   finally