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

[Stilet]

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

Я не очень хорошо знаю работу WINAPI с канвой.

[AlexandЯ]

Stilet, может подскажешь, как сделать, что бы нарисованная линия не исчезала??? А то свернешь форму,или сделаешь фоновой, и после восстановления все объекты как должны, а линии исчезают!?!?!?

[Stilet]

что бы нарисованная линия не исчезала???

Рисовать их в обработчике OnPaint формы.

[AlexandЯ]

Это как? я просто Delphi почти не знаю, а тут диплом надо писать... ))
Можешь минимальный пример написать???

[Stilet]

Могу:

procedure TForm1.FormPaint(Sender: TObject);
begin
 MoveToEx(Canvas.Handle,100,100,nil);
 LineTo(Canvas.Handle,200,200);
end;

Это событие в инспекторе включи.

[AlexandЯ]

Спасибо, буду мучать...