Delphi7 нужна помощь с line

[AlexandЯ]

Такая проблемка, нужно соединить прямой линией объекты Image, находящиеся на Panel. Надо, чтобы линия была поверх Panel, но под Image.

[Gorychev]

На вкладке Additional есть компонент Bevel, ложите на панель, в инспекторе устанавливаете св-во Shape равным bsTopLine, тяните линию к вашим имадже, кликаете по Bevel правой кнопкой мыши, выбираете Control->Send to Back.

[AlexandЯ]

Не, не то, линия должна быть прямая, всмысле не волнистая, но идти допустим от координат 50,60, к 150, 230...

[MalCer]

Можно просто рисовать на панели:

procedure TForm1.FormPaint(Sender: TObject);
var
 ps : TPaintStruct;
begin
 BeginPaint (Panel1.Handle, ps);// получаем хендл(контекст) устройства        
 ...
EndPaint (Panel1.Handle, ps);

[AlexandЯ]

Примерно ясно, только можно чуть подробнее... Это получается не ч-з canvas, а через что??? Всмысле какой функцией задавать координаты начала и конца??? Напиши пример какой-нибудь линии???

[MalCer]

Сам с графикой не работал,но вот пример для рисования прямоугольника:
Rectangle(canvas.Handle,10,10,100,1 00);
Короче, все так же только пиши код для линии

[AlexandЯ]

Так он рисует под панелью ((

[MalCer]

ТЫ должен получить контекст устройства на котором рисуешь!!! Тогда рисование будет на панели!!!

[MalCer]

Кстати а чем тебе этот пример не понравился:

На вкладке Additional есть компонент Bevel, ложите на панель, в инспекторе устанавливаете св-во Shape равным bsTopLine, тяните линию к вашим имадже, кликаете по Bevel правой кнопкой мыши, выбираете Control->Send to Back.

[AlexandЯ]

Дело в том, что так рисуются только горизонтальные и вертикальные линии(мне так кажется), а так вариант отличный, но мне нужны диагональные линии... Так может есть еще варианты???