А>Подскажите пожалуйста как вывести в Memo1 линии разных цветов? А>Можно ли это вообще сделать?
Рисует черную линию на компоненте мемо:
procedure TForm1.Button1Click(Sender: TObject);
Var
dc : HDC;//Дескрипторграфического контектса
lpPaint : tagPaintStruct;//Структура для графических объектов
begin
dc:=getDC(memo1.Handle);//бёрем дескритор графического контекста
beginPaint(memo1.Handle, lpPaint);уведомляет систему о перерисовке объекта
lineTo(dc, 100, 100);//Непосредственное рисование.
endPaint(memo1.Handle, lpPaint);уведомляет систему о завершении перерисовки объекта
end;
