Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Изменить линию.

Автор: IamDreamer 27.4.2008, 13:34

Процедурой LineTo() рисуются 2 линии графика в одной системе координат. Как можно изменить толщину и цвет линий?

Автор: THandle 27.4.2008, 13:36

Код


Canvas.Pen.Width
Canvas.Pen.Color

Добавлено через 1 минуту и 56 секунд
Например:

Код


procedure TForm1.FormPaint(Sender: TObject);
begin
  with Canvas do
    begin
      Moveto(100, 100);
      LineTo(200, 200);
      Pen.Width := 10;
      Pen.Color := clRed;
      LineTo(300, 100);
    end;
end;

Автор: ivan219 27.4.2008, 13:39

Код


 Canvas.Pen.Width := 2;
 Canvas.Pen.Color := clRed;
 Canvas.LineTo(100, 100);

Автор: IamDreamer 27.4.2008, 13:45

Ещё раз спасибо.