jj 16.03 hints

2016-03-16 16:48:19 +01:00
parent 9b2a80d017
commit bb5f74b02c
15 changed files with 163 additions and 72 deletions
--- a/app/DD-Record-Organiser/ClassControlValueCache.vb
+++ b/app/DD-Record-Organiser/ClassControlValueCache.vb
@@ -28,4 +28,18 @@
        Cache.Clear()
    End Sub

+    ' =========================================================================================
+
+    Private Shared Property HintCache As New Dictionary(Of Integer, String)
+    Public Shared Function LoadHint(controlId As Integer) As String
+        If HintCache.ContainsKey(controlId) Then
+            Return HintCache.Item(controlId)
+        Else
+            Return Nothing
+        End If
+    End Function
+
+    Public Shared Sub SaveHint(controlId As Integer, hint As String)
+        HintCache.Item(controlId) = hint
+    End Sub
 End Class