Как поменять цвет шрифта в Memo?

← →
sergant (2001-12-28 16:32) [0]

Простенький вопрос: как поменять цвет шрифта в Memo, но не у всего, а только у определенных строк? А то когда меняешь Font.Color, цвет меняется у вего текста в Memo. В RichEdit это можно сделать легко, а в Memo?

← →
la (2001-12-28 16:49) [1]

У Memo - никак.
Для этих целей следует все-таки использовать RichEdit

← →
Alx2 © (2001-12-29 08:27) [2]

sergeant, лови!
type TMyMemo = class(TMemo) property Font; end; // Это "рассекречивает" свойство Font procedure TForm1.Button1Click(Sender: TObject); begin TMyMemo(Memo1).font.Color := clRed; end;

← →
Alx2 © (2001-12-29 08:28) [3]

Ребята, прошу прощения, это задачи не решает, конечно!
Сколько раз себе говорил: "читай вопрос полностью"

← →
MBo © (2001-12-29 09:39) [4]

попробуй
http://www.lmc-mediaagentur.de/dpool/tips04/0360.htm

← →
Fellomena (2001-12-29 12:04) [5]

Привет всем 8)
У меня вопрос по теме:
я в RichEdit-e могу изменять цвет каждой строки и фона, но вот проблема :
как сделать одну часть строки одного цвета, а другую другого ?
Делала так:
RichEdit1.SelAttributes.Color := clRed; //RichEdit1.Lines.Add(Name + ": ");
При добавлении строки способом RichEdit1.Lines.Add в её конец ставится нуль-терминатор, от которого избавиться, использую метод Add, нельзя... ну то есть у строки его убрать можно наверное, но при следующем RichEdit1.Lines.Add(str); str всё равно будет на след. строке.
Я пробовала изголяться следующим образом:
function TForm1.test(col: integer; str1: string): string; begin RichEdit1.SelAttributes.Color := Col; Result:=str1; end; ... RichEdit1.Lines.Add(test(NameCol, Name) + ": " + test(MessageCol, Message1)); ...
Но, как я и ожидала, строка всё равно приобретает один цвет. 8(
Что делать ?

но ты ведь можешь выделять любой кусок строки через SelStart и SelLength и устанавливать для него SelAttributes

Как поменять цвет шрифта в Memo? Найти похожие ветки