Редактирование стиля текста побуквенно...как?

[chertovich]

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

В данном контексте программы RichEdit1.SelLength:=1 - это инвариантное вычисление, которое не зависит от параметра цикла, поэтому его можно выкинуть за тело цикла....

Прежде чем толкать теорию, проверь эти два листинга у себя на Делфи, а потом поговорим...

[chertovich]

Смотри и пробуй:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelLength:=3;
  RichEdit1.SelStart:= 3; //возможно смещение текста в RichEdit;
  RichEdit1.SelAttributes.Color := clRed; //тут можно задать цвет через индекс...
  ShowMessage(IntToStr(RichEdit1.SelLength)); // Свойство SelLength выдает 0
end;

Это означает что при установке атрибутов свойству SelLength присваивается 0. Так что не ИПИ голову))

[chertovich]

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

В данном контексте программы RichEdit1.SelLength:=1 - это инвариантное вычисление, которое не зависит от параметра цикла, поэтому его можно выкинуть за тело цикла....

Мужик, ты же профессионал, ну ответь хоть что, а мне хочется о чем-нить с тобой перетереть....Профессионал....

[Grag]

Скорее уж после изменения SelStart нужно устанавливать SelLength, но не после изменения атрибутов...

[chertovich]

Ну вот, я же тебе и говорю что у тебя ошибка

//получаем текст в stLine
RichEdit1.SelLength:=1;
for i:=0 to Length(stLine)-1 do
begin
RichEdit1.SelStart:=i+//возможно смещение текста в RichEdit;
RichEdit1.SelAttributes.Color:=//тут можно задать цвет через индекс...
end

[Grag]

Не ошибается тот, кто ничего не делает... Бывает, что ж...

[DIgorevich]

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

Не ошибается тот, кто ничего не делает... Бывает, что ж...

Согласен и поддерживаю!

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

Мужик, ты же профессионал, ну ответь хоть что, а мне хочется о чем-нить с тобой перетереть....Профессионал....

Тут вообще-то, люди помогают друг другу и ищут решения, и не пытаются доказывать всему миру, что один круче другого

[chertovich]

Надеюсь на это... А то бывает ощущение что это не так