Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Янв

Изменение цвета определенной строки в richedit

Posted by micher under Delphi

Как изменить цвет определенной строки в richedit?

Serge_Bliznykov

код взял из DelphiWord (чуток модифицировал под ваш вопрос):



procedure TForm1.Button1Click(Sender: TObject);

var StrCount, i, sstart : integer;

begin

  StrCount := 3; {интересуют только первые три строчки}

  if richedit1.lines.Count<StrCount then

     StrCount := richedit1.lines.Count;
  sstart := 0;

  for i := 0 to StrCount - 1 do

    begin

      richedit1.selstart := sstart;

      richedit1.sellength:=length(richedit1.lines);

      case i of

        0: {первая строка}   richedit1.selattributes.color:=clRed;

        1: {вторая строка}   richedit1.selattributes.color:=clBlack;

        2: {третья строка}   richedit1.selattributes.color:=clBlue;

      end;

      sstart := sstart + length(RichEdit1.lines) + 2;

    end;

end;