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

[MyLastHit]

Здравствуйте, ищу компонент, типа RE в котором можно редактировать стили текста не построчно, а побуквенно. Есть ли такой? или быть может в RE возможно задавать стили текста побуквенно?
ПРИМЕР

[aRise]

в ричедит и можно...
RichEdit1->SelAttributes->Color = clRed;
изменит цвет выделеной части текста на красный.
с остальным разберешься..

[VintProg]

Так можно сделать подсветку?

[Stilet]

MyLastHit

Говорят есть какой-то SynEdit. А чем РичЭдит не устроил?

Так можно сделать подсветку?

Вполне.

[VintProg]

SelAttributes - не понятный какой то.

[chertovich]

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := 1;
  RichEdit1.SelAttributes.Color := clBlack;

  RichEdit1.SelStart := 1;
  RichEdit1.SelLength := 1;
  RichEdit1.SelAttributes.Color := clRed;

  RichEdit1.SelStart := 2;
  RichEdit1.SelLength := 1;
  RichEdit1.SelAttributes.Color := clGray;

  RichEdit1.SelStart := 3;
  RichEdit1.SelLength := 1;
  RichEdit1.SelAttributes.Color := clBlue;

  RichEdit1.SelStart := 4;
  RichEdit1.SelLength := 1;
  RichEdit1.SelAttributes.Color := clBlack;

  RichEdit1.SelStart := 5;
  RichEdit1.SelLength := 1;
  RichEdit1.SelAttributes.Color := clYellow;
end;

В RichEdit помещаешь слово ПРИМЕР

[Grag]

Циклом бы это все оформить... Типа что-то

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

[chertovich]

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

Циклом бы это все оформить... Типа что-то

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

Я писал свой пример, чтобы человеку было понятно, как это работает.
А чего ты свой пример до конца не дописал, может он не работает?))

[chertovich]

И у тебя ошибка, SelLength надо в цикле писать... Сам проверь
вот твой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  stLine: string;
  ColorR: TColor;
begin
  stLine := RichEdit1.Lines.Strings[0];
  RichEdit1.SelLength:=1;

  for i:=0 to Length(stLine) - 1 do
  begin
    RichEdit1.SelStart:= i; //возможно смещение текста в RichEdit;

    case i of
      0: ColorR := clRed;
      1: ColorR := clBlue;
      2: ColorR := clBlack;
      3: ColorR := clGreen;
      4: ColorR := clYellow;
      5: ColorR := clSilver;
    end;

    RichEdit1.SelAttributes.Color := ColorR //тут можно задать цвет через индекс...
  end;

end;

А вот как надо:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  stLine: string;
  ColorR: TColor;
begin
  stLine := RichEdit1.Lines.Strings[0];


  for i:=0 to Length(stLine) - 1 do
  begin
    RichEdit1.SelStart:= i; //возможно смещение текста в RichEdit;
    RichEdit1.SelLength:=1;
    case i of
      0: ColorR := clRed;
      1: ColorR := clBlue;
      2: ColorR := clBlack;
      3: ColorR := clGreen;
      4: ColorR := clYellow;
      5: ColorR := clSilver;
    end;

    RichEdit1.SelAttributes.Color := ColorR //тут можно задать цвет через индекс...
  end;

end;

[Grag]

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

SelLength надо в цикле писать...

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