Здравствуйте, toff, Вы писали:

T>Здравствуйте, Аноним, Вы писали:


А>>Подскажите пожалуйста как вывести в Memo1 линии разных цветов?
А>>Можно ли это вообще сделать?

T>Рисует черную линию на компоненте мемо:

T>procedure TForm1.Button1Click(Sender: TObject);
T>Var
T> dc : HDC;//Дескрипторграфического контектса
T> lpPaint : tagPaintStruct;//Структура для графических объектов
T>begin
T> dc:=getDC(memo1.Handle);//бёрем дескритор графического контекста
T> beginPaint(memo1.Handle, lpPaint);уведомляет систему о перерисовке объекта
T> lineTo(dc, 100, 100);//Непосредственное рисование.
T> endPaint(memo1.Handle, lpPaint);уведомляет систему о завершении перерисовки объекта
T>end;

Использую C++Builder 6:

Memo1->Lines->Add("Hello Word BLACK");
Memo1->Lines->Add("Hello Word BLUE");