Zur Startseite

JRSpellChecker

Zur Homepage

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

Funktion:

prüft ob das Wort an einer bestimmten x y Position korrekt geschrieben ist, wenn nicht wird ein Popup-Fenster mit Rechtschreibvorschlägen eingeblendet. Das Wort kann direkt durch Auswahl eines Vorschlages korrigiert werden.


popupkorr
Die User-Dialoge sind in mehreren Sprachen verfügbar. Siehe
UILanguage

       

Wort korrigieren:

  • Der Benutzer kann das Wort aus der Liste auswählen.

Alle Ignorieren:

  • Das Wort wird in diesem Dokument ignoriert.

Hinzufügen:

  • Das Wort wird zum Benutzerwörterbuch hinzugefügt.

     

ico_syntax   Syntax:

JRSpell1.PopupCharPos x, y, x.hwnd, xtype

x.HWND

HWND des RTF-Steuerelements, der Textbox oder des Textcontrols

x.type

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

x y

x y Koordinaten in Twips z.B die aktuelle Mausposition. Wenn x.type=NetRtf_Control dann wird x und y in Pixel erwartet

       

ico_weitere   Rückgabewert:


keiner

Dialog löst ChangeWord Event aus wenn ein Wort ersetzt werden soll.

Beispiel 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

Beispiel 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