Problem on implement spellcheck in richviewedit
Posted: Sat Sep 30, 2006 12:38 am
I am having problems on implement spellcheck on a text editor with TRichViewEdit. I'm tried the following code:
procedure TForm.RichViewEditSpellingCheck(Sender: TCustomRichView;
const AWord: String; StyleNo: Integer; var Misspelled: Boolean);
begin
misspelled:=false;
if spellchecker_ignorelist.IndexOf(Aword) >= 0 then
exit;
misspelled:=not(spellchecker1.IsKnownWord(Aword,Spellchecker1.Language));
end;
procedure TForm.SpellLanguageComboBoxChange(Sender: TObject);
begin
RichViewEdit.StartLiveSpelling;
end;
It doesn't worked.
Please help me.
procedure TForm.RichViewEditSpellingCheck(Sender: TCustomRichView;
const AWord: String; StyleNo: Integer; var Misspelled: Boolean);
begin
misspelled:=false;
if spellchecker_ignorelist.IndexOf(Aword) >= 0 then
exit;
misspelled:=not(spellchecker1.IsKnownWord(Aword,Spellchecker1.Language));
end;
procedure TForm.SpellLanguageComboBoxChange(Sender: TObject);
begin
RichViewEdit.StartLiveSpelling;
end;
It doesn't worked.
Please help me.