jj 16.03 hints

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -971,7 +971,7 @@ Public Class frmConstructor_Main
 
         FORMVIEW_ID = frmview_id
         ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id)
-        CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip)
+        CtrlBuilder = New ClassControlBuilder(pnlDetails)
         'LoadControls(thisFormId)
         CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
                                                    ContextMenuDetails,
@@ -982,6 +982,22 @@ Public Class frmConstructor_Main
         ' pnlDetails.Enabled = False
 
         AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged
+        AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip
+    End Sub
+
+    Private Sub HandleToolTip(sender As Object, e As EventArgs)
+        Dim control As Control = DirectCast(sender, Control)
+        Dim id As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
+
+        Dim hint = ClassControlValueCache.LoadHint(id)
+        If Not IsNothing(hint) Then
+            'show hint
+            Console.WriteLine("Showing hint: " & hint)
+            ToolTipController.ShowHint(hint.ToString, ToolTipLocation.RightCenter)
+        Else
+            ToolTipController.HideHint()
+        End If
+
     End Sub
 
     Private Sub OnRecordChanged(sender As Object, e As System.EventArgs)