Zur Startseite

JRSpellChecker

Zur Homepage

PopupMousePos(x As Single, y As Single, ByVal xhwnd As Long, ByVal controllltype As Bindto)

Function:

the word at a specific x y position will be checked.


popupkorre
All dialoges can be viewed in different languages look at the UILanguage setting.

         

If the word is misspelled a popup context menu with suggestions and options to 'Ignore All' or 'Add' to user dictionary are shown.

     

ico_syntax   Syntax:

JRSpell1.PopupMousePos x , y, x.hwnd, xtype

x.HWND

HWND of the RTF-Control, Textbox or TX-TextControl

x.type

xRtf_Control=1, xText_Box=2, xTX_Textcontroll=3; NetRtf_Control=11

x y

Screen coordinates in Twips. If x.type=; NetRtf_Control then x and y in pixel.
       

ico_weitere   Return Value:


Nothing

fires the ChangeWord event if the user select a new word

Example RTF-Control:

    Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then 'PopupMenu mop
      JRSpell1.PopupMousePos x, y, RichTextBox1.hWnd, Rtf_Control
      'a alternate for a own alternate word routine is to get the word at mouse     pos and show the popup for correction the word with alternates
          'xword = JRSpell1.MisspelledWordFromMousePos(x, y, RichTextBox1.hWnd, Rtf_Control)
      'If     xword <> "" Then
      ' Caption =     xword'
      ' JRSpell1.PopupWord (    xword)
      'End If
    End If
    End Sub

Example Textbox:

    Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
      If Button = 1 Then 'PopupMenu mop
        JRSpell1.PopupMousePos X, Y,     Text1.hWnd, Text_Box
        'a alternate for a own alternate word routine is to get the word at mouse     pos and show the popup for correction the word with alternates
            'xword = JRSpell1.MisspelledWordFromMousePos(X, Y, Text1.hwnd, Text_Box)
        'If     xword <> "" Then
        ' Caption =     xword
        ' JRSpell1.PopupWord (    xword)
        'End If
      End If
    End Sub