Курсовая работа: Создание средств наглядности с использованием программной среды Delphi и Microsoft Movie Maker

Series9.AddXY(X+0.5,Y-LVector,'G');

Series13.AddArrow(X,Y,X,Y+1);

Series14.AddArrow(X,Y,Xfc,Yfc);

Series15.AddXY(X+0.5,Y+1,'Fa');

Series16.AddXY(Xfc+0.5,Yfc,'Fc');

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

B_Close:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

OT:=1;

end;

procedure TForm1.BStopClick(Sender: TObject);

begin

Form4.LabeledEdit4.Enabled:=false;

Chart3.LeftAxis.RoundFirstLabel:=true;

Chart2.LeftAxis.RoundFirstLabel:=true;

BitBtn3.Enabled:=false;

if BitBtn3.Enabled=false then

begin

BitBtn2.Enabled:=true;

BitBtn4.Enabled:=false;

B_Close:=true

end else exit;

end;

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);

begin