Как же нарисовать линию на форме? (Вопрос новичка)

[grey]

Я новичёк
Просмотрел несколько готовых примеров отрисовки графики, почитал инфу, но так и не разобрался до конца.
Разъясните пожалуйста в деталях (кому не жалко времени), как нарисовать прямую горизонтальную линию заданной длины, ширины и цвета на форме. С самого начала, как только запустил Delphi и передо мной пустая форма.

[YERokez]

Самое простое и быстрое это положить на форму Panel, убрать его Caption, раздвинуть как надо и задать цвет (Color).
Можно также вместо Panel использовать Label.

[grey]

Мне нужны прямые горизонтальные линии, параметры которых я буду брать потом из переменных.

[_Dmitry]

Для рисования есть 4 класса:
TFont - шрифт,
TPen - перо для вычерчивания линий,
TBrush - штриховка,
TCanvas - холст для рисования, который инкапсулирует в себя первые 3 класса.
Сначала нужно определиться где рисовать, рекомендую компонент Image.
Кидаем его на форму и рисуем:

//меняем цвет линии
Image1.Canvas.Pen.Color:=clRed;
//меняем толщину линии
Image1.Canvas.Pen.Width:=3;
//чертим линию от точки x=10, y=10 до точки x=110, y=10
Image1.Canvas.MoveTo(10,10);
Image1.Canvas.LineTo(110,10);

[YERokez]

Self.Panel1.Width:=110;
Self.Panel1.Height:=2;
Self.Panel1.Color:=clRed;

[mihali4]

как нарисовать прямую горизонтальную линию заданной длины, ширины и цвета на форме. С самого начала, как только запустил Delphi и передо мной пустая форма.

Прямо на форме, по нажатию кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Canvas do
begin
Pen.Color:=clRed;
Pen.Width:=3;
MoveTo(10,10);
LineTo(110,10);
end;
end;

Кроме того, можете использовать компонент ТShape (вкладка Additional), все параметры будете задавать через его свойства.
Но первый метод предпочтительнее, поскольку вы можете рисовать линии не только горизонтальные, но и под любым углом, задавая начало и конец линии.

[_Dmitry]

YERokez, тогда уж приведи пример, как программно создавать новые панели. Заранее ведь неизвестно сколько будет линий

[_Dmitry]

mihali4, если рисовать прямо на форме, то после перекрытия окна программы другим окном, все что нарисовали пропадет, так что лучше в Image

[YERokez]

_Dmitry, я понял, что программно надо не создавать линию, а управлять ее параметрами.
А что, TImage можно программно ложить на форму? Я не пробовал.

[grey]

Попробовал Image - в моём случае подошло.
Спасибо.

Заранее ведь неизвестно сколько будет линий

Линий будет ровно 400 - четырёхсотточечная отрисовка профиля рукава флакона.