пропадает шрифт и цвет в RichEdit

← →
mpdasa © (2012-05-23 05:25) [0]

Мой пример. Есть RichEdit. С помощью UpDown2Click меняю размер шрифта.

procedure TMainForm.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
RichEdit2.Font.Size:=StrToInt(Edit1 .text); //беру из Edit1 размер шрифта
end;

И когда меняю размер шрифта (в запущенной программе), то шрифт, который у меня задан для RichEdit пропадает, пропадает также раскраска цветом:

RichEdit2.SelStart :=0;
RichEdit2.SelLength :=4;
RichEdit2.SelAttributes.Color:=ClGr een;

Попробовал решить проблему кодом

RichEdit2.SelectAll;
RichEdit2.Font.name:=("Symbol");

Не помогло.

Попробовал все варианты CharSet. Безуспешно.

И вот что я еще обнаружил. С мемо этой проблемы не было, все работает как надо. Имеется ввиду шрифт. Раскраска цветом для мемо не предусмотрена.

Поменял шрифт на другой, все работает. Получается, что проблема именно со шрифтом Symbol... и с RichEdit.

Поискал в интернете решение, нашел только более детальное описание моей проблемы и попытки ее решить. У автора той проблемы ее решить получилось, но у меня нет.

http://www.cn.ru/forum/showthread.php?t=132043

Почему RichEdit не дружит с этим (Symbol) шрифтом равно как и со многими другими шрифтами, как описано в обсуждении по ссылке?

Дайте надежду, что проблему можно решить.

← →
Cobalt © (2012-05-23 07:37) [1]

Предлагаю не использовать абстрактные словосочетания типа "шрифт пропадает", смысл которого абсолютно скрыт, а конкретизировать - например:

- "весь текст становится написанным одним шрифтом и одним размером, а мне надо чтобы исходный шрифт остался (с цветом, наклоном, курсивом и т.д.), а изменился только размер"

Люди, забейте вы на этот RichEdit!
SynEdit бесплатный и с просто офигенскими возможностями!!

пропадает шрифт и цвет в RichEdit Найти похожие ветки