Zur Startseite

JRSpellChecker

Zur Homepage

PopupCharPos(Charnumber As Long, ByVal xhwnd As Long, ByVal controllltype As Bindto)

Funktion:

prüft ob das Wort an einer bestimmten 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 charnumber, 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

charnumber

z.B die aktuelle Cursorposition.

       

ico_weitere   Rückgabewert:


keiner

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

Beispiel RTF-Control: SpellCheckLastInput

Beispiel TX-Textcontrol: SpellCheckLastInput

    xPrivate Sub TXTextControl1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim xpos As Long
    xpos = TXTextControl1.SelStart
    If xpos > 0 And Button = 2 Then
    erg = JRSpell1.PopupCharPos(xpos, TXTextControl1.hWnd, TX_Textcontroll)
    End If
      'example for a own alternate word routine.
      'xword = JRSpell1.MisspelledWordFromCharPos(xpos,
    TXTextControl1.hWnd, TX_Textcontroll)
      'If xword <> "" Then
      ' Caption = xword
      ' JRSpell1.PopupWord (xword)
      'End If
    End Sub


    'For TX-Textcontrol up from V9 you can use these function
    charpos = TXTextControl1.InputPosFromPoint(x, y)
    JRSpell1.PopupCharPos charpos, TXTextControl1.hWnd, TX_Textcontroll

    '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.MisspelledWordFromCharPos(charpos, TXTextControl1.hWnd, TX_Textcontroll)
        'If xword <> "" Then
        ' Caption = xword
        ' JRSpell1.PopupWord (xword)
        'End If
    End If

Beispiel Textbox: SpellCheckLastInput