View Issue Details

IDProjectCategoryView StatusLast Update
0006464JEDI VCL00 JVCL Componentspublic2015-12-10 22:09
ReporterbullockAssigned ToAHUser 
PrioritynormalSeverityfeatureReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in VersionDaily / GIT 
Summary0006464: Patch to customize Hint of the JvOutlookBar to whichever TAction the mouse is over
DescriptionThis modifies jvcl/run/JvOutlookBar.pas to show a custom hint over the JvOutlookBar, depending on which TAction therein the mouse is moving over.
TagsNo tags attached.

Activities

2015-10-23 17:07

 

0001-Show-a-custom-hint-over-the-JvOutlookBar-depending-o.patch (1,456 bytes)
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

AHUser

2015-12-10 22:09

developer   ~0021253

Added to master branch.

The code uses CM_HINTSHOW instead of playing with the Hint property.

Issue History

Date Modified Username Field Change
2015-10-23 17:07 bullock New Issue
2015-10-23 17:07 bullock File Added: 0001-Show-a-custom-hint-over-the-JvOutlookBar-depending-o.patch
2015-12-10 22:09 AHUser Note Added: 0021253
2015-12-10 22:09 AHUser Status new => resolved
2015-12-10 22:09 AHUser Fixed in Version => Daily / GIT
2015-12-10 22:09 AHUser Resolution open => fixed
2015-12-10 22:09 AHUser Assigned To => AHUser