Разный цвет шрифта в одной строке

@Милт · Регистрация: 20.05.2013

Подскажите как программно на одной и той же строке в Memo или Rich Edit сделать штифт разным цветом. например так Google или может быть какой то другой компонент есть?

@cotseec · 20.11.2013, 23:53

Функция вставки цветного текста в RichEdit
как в Memo вывести буквы разными цветами
c TMemo проблематичнее, что-то подобное попытался изобразить тут

@Милт · 21.11.2013, 01:01 **[ТС]**

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

Функция вставки цветного текста в RichEdit
как в Memo вывести буквы разными цветами
c TMemo проблематичнее, что-то подобное попытался изобразить тут

Функция вставки цветного текста в RichEdit- не работает. текст переносится на новую строку. Мне надо чтобы он оставался на той же строке

@DiZeLProger · 01.02.2017, 17:15

Delphi

procedure ColorizeTextRE(RE: TRichEdit; Txt: String);
var
  i: Integer;
  CountLn: Integer;
begin
  CountLn := 1;
  with RE do
  begin
    for i := 1 to Length(Lines.Text) do
    begin
      if CompareStr(Lines.Text[i], Chr(13)) = 0 then
        inc(CountLn);
      if CompareStr(Copy(Lines.Text, i, length(Txt)), Txt) = 0 then
      begin
        SelStart := i - CountLn;
        SelLength := Length(Txt);
        SelAttributes.Color := clRed;
      end;
    end;
  end;
end;

@Милт 41 / 48 / 6 Регистрация: 20.05.2013 Сообщений: 167
		1
	Разный цвет шрифта в одной строке 20.11.2013, 23:36. Просмотров 2296. Ответов 3 Метки нет (Все метки) Подскажите как программно на одной и той же строке в Memo или Rich Edit сделать штифт разным цветом. например так Google или может быть какой то другой компонент есть? 0

@cotseec Пишу на Delphi...иногда 1418 / 1275 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.11.2013, 23:53	2
	Функция вставки цветного текста в RichEdit как в Memo вывести буквы разными цветами c TMemo проблематичнее, что-то подобное попытался изобразить тут 0

@Милт 41 / 48 / 6 Регистрация: 20.05.2013 Сообщений: 167
	21.11.2013, 01:01 [ТС]	3
	Сообщение от cotseec Функция вставки цветного текста в RichEdit как в Memo вывести буквы разными цветами c TMemo проблематичнее, что-то подобное попытался изобразить тут Функция вставки цветного текста в RichEdit- не работает. текст переносится на новую строку. Мне надо чтобы он оставался на той же строке 0

Опции темы