DotNetBrowser-Examples/vbnet/wpf/ContextMenu.SpellCheck/MainWindow.xaml.vb at v4 · TeamDev-IP/DotNetBrowser-Examples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
#Region "Copyright"

' Copyright © 2026, TeamDev. All rights reserved.
'
' Redistribution and use in source and/or binary forms, with or without
' modification, must retain the above copyright notice and the following
' disclaimer.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
' "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
' LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
' A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
' OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
' LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
' DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
' THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
' (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
' OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

#End Region

Imports System.ComponentModel
Imports System.Text
Imports DotNetBrowser.Browser
Imports DotNetBrowser.Browser.Handlers
Imports DotNetBrowser.Engine
Imports DotNetBrowser.Handlers
Imports DotNetBrowser.SpellCheck

''' <summary>
'''     The example demonstrates how to create a context menu with the SpellChecker functionality.
''' </summary>
Partial Public Class MainWindow
    Inherits Window

    Private browser As IBrowser
    Private engine As IEngine


    Public Sub New()
        EngineFactory.CreateAsync(New EngineOptions.Builder With {
                                     .RenderingMode = RenderingMode.OffScreen
                                     }.Build()) _
        .ContinueWith(Sub(t)
            engine = t.Result
            engine.Profiles.Default _
            .SpellChecker _
            .Languages _
            .Add(DotNetBrowser.SpellCheck.Language.EnglishUk)

            browser = engine.CreateBrowser()
            WebView.InitializeFrom(browser)
            ConfigureContextMenu()
            Dim htmlBytes() As Byte =
                    Encoding.UTF8.GetBytes(
                        "<html>
                        <head>
                          <meta charset='UTF-8'>
                        </head>
                        <body>
                        <textarea autofocus cols='30' rows='20'>Simpple mistakee</textarea>
                        </body>
                        </html>")
            browser.Navigation.LoadUrl(
                "data:text/html;base64," & Convert.ToBase64String(htmlBytes))
        End Sub, TaskScheduler.FromCurrentSynchronizationContext())

        InitializeComponent()
    End Sub

    Private Function BuildMenuItem(item As String, isEnabled As Boolean,
                                   clickHandler As RoutedEventHandler) As MenuItem
        Dim result As New MenuItem With {
            .Header = item,
            .Visibility = Visibility.Collapsed
        }
        result.Visibility = Visibility.Visible
        result.IsEnabled = isEnabled
        AddHandler result.Click, clickHandler

        Return result
    End Function

    Private Sub ConfigureContextMenu()
        ' #docfragment "ContextMenu.Configuration"
        browser.ShowContextMenuHandler =
            New AsyncHandler(Of ShowContextMenuParameters, ShowContextMenuResponse)(
                AddressOf ShowContextMenu)
        ' #enddocfragment "ContextMenu.Configuration"
    End Sub

    ' #docfragment "ContextMenu.Implementation"
    Private Function ShowContextMenu(parameters As ShowContextMenuParameters) _
        As Task(Of ShowContextMenuResponse)

        Dim tcs As New TaskCompletionSource(Of ShowContextMenuResponse)()
        Dim spellCheckMenu As SpellCheckMenu = parameters.SpellCheckMenu
        WebView.Dispatcher?.BeginInvoke(New Action(Sub()
            Dim popupMenu As New Controls.ContextMenu()

            Dim suggestions As IEnumerable(Of String) = spellCheckMenu.DictionarySuggestions
            If suggestions IsNot Nothing Then
                ' Add menu items with suggestions.
                For Each suggestion As String In suggestions
                    Dim menuItem As MenuItem = BuildMenuItem(suggestion, True, Sub()
                        browser.ReplaceMisspelledWord(suggestion)
                        tcs.TrySetResult(ShowContextMenuResponse.Close())
                    End Sub)
                    popupMenu.Items.Add(menuItem)
                Next suggestion
            End If

            ' Add "Add to Dictionary" menu item.
            Dim addToDictionary As String =
                    If(spellCheckMenu.AddToDictionaryMenuItemText, "Add to Dictionary")

            popupMenu.Items.Add(BuildMenuItem(addToDictionary, True, Sub()
                If Not String.IsNullOrWhiteSpace(spellCheckMenu.MisspelledWord) Then
                    engine.Profiles.Default.SpellChecker?.CustomDictionary?.Add(
                        spellCheckMenu.MisspelledWord)
                End If

                tcs.TrySetResult(ShowContextMenuResponse.Close())
            End Sub))
            AddHandler popupMenu.Closed, Sub(sender, args)
                tcs.TrySetResult(ShowContextMenuResponse.Close())
            End Sub

            popupMenu.IsOpen = True
        End Sub))
        Return tcs.Task
    End Function
    ' #enddocfragment "ContextMenu.Implementation"

    Private Sub Window_Closing(sender As Object, e As CancelEventArgs)
        browser.Dispose()
        engine.Dispose()
    End Sub
End Class