Выделение в Richedit

[DomiNick]

В моем варианте, если убрать строки
...
и выделять вручную, то, вроде, все работает как надо.

Нет...
Если выделенный текст содержит несколько разных стилей, то он, кажется, сначала приводит стиль выделенного к одному из них, а уже потом прибавляет/вычитает новый стиль...

[Sazary]

Да. Сейчас потестил получше - тоже работает неадекватно.
Интересно...

[DomiNick]

Ах да... Забыл...

Сообщение от Sazary

Вы делали как-то по-другому?

Procedure AddCharStyle(n: Integer; FS: TFontStyle);
Begin
Form1.RichEdit1.SelStart:=n;
Form1.RichEdit1.SelLength:=1;
Form1.RichEdit1.SelAttributes.Style:=Form1.RichEdit1.SelAttributes.Style+[FS];
End;

Procedure AddSelStyle(FS: TFontStyle);
Var i, k, n: Integer;
Begin
k:=Form1.RichEdit1.SelStart;
n:=Form1.RichEdit1.SelLength-1;
For i:=0 To n Do
      AddCharStyle(k+i, FS);
Form1.RichEdit1.SelStart:=k;
Form1.RichEdit1.SelLength:=n+1;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ComboBox1.Items.Text:='fsBold'+#13+'fsItalic'+#13+'fsUnderline'+#13+'fsStrikeOut';
ComboBox1.ItemIndex:=0;
End;

Procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
Case ComboBox1.ItemIndex Of
      0:
            AddSelStyle(fsBold);
      1:
            AddSelStyle(fsItalic);
      2:
            AddSelStyle(fsUnderline);
      3:
            AddSelStyle(fsStrikeOut);
      End;
End;

Но оно это пока только для добавления сделано.....

[Sazary]

Посимвольно... Все-таки интересно, в чем же причина глюка? )

[DomiNick]

Хм... А в WordPad'е вроде нормально получается...
Как, интересно, они делали..? )

[Sazary]

Сообщение от DomiNick

Хм... А в WordPad'е вроде нормально получается...
Как, интересно, они делали..? )

Он написан на VC++ 7

[north]

Может другие варианты есть?

[Sazary]

Сообщение от north

Может другие варианты есть?

А чем вас не устраивает предложенный?

[north]

Сообщение от Sazary

А чем вас не устраивает предложенный?

В моей программе этот вариант не работает, всё равно текст выделяется.

[Sazary]

Сообщение от north

В моей программе этот вариант не работает, всё равно текст выделяется.

Вы можете описать, что значит не работает?
Вот такое:

RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.style - [fsBold]

должно работать.