Создание обучающей системы автоматизированного проектирования маломощных электромеханических следящих систем, страница 63

    UGrid.Cells[0,2]:='К177УД1А';   UGrid.Cells[1,2]:='±6.3%';     UGrid.Cells[2,2]:='4.0';        UGrid.Cells[3,2]:='35...80';    UGrid.Cells[4,2]:='5.0';         UGrid.Cells[5,2]:='15';        UGrid.Cells[6,2]:='5.5';         UGrid.Cells[7,2]:='100';        UGrid.Cells[8,2]:='-';

    UGrid.Cells[0,3]:='К177УД1Б';   UGrid.Cells[1,3]:='±6.3%';     UGrid.Cells[2,3]:='4.0';        UGrid.Cells[3,3]:='35...80';    UGrid.Cells[4,3]:='2.5';         UGrid.Cells[5,3]:='15';        UGrid.Cells[6,3]:='5.5';         UGrid.Cells[7,3]:='500';        UGrid.Cells[8,3]:='-';

    UGrid.Cells[0,4]:='177УП1';     UGrid.Cells[1,4]:='±12.6%';    UGrid.Cells[2,4]:='5.0';        UGrid.Cells[3,4]:='90...180';   UGrid.Cells[4,4]:='-';           UGrid.Cells[5,4]:='-';         UGrid.Cells[6,4]:='6.5';         UGrid.Cells[7,4]:='40';         UGrid.Cells[8,4]:='30';

    UGrid.Cells[0,5]:='К177УП1';    UGrid.Cells[1,5]:='±12.6%';    UGrid.Cells[2,5]:='5.0';        UGrid.Cells[3,5]:='80...150';   UGrid.Cells[4,5]:='-';           UGrid.Cells[5,5]:='-';         UGrid.Cells[6,5]:='6.0';         UGrid.Cells[7,5]:='40';         UGrid.Cells[8,5]:='50';

  end;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

  curU:=curU-1;

  if(curU<0) then curU:=6;

  OutputU();

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

  curU:=curU+1;

  if(curU>6) then curU:=1;

  OutputU();

end;

procedure TForm1.UGridDrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

begin

  if(curU=3) then

  begin

    if  (curUCol=1) or (curUCol=2) then UImage.Picture.LoadFromFile('img/u_031.jpg')

    else if  (curUCol=3) or (curUCol=4) then UImage.Picture.LoadFromFile('img/u_032.jpg')

    else if  (curUCol=5) or (curUCol=6) then UImage.Picture.LoadFromFile('img/u_033.jpg');

  end;

  if(curU=6) then

  begin

    if  (curUCol>=1) and (curUCol<=3) then UImage.Picture.LoadFromFile('img/u_061.jpg')

    else if  (curUCol=4) or (curUCol=5) then UImage.Picture.LoadFromFile('img/u_062.jpg')

  end;

end;

procedure TForm1.UGridSelectCell(Sender: TObject; ACol, ARow: Integer;

  var CanSelect: Boolean);

begin

  curUCol:=ARow;

end;

procedure TForm1.cbRaspALaxClick(Sender: TObject);

begin

  // Показать скрыть график располагаемой ассимптотической ЛАХ

Lax.Series[0].Active := not Lax.Series[0].Active;

end;

procedure TForm1.cbZALaxClick(Sender: TObject);

begin

  // Показать скрыть график желаемой ассимптотической ЛАХ

Lax.Series[1].Active := not Lax.Series[1].Active;

end;

procedure TForm1.cbLDZoneClick(Sender: TObject);

begin

  // Показать скрыть график запретной зоны на НЧ

Lax.Series[2].Active := not Lax.Series[2].Active;

end;

procedure TForm1.cbRaspLaxClick(Sender: TObject);

begin

  // Показать скрыть график располагаемой точной ЛАХ

Lax.Series[3].Active := not Lax.Series[3].Active;

end;

procedure TForm1.cbRaspLFXClick(Sender: TObject);

begin

  // Показать скрыть график располагаемой точной ЛФЧХ

Lax.Series[4].Active := not Lax.Series[4].Active;

end;

procedure TForm1.cbGLaxClick(Sender: TObject);

begin

  // Показать скрыть график желаемой точной ЛАХ

Lax.Series[5].Active := not Lax.Series[5].Active;

end;

procedure TForm1.cbGLFXClick(Sender: TObject);

begin

  // Показать скрыть график желаемой точной ЛФЧХ

Lax.Series[6].Active := not Lax.Series[6].Active;

end;

procedure TForm1.cbLaxKUClick(Sender: TObject);

begin

  // Показать скрыть график ЛАХ КУ

Lax.Series[14].Active := not Lax.Series[14].Active;

end;

procedure TForm1.cbZ1Click(Sender: TObject);

begin

  // Показать скрыть график первого звена

KULax.Series[0].Active := not KULax.Series[0].Active;

end;

procedure TForm1.cbZ2Click(Sender: TObject);

begin

  // Показать скрыть график второго звена

KULax.Series[1].Active := not KULax.Series[1].Active;

end;

procedure TForm1.cbZ3Click(Sender: TObject);

begin