Что это за компонент в delphi, Line?

[Nancy90]

Увидела в одном коде: procedure TForm.Line а что это такое не пойму( и найти в инструментах delphi тоже... Подскажите пожалуйста!

[Zer0]

А не факт что это компонент, вполне может быть что писавший программу добавил этот метод к форме вручную

[Nancy90]

То есть именно в коде добавил??

[Zer0]

методы ведь можно создавать не только как обработчики, это могло быть просто отдельной процедурой, то есть:
была форма с чем либо
зашел в код, добавил в interface описание процедуры
interface
....
procedure TForm1.Line;
....
А дальше в implementation описал ее...

Но вообще лучше бы было, если Вы выложите код, так можно будет сказать точнее, что это за процедура и откуда она взялась

[Nancy90]

Вот код)

var
  Form1: TForm1;
   a, //угол в рад..
   x0, y0, //центр окружности
   x, y: integer; // координаты точки
implementation
 
{$R *.dfm}
procedure TForm1.Line(x0, y0,a, l,l1,col: integer);
const
G= 0.0174532;
var
 x,y,x1,y1: integer;
begin
 Canvas.Pen.Color:= col;
 x:= Round(x0+l*cos(a*G));
 y:= Round(y0+l*sin(a*G));
 Form1.Canvas.Pixels[x,y]:=clRed;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 a:=90;
 Timer1.Enabled:= True
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 a:=a+1;
 Form1.Line(100,100,a,80,-80,clRed);
end;
 
end.

[Zer0]

Да, это созданный вручную метод формы, как я описал выше
Обратите внимание хотя бы на то, как отличается написание параметров от тех процедур, что создаются Delphi автоматически:
x0, y0,a, l,l1,col: integer неравномерные пробелы, все с маленькой буквы
Sender: TObject

Ее можно было бы описать как отдельную процедуру, я не знаю почему было сделано именно так

[Nancy90]

Ну ясно, спасибо))