Выделение в Richedit

[north]

Я в Richedit выделяю текст (Richedit.selstart := x; Memo.sellength := y). Как убрать чёрный цвет выделения(сделать, чтобы не было видно выделения)?

[Sazary]

Если правильно понял, то вот пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
Richedit1.selstart := 1;
RichEdit1.sellength := 7;
if (fsBold in RichEdit1.SelAttributes.Style) then
 RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.style - [fsBold]
else
 RichEdit1.SelAttributes.style := RichEdit1.SelAttributes.style + [fsBold];
end;

[DomiNick]

Кстати, там есть глюк какой-то...
Если в выделенном фрагменте есть разные стили, то он как-то странно уничтожает предыдущий стиль:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
RichEdit1.Lines.Text:='11111111111111111111111111111111111';
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
RichEdit1.SelStart:=5;
RichEdit1.SelLength:=10;
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold];
Refresh;
Sleep(1000);
RichEdit1.SelStart:=10;
RichEdit1.SelLength:=10;
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsItalic];
Refresh;
Sleep(1000);
RichEdit1.SelStart:=15;
RichEdit1.SelLength:=10;
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsUnderline];
Refresh;
Sleep(1000);
RichEdit1.SelStart:=20;
RichEdit1.SelLength:=10;
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsStrikeOut];
End;

У меня вроде получалось нормально делать, если перебирать все символы отдельно: для одного символа "RichEdit1.SelAttributes.Style:=Ric hEdit1.SelAttributes.Style+[<стиль>];" работает нормально...

[Sazary]

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

Кстати, там есть глюк какой-то...
Если в выделенном фрагменте есть разные стили, то он как-то странно уничтожает предыдущий стиль:

Эм... Не очень понял, что за глюк..
Вот так все работает, вроде:

procedure TForm1.FormShow(Sender: TObject);
begin
RichEdit1.Lines.Text:='11111111111111111111111111111111111';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Richedit1.selstart := 1;
RichEdit1.sellength := 10;
if (fsBold in RichEdit1.SelAttributes.Style) then
 RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.style - [fsBold]
else
 RichEdit1.SelAttributes.style := RichEdit1.SelAttributes.style + [fsBold];
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Richedit1.selstart := 1;
RichEdit1.sellength := 10;
if (fsItalic in RichEdit1.SelAttributes.Style) then
 RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.style - [fsItalic]
else
 RichEdit1.SelAttributes.style := RichEdit1.SelAttributes.style + [fsItalic];
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Richedit1.selstart := 1;
RichEdit1.sellength := 10;
if (fsUnderline in RichEdit1.SelAttributes.Style) then
 RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.style - [fsUnderline]
else
 RichEdit1.SelAttributes.style := RichEdit1.SelAttributes.style + [fsUnderline];
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Richedit1.selstart := 1;
RichEdit1.sellength := 10;
if (fsStrikeOut in RichEdit1.SelAttributes.Style) then
 RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.style - [fsStrikeOut]
else
 RichEdit1.SelAttributes.style := RichEdit1.SelAttributes.style + [fsStrikeOut];
end;

[DomiNick]

Скопируйте полностью мой код в Делфи... Там вроде наглядно получается...

А если 4-ре раза на кнопку нажать - вообще (извинете) фигня получается...

[Sazary]

А, да.. Сначала не обратил внимания..
Действительно, странный глюк.

[DomiNick]

Мне пришлось процедуру специальную писать...
Менять стиль посимвольно...

Но при большом тексте тормозит, однако...

[Sazary]

Что-то с таким не сталкивался..
Может, утром спецы подойдут - разъяснят ситуацию )

[DomiNick]

Что-то с таким не сталкивался..

Да я тоже...)

Я просто начал одну задумку воплощать... Для начала надо было просто кнопки всякие сделать, чтоб текст в RichEdit форматировать...
Потестил - смотрю что-то он не то творит...

Может, утром спецы подойдут - разъяснят ситуацию )

Надеюсь...)

[Sazary]

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

Для начала надо было просто кнопки всякие сделать, чтоб текст в RichEdit форматировать...
Потестил - смотрю что-то он не то творит...

В моем варианте, если убрать строки

Richedit1.selstart := 1;
RichEdit1.sellength := 10;

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