unit ls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, ActnList, ExtCtrls, Registry, ComCtrls, ExtDlgs, ImgList;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    sjl1: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    PageLst: TPageControl;
    rr: TTabSheet;
    ll: TTabSheet;
    cc: TTabSheet;
    gg: TTabSheet;
    aa: TTabSheet;
    bb: TTabSheet;
    zz: TTabSheet;
    ff: TTabSheet;
    vv: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    N7: TMenuItem;
    GraphG: TImage;
    GraphR: TImage;
    GraphL: TImage;
    GraphC: TImage;
    GraphA: TImage;
    GraphB: TImage;
    GraphZ: TImage;
    GraphF: TImage;
    GraphV: TImage;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    ImageList1: TImageList;
    N12: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure N3Click(Sender: TObject);
    procedure sjl1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function ActiveR(f: LongInt; ra, rb: Single): Single;
{Расчет Активного сопротивления КК из медных проводников}

var
  MainForm: TMainForm;
  {Симметричный кабель}
  f: LongWord; {Max. частота}
  ro: Real; {Удельное электрическое сопротивление}
  c, b: Real;     {Диаметр жилы и коэф. укрутки}
  s1, s2: String; {Тип скрутки и изоляции}
  nl: Byte;       {Кол-во слоев стирофлексной ленты}
  dkor, delta: Single; {Диаметр бумажного корделя и толщина изоляции}
  yp, yz: Real; {Поправочный элемент для парной и звездной скруток}
  d1, d3, dp: Real; {Диаметр изолированной жилы и расчетные диаметры скруток}
  Scrut: 1..5; {Коэффициент, учитывающий тип скрутки}
  a: Real; {Расстояние между центрами жил}

implementation

uses Unit2, Unit3, Unit1, Unit4;

{$R *.DFM}

type
  TBitFile = record
    GR: TBitmap;
    GL: TBitmap;
    GC: TBitmap;
    GG: TBitmap;
    GA: TBitmap;
    GB: TBitmap;
    GZ: TBitmap;
    GF: TBitmap;
    GV: TBitmap;
  end;

var
  ff: File of TBitFile;
  qqqq: TBitFile;

function ActiveR(f: LongInt; ra, rb: Single): Single;
begin
  ActiveR:=4.18*Sqrt(f)*0.001;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
  OpenWin0.Show;
end;

procedure TMainForm.sjl1Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.N5Click(Sender: TObject);
var
  ms: TMemoryStatus;
  {m: TRegistry;}
begin
{  m:=TRegistry.Create;
  With m do begin
    RootKey:=HKEY_LOCAL_MACHINE;
    OpenKey('\Hardware\Description\system\CentralProcessor\0', False);
    AboutBox.Label8.Caption:=ReadString('Identifier');
  end;}
  ms.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(ms);
  AboutBox.Label5.Caption:=IntToStr(ms.dwTotalPhys div 1024);
  AboutBox.Show;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
  ExerBox1.Show;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
  ExerBox2.Show;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
  {With SavePictureDialog1 do begin
    With qqqq do
      With PageLst do begin
      GR:=GraphR.Picture.Bitmap;
      GL:=GraphL.Picture.Bitmap;
      GC:=GraphC.Picture.Bitmap;
      GG:=GraphG.Picture.Bitmap;
      GA:=GraphA.Picture.Bitmap;
      GB:=GraphB.Picture.Bitmap;
      GZ:=GraphZ.Picture.Bitmap;
      GF:=GraphF.Picture.Bitmap;
      GV:=GraphV.Picture.Bitmap;
    end;
    Filename:=Caption;
    If Execute then begin
      Assign(f, FileName); ReWrite(f);
      Write(f, qqqq); Close(f);
 {     qqqqSaveToFile(Filename);}
   {   Caption:=Lowercase(Filename);
    end;
  end;  }
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
  With OpenPictureDialog1 do
    If Execute then begin
      With PageLst do GraphR.Picture.LoadFromFile(Filename);
      Caption:=Lowercase(Filename);
      N9.Enabled:=True; // Enable File|Save... command
    end;
  end;

end.