potential fix for issue #860: tooltip always disappears after a second

TES5Edit · Jul 9, 2021 · 747dd14 · 747dd14
1 parent c33203b
commit 747dd14
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 22 deletions.
diff --git a/frmViewMain.dfm b/frmViewMain.dfm
@@ -135,7 +135,6 @@ object frmMain: TfrmMain
             OnFreeNode = vstViewFreeNode
             OnGetText = vstViewGetText
             OnPaintText = vstViewPaintText
-            OnGetHint = vstViewGetHint
             OnHeaderClick = vstViewHeaderClick
             OnHeaderDrawQueryElements = vstViewHeaderDrawQueryElements
             OnHeaderMouseDown = vstViewHeaderMouseDown
@@ -793,7 +792,6 @@ object frmMain: TfrmMain
             OnFreeNode = vstSpreadSheetFreeNode
             OnGetText = vstSpreadSheetGetText
             OnPaintText = vstSpreadSheetPaintText
-            OnGetHint = vstSpreadSheetGetHint
             OnHeaderClick = vstNavHeaderClick
             OnIncrementalSearch = vstSpreadSheetIncrementalSearch
             OnInitNode = vstSpreadSheetWeaponInitNode
@@ -999,7 +997,6 @@ object frmMain: TfrmMain
             OnFreeNode = vstSpreadSheetFreeNode
             OnGetText = vstSpreadSheetGetText
             OnPaintText = vstSpreadSheetPaintText
-            OnGetHint = vstSpreadSheetGetHint
             OnHeaderClick = vstNavHeaderClick
             OnIncrementalSearch = vstSpreadSheetIncrementalSearch
             OnInitNode = vstSpreadSheetArmorInitNode
@@ -1141,7 +1138,6 @@ object frmMain: TfrmMain
             OnFreeNode = vstSpreadSheetFreeNode
             OnGetText = vstSpreadSheetGetText
             OnPaintText = vstSpreadSheetPaintText
-            OnGetHint = vstSpreadSheetGetHint
             OnHeaderClick = vstNavHeaderClick
             OnIncrementalSearch = vstSpreadSheetIncrementalSearch
             OnInitNode = vstSpreadSheetAmmoInitNode

diff --git a/frmViewMain.pas b/frmViewMain.pas
@@ -532,7 +532,6 @@   TfrmMain = class(TForm)
     procedure vstViewFocusChanging(Sender: TBaseVirtualTree; OldNode, NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex; var Allowed: Boolean);
     procedure vstViewFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
     procedure vstViewGetEditText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var CellText: string);
-    procedure vstViewGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
     procedure vstViewGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
     procedure vstViewHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
     procedure vstViewHeaderDropped(Sender: TVTHeader; SourceColumn, TargetColumn: TColumnIndex; var Handled: Boolean);
@@ -589,7 +588,6 @@   TfrmMain = class(TForm)
     procedure vstSpreadSheetEditing(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
     procedure vstSpreadSheetFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
     procedure vstSpreadSheetGetEditText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var CellText: string);
-    procedure vstSpreadSheetGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
     procedure vstSpreadSheetGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
     procedure vstSpreadSheetIncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const SearchText: string; var Result: Integer);
     procedure vstSpreadSheetNewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; NewText: string);
@@ -17158,14 +17156,6 @@ procedure TfrmMain.vstViewGetEditText(Sender: TBaseVirtualTree;
     CellText := Element.EditValue;
 end;
 
-procedure TfrmMain.vstViewGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
-  Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
-  var HintText: string);
-begin
-  if GetKeyState(VK_SHIFT) < 0 then
-    HintText := vstView.Text[Node, Column, False];
-end;
-
 procedure TfrmMain.vstViewGetText(Sender: TBaseVirtualTree;
   Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
   var CellText: string);
@@ -18921,14 +18911,6 @@ procedure TfrmMain.vstSpreadSheetClick(Sender: TObject);
   end;
 end;
 
-procedure TfrmMain.vstSpreadSheetGetHint(Sender: TBaseVirtualTree;
-  Node: PVirtualNode; Column: TColumnIndex;
-  var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
-begin
-  if GetKeyState(VK_SHIFT) < 0 then
-    HintText := TVirtualEditTree(Sender).Text[Node, Column, False];
-end;
-
 procedure TfrmMain.vstSpreadSheetIncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const SearchText: string; var Result: Integer);
 var
   CompareText                 : string;
@@ -20090,6 +20072,8 @@ procedure TfrmMain.WMUser5(var Message: TMessage);
 end;
 
 procedure TfrmMain.UpdateActions;
+var
+  HintMode: TVTHintMode;
 begin
   if DelayedExpandView then begin
     DelayedExpandView := False;
@@ -20098,6 +20082,18 @@ procedure TfrmMain.UpdateActions;
   if Enabled and pnlClient.Enabled then
     NavUpdate(False);
   inherited;
+
+  if GetAsyncKeyState(VK_SHIFT) and $8000 <> 0 then
+    HintMode := hmTooltip
+  else
+    HintMode := hmDefault;
+
+  if HintMode <> vstView.HintMode then begin
+    vstView.HintMode := HintMode;
+    vstSpreadSheetWeapon.HintMode := HintMode;
+    vstSpreadsheetArmor.HintMode := HintMode;
+    vstSpreadSheetAmmo.HintMode := HintMode;
+  end;
 end;
 
 procedure TfrmMain.UpdateActiveFromPluggyLink;

diff --git a/whatsnew.md b/whatsnew.md
@@ -9,6 +9,7 @@
 * #848 - Records with hardcoded FormIDs show as new records instead of overrides/injected
 * #853 - FNV - cleaning dead money master erases map geometry
 * #855 - After cleaning dlcnukaworld.esm, items in Nuka-Town market vanish
+* #860 - tooltip always disappears after a second
 * #863 - FO4: DefaultObject forms (DFOB) should override via EditorID
 * #871 - Updates for Static Collections [FO4] 
 * #875 - TES4Edit 4.0.3 not able to copy Magic Effect Records