Изменение цвета в Memo

[Кирилл13]

                Memo1.ReadOnly:=true;
                Memo1.Font.Color:=$02FFFFFF+rebro;
                Memo1.Font.Height:=18;
                Memo1.ScrollBars:=ssVertical;
                Memo1.Lines.Add('Состав '+IntToStr(rebro)+'-го'+' кластера:'+StringGrid11.cells[imin,0]+','+StringGrid11.Cells[0,jmin]);

Хочу, что бы каждая новая запись в Memo была разного цвета, а уменя получается что все записи окрашиваются в один цвет (фрагмент кода сверху)

[mihali4]

Memo для этих экспериментов не подходит.
Можно ListBox, RichEdit..

[MalexG]

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

Memo для этих экспериментов не подходит.
Можно ListBox, RichEdit..

Позволю себе с вами не согласиться. Почитайте: "Архангельский. Приемы программирования в Delphi..."
Там описано, что окна редактирования TMemo и TRichEdit не имеют собственной канвы, но с ними, как и с другими наследниками класса TControl, можно связать канву TControlCanvas. Это позволяет раскрашивать тексты в окне и рисовать при необходимости на канве.

[mihali4]

Сдается мне, что товарищ не созрел для таких "извращений"
А я ответил в смысле того, что сам Мемо не имеет своего события для отрисовки.