From 1c877a1a90e380f864e5b2370fc65acf9d0ffbc7 Mon Sep 17 00:00:00 2001
From: Greg Bullock <bullock@tru-traffic.com>
Date: Thu, 28 May 2015 16:00:12 -0700
Subject: [PATCH] Show a custom hint over the JvOutlookBar, depending on which
 TAction therein the mouse is moving over.

---
 jvcl/run/JvOutlookBar.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/jvcl/run/JvOutlookBar.pas b/jvcl/run/JvOutlookBar.pas
index d2ddde1..1f0af98 100644
--- a/jvcl/run/JvOutlookBar.pas
+++ b/jvcl/run/JvOutlookBar.pas
@@ -307,6 +307,7 @@ type
     FPageImages: TCustomImageList;
     FDisabledFontColor1:TColor; //clWhite;
     FDisabledFontColor2:TColor;
+    SavedBackgroundHint: string;
     FWordWrap: Boolean;
 
     procedure SetPages(const Value: TJvOutlookBarPages);
@@ -1543,6 +1544,7 @@ begin
       ExStyle := ExStyle or WS_EX_CLIENTEDGE;
     end;
   end;
+  SavedBackgroundHint := Hint;
 end;
 
 
@@ -2541,6 +2543,10 @@ begin
       FButtonRect := GetButtonFrameRect(ActivePageIndex, B.Index);
       RedrawRect(FButtonRect);
       FLastButtonIndex := B.Index;
+      if (B.Action <> nil) and (B.Action is TAction) and ShowHint then
+        Hint := TAction(B.Action).Hint
+      else
+        Hint := SavedBackgroundHint;
     end;
   end
   else
@@ -2549,6 +2555,7 @@ begin
       RedrawRect(FButtonRect);
     FLastButtonIndex := -1;
     FButtonRect := Rect(0, 0, 0, 0);
+    Hint := SavedBackgroundHint;
   end;
 end;
 
-- 
2.5.1.windows.1