VPF::Верхний\нижний регистры русских букв в RichEdit

NikFri

Дата 11.8.2009, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.6.2009

Репутация: нет
Всего: нет

Попытался написать функцию изменения регистра выделенного текста, но текст изменяется только если символы английского алфавита. Вот мой код:

Код


RichEdit1.SetSelText(PChar(LowerCase(RichEdit1.SelText)));

Возможно ли подобное сделать с выделенным текстом, только чтобы изменялись все буквы: русские и английские?

volvo877

Дата 11.8.2009, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Код


RichEdit1.SetSelText(PChar(AnsiLowerCase(RichEdit1.SelText)));

NikFri

Дата 11.8.2009, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.6.2009

Репутация: нет
Всего: нет

volvo877, большое спасибо.
Совсем забыл про AnsiLowerCase, да еще где-то читал что функция устаревшая и неиспользуется больше. Поэтому мучался с LowerCase smile

NikFri

Дата 11.8.2009, 19:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 27.6.2009

Репутация: нет
Всего: нет

Баг один появился, связанный с изменением атрибутов шрифта в TRichEdit.
Вот точная последовательность действий, при которых появляется баг:
1. Выделяешь текст в TRichEdit
2. Нажимаешь на кнопку Button1
3. В окне выбора шрифта изменяешь текст на Lucida Fax и выбираешь размер шрифта, к примеру 20
4. Нажимаешь на кнопку "Применить" и затем "ОК"

Вот после этих точных действий текст заменяется на нечитаемые символы.

Для наглядности я прикрепил архив с программой:

Присоединённый файл ( Кол-во скачиваний: 7 )

Projects.zip 7,45 Kb

volvo877

Дата 11.8.2009, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Цитата(NikFri @ 11.8.2009, 19:19

)

Вот после этих точных действий текст заменяется на нечитаемые символы

Ничего нечитаемого не вижу. Выделенная часть текста с измененным шрифтом, все остальное - без изменений (Lucida Fax не присутствует, долго проверял на Lucida Sans Unicode, Impact и других шрифтах. Пока не надоело smile

)

P.S. Ты там в обработчике нажатия на клавишу begin ... end точно не забыл? А то цвет ты меняешь только если отработал FontDialog, а вот все остальное - всегда. Я бы не рекомендовал так делать.

Это сообщение отредактировал(а) volvo877 - 11.8.2009, 21:16

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »