JRSpellChecker

Funktion:

blendet für das angegebene Wort eine Popup-Auswahl mit Rechtschreibvorschlägen ein.
Verwenden Sie diese Funktion z.B für eigene Steuerelemente wenn Sie PopupCharPos und PopupMousePos nicht anwenden können.

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.

  Syntax:

JRSpell1.PopupWord xWord

xWord

Wort für welches alternativen angezeigt werden sollen.

Rückgabewert:

keiner

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

Beispiel TX-Textcontrol:

Private Sub TXTextControl1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'example for a own alternate word routine.
xword = JRSpell1.MisspelledWordFromCharPos(xpos,
TXTextControl1.hWnd, TX_Textcontroll)
  If xword <> "" Then
  JRSpell1.PopupWord (xword)
  End If
End Sub

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
  '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
  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
    '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
    JRSpell1.PopupWord (xword)
    End If
  End If
End Sub