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.
|
|
|
|
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 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
|
|
|
|
|
|
       
|
  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
|
|
|