Label1: TLabel;
Image1: TImage;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label11: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label18: TLabel;
ComboBox6: TComboBox;
Label19: TLabel;
Label4: TLabel;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Label5: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N8: TMenuItem;
N9: TMenuItem;
Label6: TLabel;
Label7: TLabel;
Label16: TLabel;
Memo1: TMemo;
Image2: TImage;
N10: TMenuItem;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure ComboBox5Change(Sender: TObject);
procedure ComboBox6Change(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char);
procedure Edit11KeyPress(Sender: TObject; var Key: Char);
procedure Edit12KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure N9Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox5KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox6KeyPress(Sender: TObject; var Key: Char);
procedure N10Click(Sender: TObject);
private
{ Private declarations } public
{ Public declarations } end;
var Form1: TForm1;
masif9:array[1..6] of real; masi9:array[1..6] of real; ep91:array[1..6] of real; ep92:array[1..6] of real; ep93:array[1..6] of real; pos9:array[1..6] of real; sil9:array[1..3] of real; chis9:array[1..6] of real;
masif8:array[1..5] of real; masi8:array[1..5] of real; ep81:array[1..5] of real; ep82:array[1..5] of real; ep83:array[1..5] of real; pos8:array[1..5] of real; sil8:array[1..3] of real; chis8:array[1..5] of real;
masif7:array[1..4] of real; masi7:array[1..4] of real; ep71:array[1..4] of real; ep72:array[1..4] of real; ep73:array[1..4] of real; pos7:array[1..4] of real; chis7:array[1..4] of real;
masif6:array[1..5] of real; masi6:array[1..5] of real; ep61:array[1..5] of real; ep62:array[1..5] of real; ep63:array[1..5] of real; pos6:array[1..5] of real; chis6:array[1..5] of real;
masif5:array[1..4] of real; masi5:array[1..4] of real; ep51:array[1..4] of real; ep52:array[1..4] of real; ep53:array[1..4] of real; pos5:array[1..4] of real; chis5:array[1..4] of real;
masif4:array[1..3] of real; masi4:array[1..3] of real; ep41:array[1..3] of real; ep42:array[1..3] of real; ep43:array[1..3] of real; pos4:array[1..3] of real; chis4:array[1..3] of real;
masif3:array[1..4] of real; masi3:array[1..4] of real; ep31:array[1..4] of real; ep32:array[1..4] of real; ep33:array[1..4] of real; pos3:array[1..4] of real; chis3:array[1..4] of real;
masif2:array[1..3] of real; masi2:array[1..3] of real; ep21:array[1..3] of real; ep22:array[1..3] of real; ep23:array[1..3] of real; pos2:array[1..3] of real; chis2:array[1..3] of real;
masif1:array[1..2] of real; masi1:array[1..2] of real; ep11:array[1..2] of real; ep12:array[1..2] of real; ep13:array[1..2] of real; pos1:array[1..2] of real; chis1:array[1..2] of real;
okr:integer; i1,i2,i3,i4,i5,i6,z1,z2,z3,p1,p2,p3,r11,r21,r31,r12,r22,r32,d12,d22,d32,a,b,s1,s2,s3,u1,u2,u3,u4,u5,u6,f1,f2,f3,m,sil7:real;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject); begin image2.Canvas.Brush.Color:=clWhite; image2.Canvas.Brush.Style:=bsSolid; image2.Canvas.Rectangle(0,0,600,667); Form1.Memo1.Clear; image1.Canvas.Brush.Color:=clWhite; image1.Canvas.Brush.Style:=bsSolid; image1.Canvas.Rectangle(0,0,600,667); a:=1; b:=1; Form2.Canvas.MoveTo(0,0); Form2.Canvas.LineTo(260,0); if ComboBox3.Text='Влево' then s1:=-1
else s1:=1; if ComboBox4.Text='Влево' then s2:=-1
else s2:=1; if ComboBox5.Text='Влево' then s3:=-1
else s3:=1; m:=0.001; if ComboBox6.Text='м' then m:=0.001; if ComboBox6.Text='см' then m:=0.0000001; if ComboBox6.Text='мм' then m:=0.000000001;
if ComboBox6.Text='м' then begin Form1.Label7.Caption:='метрах'; Form1.Label16.Left:=672; end;
if ComboBox6.Text='см' then begin Form1.Label7.Caption:='сантиметрах'; Form1.Label16.Left:=704; end;
if ComboBox6.Text='мм' then begin Form1.Label7.Caption:='миллиметрах'; Form1.Label16.Left:=704; end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject); begin if combobox1.Text='1' then begin
a:=1;
Edit2.Visible:=false;
Edit3.Visible:=false;
Edit5.Visible:=false;
Edit6.Visible:=false;
Form1.Label9.Visible:=false;
Form1.Label10.Visible:=false;
Edit1.Text:='';
Edit2.Text:='1';
Edit3.Text:='1';
Edit4.Text:='';
Edit5.Text:='0';
Edit6.Text:='1';
end; if combobox1.Text='2' then begin
a:=2;
Edit2.Visible:=true;
Edit3.Visible:=false;
Edit5.Visible:=true;
Edit6.Visible:=false;
Form1.Label9.Visible:=true;
Form1.Label10.Visible:=false;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='1';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='0';