| |
| |
Rechtschreibpfüfung mal wieder- #20727 in section [742409] |
| Sec: |
(28) VFX deutsch |
| Von: |
Reinhard Jacke |
| An: |
ALL |
| Am/Um: |
02.12.2019 13:12:31 gelesen |
--from Newsreader at Montag, 2. Dezember 2019; 13:12:31--
Hallo Uwe und hallo in die Runde,
eben ruft ein Kunde an und fragt genervt, was aus der Rechtschreibprüfung
geworden ist.
Hatte ja schon mal angefangen und es wurde auf verschiedenen Weiterbildungen
gezeigt, doch leider bekomme ich das nicht richtig hin.
Wo könnte ich eine Lösung, oder Erläuterung finden?
Denn bei mir kommt Word nach zig Meldungen, zuerst Wordlable nicht gefunden,
dann immer wieder oWordlable nicht gefunden, hoch und die
Rechtschreibprüfung wird gemacht.
1.) Die Klasse Wordlable, mit genau Deinem Code habe ich auf die Form
gezogen und von Wordlable1 in Wordlable umbenannt.
2.) In vfxhooks ist folgender Code:
CASE UPPER(tcEvent)=="RIGHTCLICK" .AND. UPPER(toObject.baseclass)=="EDITBOX"
&& .AND. toForm.nformstatus>0
IF goprogram.nmenuandtoolbarstyle = 0 && XP Menü
DEFINE BAR 4 OF shortcut PROMPT "Rechtschreibprüfung"
ON SELECTION BAR 4 OF shortcut
spellchk(_screen.ActiveForm,_screen.ActiveForm.activecontrol)
*spellchk(ThisForm, This)
ELSE
IF goprogram.nmenuandtoolbarstyle > 1 && Office2003 oder 2010
WITH toObject.oContextMenu
loItem = ..cntPopupMenu.AddPopupItem("Rechtschreibprüfung", 'NORM', '')
loItem.cItemKey = '4'
loItem.Alignment = 0
loItem.cSkipForExp = ''
spellchk(_screen.ActiveForm,_screen.ActiveForm.activecontrol)
*spellchk(ThisForm, This)
BINDEVENT(loItem, 'Execute', toObject.oContextMenu, 'Execute')
ENDWITH
ENDIF
ENDIF
3.) In spellchk ist:
LPARAMETERS toForm,toObject
PUBLIC goSpellchk
toform.addobject("oWordlabel","wordlabel")
toform.oWordlabel.top=_screen.top
toform.oWordlabel.width=_screen.Width
toform.oWordlabel.left=_screen.left
toform.oWordlabel.height=_screen.height
toform.oWordlabel.visible=.t.
toForm.addobject('acargo[1,1]','olecontrol','word.document')
toForm.acargo[1,1].Height = toObject.height
toForm.acargo[1,1].Width = toObject.width
*toForm.acargo[1,1].Top = toObject.top+25
*toForm.acargo[1,1].Left = toObject.left
toForm.acargo[1,1].Top = OBJTOCLIENT( toObject, 1) +25
toForm.acargo[1,1].Left = OBJTOCLIENT( toObject, 2)
toForm.acargo[1,1].DoVerb(0)
toForm.acargo[1,1].object.content = toObject.Value
toForm.acargo[1,1].object.checkspelling()
goSpellchk=toObject
RETURN .T.
Hatte dies auch schon, ohne Erfolg, in ein TRY, CATCH ... verpackt.
Nach Rechtsklick ins Editfeld kommt, trotz aller Meldungen, Word hoch und
die Rechtschreibprüfung durchläuft den Inhalt des Editfeldes. Nach dem Ende
der Rechtschreibprüfung erscheint dann unter dem Mauszeiger das Minimenü:
Ausschneiden, Kopieren, Einfügen, Rechtschreibprüfung.
Da scheint noch einiges falsch zu laufen.... Was mache ich da falsch?
Mit den besten Grüßen aus dem Weserbergland
Reinhard Jacke
VFP 9.0 SP2 ...7423 + VFX 17.00.1311
|
|
|
|
