Доброе время суток.
Я подключаюсь к Ворду и использую его в качестве редактора в своем приложении. Заменил его попап своим, но хочу использовать проверку правописания. Работает, но есть один ньюанс - когда текст многоязычный (русский и английский) не могу получить вариантов (suggestions) для английского слова.
Вот функция которой я получаю список вариантов:
function TWordEditor.GetSpellingSuggestions(AWord: WideString): TTntStringList;
var
ss: Variant;
i: integer;
begin
Result := nil;
if AWord <> '' then
begin
try
ss := FApplication.GetSpellingSuggestions(AWord);
if ss.Count > 0 then
begin
Result := TTntStringList.Create;
for i := 1 to ss.Count do
Result.Add(ss.Item(i).Name);
end;
except
if Assigned(Result) then
FreeAndNil(Result);
end;
end;
end;
Например есть два неправельных слова Масква foood
Если передаать в эту функция Масква она ворвратит Москва b маска
Но если передать сюда foood то получим nil на выходе.
Хотя если оставить офисное попап меню то оно выдает варианты и для английского слова.
Вопрос как вызвать FApplication.GetSpellingSuggestions чтобы он использовал все словари и выдавал варианты для всех языков?
Спасибо.