[eagle_ua]

Привет всем!
Возникла вот проблема:
мне необходимо рисовать на форме линию(допустим соединить 2 объекта).
Пробовал , но если свернуть окно а потом его восстановить все нарисованые линии ичезают. Как этого избежать?

Код:

procedure Form1OnMouseDown() 
Canvas.MoveTo(X,Y);
 :
 :
 proceduer Form1OnMouseUp()
 Canvas.LineTo(X,Y); 
 : 
 :

[Aristarh Dark]

Используй событие OnPaint формы! И в нем перерисовывай все, что тебе надо.

[kr_m]

у меня подобный вопрос: как прорисовывать линию каждый раз когда меняется положение этих объектов(например, через drag&drop).

[Aristarh Dark]

Если такая соединяющая линия будет использоваться более одного раза, то я порекомендовал бы сделать ее отдельным объектом (типа TConnectLine) который бы сам себя отрисовывал, и, главное, имел два свойства TFirstObject, TSecondObject в которых бы содержались ссылки на соединяемые объекты.

[macpm]

Необходимо вывести на печать содержимое PaintBox т. е рисую на нем
набор прямых и окружностей и их нужно вывести на печать.
Как это можно сделать.
Растровую картинку с компонета Image выводит на печать без проблем.