Richedit. Как правильно изменить начертание шрифта?

← →
SergP © (2003-10-15 09:25) [0]

Делаю так:

procedure TForm1.ButtonBoldClick(Sender: TObject);
begin
if ButtonBold.Down then
richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsBold]
else
richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsBold];
end;

Аналогично наклонный, подчеркнутый и ...
Но есть такая проблема:
Если я выделяю кусок текста, который содержит несколько участков с разным начертанием , например часть текста обычная, часть наклонная, то при изменении например жирности, меняется и наклонность (т.е. начертание всего выделенного текста становится одинаковым). Как от этого избавиться?
Если какой-нить способ кроме как делать это в цикле просматривая все символы выджеленного текста последовательно?

← →
SergP © (2003-10-15 09:27) [1]

Вот блин... Хотел в общую запостить, но промахнулся... :)
Все равно помогите плиз...

Richedit. Как правильно изменить начертание шрифта? Найти похожие ветки