Delphi7 помогите нарисовать линию

[AlexandЯ]

Нужно соеденить два объекта Image прямой линией(не вертикальной и не горизонтальной). Объекты находятся на Panel. Линия должна быть над Panel но под Image. Помогите пожалуйста...

[Stilet]

Ну я даж не знаю зачем... Ну вот так например:

var dc:hdc;
begin
 dc:=getdc(Panel1.Handle);
 MoveToEx(dc,Image1.Left,Image1.Top,nil);
 LineTo(dc,Image2.Left,Image2.Top);
 ReleaseDC(Panel1.Handle,dc);
end;

[AlexandЯ]

Супер, ты реально крут. Только вот как еще сделать чтобы линия была под Image а не над??? А вобще - то что нужно... И что значит nil???

[Stilet]

Только вот как еще сделать чтобы линия была под Image а не над?

Добавь к коду:

 Image1.BringToFront;
  Image2.BringToFront;

Типа, вперед их переложить после отрисовки

И что значит nil?

Что хелп отменили?

[AlexandЯ]

Respect, спасибо, Delphi урезана, без хелпа...

[Stilet]

Delphi урезана, без хелпа...

Тогда читай на MSDN

[AlexandЯ]

ОК, Хотя мог бы и сказать ))

[Stilet]

Туда передается адрес на TPoint, для того чтоб перед переходом в новые координаты запомнить старые.

p.s. Мануалы учись читать - помошает.

[AlexandЯ]

Большое человеческое спасибо!
А ты не подскажешь, как менять цвет и толщину линии???
Ну очень надо...

[Levsha100]

TColor(RGB(R,G,B));

R,G,B- byte.

Canvas.Pen.Color:=TColor(RGB(R,G,B));