Сменить цвет строки в RichEdit

[Janger]

В общем пытался гуглить этот вопрос, ничего нету, постоянно мне дают код как изменить цвет текста в строке, а мне нужно изменить цвет самой строки....
Я вообще уже не знаю где искать эту информацию....
p.s.
цвет строки, легко менять в ListBox, НО, там нельзя редактировать строки как в RichEdit, так что, мне не подходит

[Аватар]

Выдели нужный фрагмент (SelStart и SelLength) и изменяй цвет - SelAttributes. Еще легче, чем в ListBox

постоянно мне дают код как изменить цвет текста в строке, а мне нужно изменить цвет самой строки

Так и дают наверняка. Не пойму чем отличается выделение части строки от выделения всей строки

[Janger]

Сообщение от Аватар

Выдели нужный фрагмент (SelStart и SelLength) и изменяй цвет - SelAttributes. Еще легче, чем в ListBox

Так и дают наверняка. Не пойму чем отличается выделение части строки от выделения всей строки

Я вот такой код нашёл

procedure TForm1.Button2Click(Sender: TObject);
var
  StrCount, i, sstart : integer;
begin
  StrCount := 1;
  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[i]);
    RichEdit1.SelAttributes.color:=clRed;
  end;
end;

Там все элементы о которых вы говорите присутствуют, и в общем из всех строк выделяется только первая строка и на ней меняется только цвет текста, а не самой строки ...

[cotseec]

имеется такая штука, как Text Object Model
экземпляр ITextDocument interface получается посылкой RichEdit'у сообщения EM_GETOLEINTERFACE message и приведением после LParam к ITextDocument

Applications can retrieve an ITextDocument pointer from a rich edit control. To do this, send an EM_GETOLEINTERFACE message to retrieve an IRichEditOle object from a rich edit control. Then, call the object's IUnknown::QueryInterface method to retrieve an ITextDocument pointer.

затем необходимо получить интервал требуемой строки ITextDocument::Range method и шрифт этого интервала ITextRange::GetFont method у которого установить требуемый BackColor ITextFont::SetBackColor method

хейдер для Delphi вроде как у Джедаев был (по крайней мере можно экспортировать описание требуемых типов из Msftedit.dll, правда получалось у меня такой экспорт только на D7, более молодые выдавали ошибку, с которой не было времени разбираться)
есть в сети еще вот это TOM.pas

[Аватар]

А, речь о цвете фона. Стандартно в RichEdit нет такой возможности. Сообщениями не пробовал, предыдущий оратор говорит, что получалось. А вообще более продвинутый ричедит, типа RxRichEdit. У него по моему можно. RichView еще посмотреть

в общем из всех строк выделяется только первая строка

А какая должна, если в selstart ноль все время присваивается?

[NIKOLAYY2]

Можно попробовать листбокс.
У листбокса есть канва
Событие OnDrawItem поможет тебе раскрасить фон строк.
Пример на скрине.

[cotseec]

можно еще посмотреть в сторону EM_SETBKGNDCOLOR message, но как я понял окрашивается весь фон

через TOM получается следующее:
Screen.png

пример + библиотека типов прилагается
tom.zip