Русские буквы и RichEdit 2.0 [D7, WinXP]
vidiv © (2006-04-25 21:46:00)
Вобщем такой эксперемент:
На форме три компонента:
JvRichEdit1 - версии 2.0 из Jedi
RichEdit1 - версии 1 стандатный
и кнопка Button1
Ставим на кнопку следущий обработчик:
var TextRange:TTextRange; {uses RichEdit}
begin
TextRange.chrg.cpMin := 0;
TextRange.chrg.cpMax := 1;
GetMem(TextRange.lpstrText, 2);
FillChar(TextRange.lpstrText^, 2, 0);
SendMessage(RichEdit1.Handle, EM_GETTEXTRANGE,
0, LParam(@TextRange));
ShowMessage(TextRange.lpstrText);
end;
т.е. Сообщение посылается на обычный RichEdit.
Далее запускаем программу и пробуем напечатать чегонить по
русски в RichEdit1, нажимаем кнопку и... программа нормально, по
русски, выдает первую букву текста.
Далее запускаем заного программу, открываем WordPad и
набираем там текст по русски, копируем в буфер и вставляем в
RichEdit1, нажимаем кнопку - первая буква нормальная...
Далее меняем обработчик кнопки:
var TextRange:TTextRange; {uses RichEdit}
begin
TextRange.chrg.cpMin := 0;
TextRange.chrg.cpMax := 1;
GetMem(TextRange.lpstrText, 2);
FillChar(TextRange.lpstrText^, 2, 0);
SendMessage(JvRichEdit1.Handle, EM_GETTEXTRANGE,
0, LParam(@TextRange));
ShowMessage(TextRange.lpstrText);
end;
Т.е. используем компонет: JvRichEdit1.
Выполняем те же действия и получаем, что в первом случае, где
мы сами набирали текст - перва буква нормальная, а в случае когда
текст вставлен из буфера - вопросительный знак.
Еще один эксперемент с JvRichEdit1: вставляем текст из
WordPad-а, и в любом месте в тексте вручную пишем русскую букву.
результат нажатия кнопки будет положительным: русская буква.
Причем, замечаем, что после того как в JvRichEdit1 была
поставлена русская буква (в любом месте), то любые действия
приводят к положительному результату - первая буква русская...
Собственно вопрос: Как избавить пользователей вводить вручную
хотябы одну букву? Как заставить RichEdit2.0 сразу "понимать"
русский?
Если в чем то не прав - прошу поправить.
vidiv (2006-04-25 22:09:00) [1]
Запустил программу WinSight, и посмотрел какие сообщения идут
на JvRichEdit когда я переключаю раскладку и печатаю букву. Добавил
в OnCreate формы следующее:
SendMessage(JvRichEdit1.Handle, WM_INPUTLANGCHANGEREQUEST,
RUSSIAN_CHARSET, $04190419);
Вроде работает :)
Наверх 
ЧАТ |
Орешник |
|
