Zur Startseite

JRSpellChecker

Zur Homepage

SpellCheckWithDialog(ByVal xhwnd As Long, ByVal Startpos As Variant, ByVal controllltype As Bindto)

Funktion:

prüft das aktuelle Dokument ab der angegebenen Position. Hierbei wird ein Korrekturdialog eingeblendet. Der Benutzer kann das gesamte Dokument korrigieren.

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

Wort ändern:

  • Der Benutzer kann das Wort direkt im Editierfeld ändern.

    • In der Auswahlliste anwählen und mit der Leertaste ins Editierfeld übernehmen.

Geändertes Wort übernehmen:

  • Durch Eingabetaste im Editierfeld wird das Wort übernommen.

  • Ebenso durch das Betätigen der "Ersetzen" Schaltfläche.

    • Durch Doppelklick auf ein Wort in der Liste wird dieses ebenfalls übernommen.

       

Mit "Alle Ersetzen" wird das Wort während dieser Korrektur automatisch ersetzt.
Wenn das Wort im Textfeld geändert wurde, dann wird dieses geänderte Wort verwendet ansonsten das in der Liste angewählte.  

ShowChangeAllButton muss aktiviert sein
     

    Über JRSpell1.CorrectionDialogActions kann das Verhalten und aussehen des Korrekturdialogs bei Bedarf eingestellt werden.
    (ShowModalForm, SearchNextAfterClickList, ShowAddButtonLokalWordBook, ShowAddButtonMSWord, ShowChangeButton, ShowIgnoreAllButton ShowChangeAllButton.)

ico_syntax Syntax:

JRSpell1.SpellCheckWithDialog x.hwnd, startpos, 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

startpos

starte mit Prüfung an dieser Position
       

ico_weitere   Rückgabewert:


keiner

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

Beispiel RTF-Control:

    Private Sub Command1_Click()
    'set options for the correction dialoge
    JRSpell1.CorrectionDialogActions = SearchNextAfterClickList + ShowAddButtonLokalWordBook + ShowAddButtonMSWord + ShowChangeButton + ShowIgnoreAllButton + ShowChangeAllButton JRSpell1.SpellCheckWithDialog RichTextBox1.hWnd, 0, Rtf_Control
    End Sub

    Private Sub JRSpell1_ChangeWord(NewWord As String)
      RichTextBox1.SelText = NewWord
    End Sub

Beispiel TX-Textcontrol:

    Private Sub Command1_Click()
    'set options for the correction dialoge
    JRSpell1.CorrectionDialogActions = SearchNextAfterClickList + ShowAddButtonLokalWordBook + ShowAddButtonMSWord + ShowChangeButton + ShowIgnoreAllButton + ShowChangeAllButton
    JRSpell1.SpellCheckWithDialog TXTextControl1.hWnd, 0, TX_Textcontroll
    End Subxx

    Private Sub JRSpell1_ChangeWord(NewWord As String)
      TXTextControl1.SelText = NewWord
    End Sub

Beispiel Textbox:

    Private Sub Command2_Click()
    JRSpell1.CorrectionDialogActions = SearchNextAfterClickList +ShowAddButtonLokalWordBook + ShowAddButtonMSWord + ShowChangeButton + ShowIgnoreAllButton + ShowChangeAllButton
    JRSpell1.SpellCheckWithDialog Text1.hWnd, 0, Text_Box
    End Sub

    Private Sub JRSpell1_ChangeWord(NewWord As String)
      Text1.SelText = NewWord
    End Sub

Hinweis: Verwenden Sie in Net oder Web Anwendungen den ShowModalForm Schalter in den CorrectionDialogActions.