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.
|
|
|
|
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.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.
|
|
|
|
|
|
       
|
  Rückgabewert:
|
|
|
|
|
keiner
Dialog löst ChangeWord Event aus wenn ein Wort ersetzt werden soll.
|
|
|
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
|
|
|