DocumentViewer: WIP Search

Controls.DocumentViewer/DocumentViewer.vb

@@ -31,15 +31,17 @@ Public Class DocumentViewer
         Stream
     End Enum
 
-    Private _ViewerMode As ViewerMode
-    Private _currentSearchOccurence As Integer = 0
-    Private _toggleGamma As Boolean = True
-    Private _licenseKey As String = String.Empty
-    Private _licenseManager As New GdPicture14.LicenseManager()
     Private _logConfig As LogConfig
     Private _logger As Logger
-    Private _email As Email2
     Private _Config As ConfigManager(Of Config)
+    Private _email As Email2
+
+    Private _ViewerMode As ViewerMode
+
+    Private _licenseKey As String = String.Empty
+    Private _licenseManager As New GdPicture14.LicenseManager()
+
+    Private _Search As Search
     Private _Annotations As Annotations
     Private _AnnotationsPending As Boolean = False
 
@@ -77,6 +79,7 @@ Public Class DocumentViewer
         _licenseKey = pLicenseKey
         _licenseManager.RegisterKEY(_licenseKey)
         _Annotations = New Annotations(pLogConfig)
+        _Search = New Search(pLogConfig, GdViewer)
 
         Dim oConfigPath = ConfigPath()
         _Config = New ConfigManager(Of Config)(pLogConfig, oConfigPath)
@@ -132,6 +135,10 @@ Public Class DocumentViewer
         UpdateMainUi()
     End Sub
 
+    Private Sub SearchFile(pSearchQuery As String)
+
+    End Sub
+
     ''' <summary>
     ''' Terminate Viewer, freeing up resources and deleting temp files
     ''' </summary>
@@ -676,7 +683,29 @@ Public Class DocumentViewer
                 txtCurrentPage.Enabled = False
 
         End Select
+    End Sub
 
+    Private Sub btnSearch2_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnSearch2.ItemClick
+        _Search.SearchAll(txtSearch.EditValue.ToString)
+    End Sub
+
+    Private Sub btnPrevHighlight_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnPrevHighlight.ItemClick
+        _Search.PrevHighlight()
+    End Sub
+
+    Private Sub btnNextHighlight_ItemClick(sender As Object, e As XtraBars.ItemClickEventArgs) Handles btnNextHighlight.ItemClick
+        _Search.NextHighlight()
+    End Sub
+
+    Private Sub txtSearch_EditValueChanged(sender As Object, e As EventArgs) Handles txtSearch.EditValueChanged
+        If String.IsNullOrEmpty(txtSearch.EditValue) Then
+            btnPrevHighlight.Enabled = False
+            btnNextHighlight.Enabled = False
+
+        Else
+            btnPrevHighlight.Enabled = True
+            btnNextHighlight.Enabled = True
+        End If
     End Sub
 #End Region