Wir verwenden ein ActiveX Control zur Text-Eingabe (TX Text Control),
bei dem jetzt auch eine Rechtschreibkorrektur eingebaut werden soll.
Hierfür muss u.a. im SpellCheckText-Event der Parameter
"misspelledwordpositions" gesetzt werden.
Bei "misspelledwordpositions" handelt es sich um ein Array, in dem die
Positionen der fehlerhaften Wörter aufgeführt werden.
Hier nochmal die Original-Doku vom Hersteller:
MisspelledWordPositions Is an array of Long values which can be used to
inform the TextControl about misspelled words. This array must be created
in the event handler after the specified text has been examined.
The array must contain two entries for each misspelled word: a start
position and an end position. Both values must be one-based indices in
the specified text. The example text 'This iss an exxample' contains two
misspelled words: 'iss' and 'exxample'. For this example an array of four
Long values must be created containing the values 6, 8, 13, 20.
TextControl uses these positions to underline the misspelled words with
a red zigzag line.
Hier ein vereinfachtes Beispiel des entsprechenden Codes:
*** ActiveX Control Event ***
*SpellCheckText-Event
LPARAMETERS text, misspelledwordpositions
Local loSpellChecker as AxTXSpell.AxTXSpellChecker
loSpellChecker = CreateObject("AxTxSpell.AxTxSpellchecker")
=ComArray(loSpellChecker, 10)
=ComArray(this, 10)
loSpellChecker.Check(text)
misspelledwordpositions = loSpellChecker.MisspelledWordPositions
=DoDefault(text, @misspelledwordpositions)
****************************************************************
Das Array misspelledwordpositions ist ein zero-based Array, deshalb
habe ich die ComArray()-Funktion verwendet.
Das ganze scheint aber nicht zu funktionieren. Das Array kommt
sozusagen nie beim ActiveX Control an.
Hat irgend jemand von euch eine Idee, was hier schief geht?
Gruß,
Frank
Jörg Schneider
