Код:
Var Lines: array [0..3000] of TShape;
i,j:integer;
begin
i:=1;
Lines[i]:=TShape.Create(Form1);
Lines[i].Parent:=form1;
Lines[i].Shape:=stRectangle;
Lines[i].Left:=Button1.Left+20;
Lines[i].Top:=Button1.Top+20;
Lines[i].Width:=Form1.Height div 2;
Lines[i].Height:=1;
Lines[i].Pen.Color:=clRed;
Lines[i].Visible:=true;
вот код, чертит линию, но что мне теперь надо, может кто подскажет. Нужно добавить угл черчения, чтобы по 360 градусов чертилась линия, и как мне сделать проверку на то что если линия к примеру попадает на какой-нибудь объект, то она стирается и чертится выше данного объекта?