Глобальная процедура

[glazik]

Всем доброго времени!

Прошу помощи!
Есть несколько форм и несколько юнитов. У меня постоянно после некоторых действий нужно перерисовывать главный объект в разных формах.
1) Как сделать процедуру, которую можно будет вызывать с любой формы.
2) Как описать эту процедуру, которая ничего не возвращает, а только получает координаты?
3) Где необходимо ее описать, чтоб все работало?

Заранее спасибо!

[Stilet]

перерисовывать главный объект в разных формах.

Давай не стесняйся в подробностях. А то такие оболдуи как я просто скажут "опиши процедуру в каком-то юните, и во всех формах в OnPaint формы вызывай процедуры из него"

[glazik]

Допустим рисуется прямоугольник и его пересекают дуги. После построения дуг, часть прямоугольника стирается. Хотелось бы вызывать каждый раз после рисования дуги процедуру, которая бы перерисовывала начальный прямоугольник. (прямоугольник с множеством деталей, поэтому и нужна собственная процедура). И вообще хотелось бы в принципе понять, как описывать глобальные процедуры, поэтому, я думаю, не важно что там рисуется)))

[Stilet]

После построения дуг, часть прямоугольника стирается.

brush.style:=bsNone поставь. тогда дуги стирать фоном не должны.

вообще хотелось бы в принципе понять, как описывать глобальные процедуры

Ну например так как я сказал - в отдельном модуле, доступном везде. В процедуры модуля можно передавать Canvas где рисовать.

unit draw;
...
procedure dra(c:TCanvas)...
...
c.line(...
...

unit unit1;
uses draw;
...
form1=class(TForm...
...
procedure Form1Paint(sender...)
begin
 dra(Form1.Canvas);
....

[uberchel]

можете написать эту функцию в главном unit-e с добавление её в public или же после типа, она будет глобальной, просто нужно будет везде в uses подписывать unit, собственно тоже самое, что предложили ребята выше отписавшийся, только без создания отдельного unit-a

[glazik]

Спасибо большое!