.InsertionLayer:=map1.Layers.Item(1);.CurrentTool:=miAddLineTool;;TForm1.N19Click(Sender: TObject);.Layers.InsertionLayer:=map1.Layers.Item(1);.CurrentTool:=miAddPointTool;;TForm1.N17Click(Sender: TObject);.Layers.Item(ComboBox1.ItemIndex+1).Editable:=true;.Layers.InsertionLayer:=map1.Layers.Item(1);.CurrentTool:=miAddPolyLineTool;;TForm1.N18Click(Sender: TObject) ;. CurrentTool:=miAddRegionTool ;; TForm1.CheckBox2Click (Sender: TObject) ;. Layers.Item (ComboBox1.ItemIndex + 1) .Selectable:=CheckBox2.Checked ;;
TForm1.CheckBox3Click (Sender: TObject);.Layers.Item(ComboBox1.ItemIndex+1).AutoLabel:=CheckBox3.Checked;;TForm1.CheckBox4Click(Sender: TObject) ;. Layers.Item (ComboBox1.ItemIndex + 1) .Editable:=CheckBox4.Checked; (CheckBox4.Checked) then.Enabled:=true.Enabled:=false ;; TForm1.N20Click (Sender: TObject) ;. visible:=true; .Enabled:=false ;; TForm1.PaintBox1MouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;, Yst, R: integer;, linY, KX, KY: Double; , Y1: Double;, n2: single;
begin:=x;:=y;
map1.ConvertCoord (q, w, KX, KY, 1); Button=MbLeft thenPaintBox1.Tag of
: begin.ZoomTo (Map1.Zoom * 1.3, KX, KY) ;;
: begin.ZoomTo (Map1.Zoom/1.3, KX, KY) ;;
: begin:=map1.centerX;:=map1.centerY;.ConvertCoord(n1,n2,X1,Y1,0);:=x-n1;:=Y-n2;.Tag:=4;;;;;TForm1.FormCreate(Sender: TObject);.Height:=Map1.Height;.Width:=map1.Width;.Height:=Map1.Height;.Width:=map1.Width;.Height:=Map1.Height;.Width:=map1.Width;.Zoom:=3.18374268549783;.CenterX:=0.226011397767432;.CenterY:=0.255034245186359;.PaintTo(image1.Canvas,0,0);:=0.001;.Canvas.MoveTo(0,0);_to:=0;
; TForm1.PaintBox1MouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer) ;, KY: Double;
begin:=x;:=y;
{Кониертіруем екранні координати в фііческіе}
map1.ConvertCoord(q,w,KX,KY,1);.Text:=floattostr(KX);.Text:=floattostr(KY);.Text:=floattostr(X);.Text:=floattostr(Y);;TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;, Ky: Double; PaintBox1.Tag=4 then:=PaintBox1.Width-(X-KoordX);:=PaintBox1.Height-(y-KoordY);.ConvertCoord(q,w,Kx,Ky,miScreenToMap);.Tag:=3;.CenterX:=Kx;.CenterY:=Ky;;;;TForm1.Button5Click(Sender: TObject) ;, x2, sum, re, sred: double;:=0;:=strtofloat (edit10.Text); (x1 lt; 3) then:=3; .Text:= 3 raquo ;;; combobox2.ItemIndex of
: sred:=5.47;
: sred:=4.6;
: sred:=4.07; sred:=4.43 ;;:=sred/x1;:=strtofloat (edit11.Text); (x2 gt; 360) then x2:=360; (x2 lt; 0 ) then x2:=180; (x2=0) then x2:=180; ((x2 gt; 90) AND (x2 lt; 180)) then:=180-x2; ((x2 gt; 180) AND (x2 lt;=270 )) then:=x2-180; ((x2 gt; 270) AND (x2 lt;=360)) then:=360-x2;:=45/x2;
(CheckBox5.Checked) then:=zapgrefcran (x1); (re lt; 0) then re:=re * (- 1);:=sum + re ;; (CheckBox6.Checked) then :=zapkonvyst (x1); (re lt; 0) then re:=re * (- 1);:=sum + re ;; (CheckBox7.Checked) then:=zapotkrtrsyd (x1, x2); (re lt; 0) then re:=re * (- 1);:=sum + re ;; (CheckBox8.Checked) then:=zappolyvagon (x1, x2); (re lt; 0) then re:=re * (- 1) ;: =sum + re ;; ((x1=0) AND (x2=0)) then:=0; .Text:=floattostr (SimpleRoundTo (sum, - 2)) ;; TForm1.Button7Click (Sender: TObject);,j,dl,hr,colz:integer;,un,us,h,par,x1,x2,ras:double;:double;,Ky:Double;:TColor;,yc:integer;:array[0..15] of string;[0]:=laquo;ff0000raquo;;[1]:=laquo;ff1919raquo;;[2]:=laquo;fe2626raquo;;[3]:=laquo;fe3838raquo;;[4]:=laquo;fd4c4craquo;;[5]:=laquo;fe5c5craquo;;[6]:=laquo;fd6767raquo;;[7]:=laquo;fd7474raquo;;[8]:=laquo;fb8484raquo;;[9]:=laquo;fc9191raquo;;[10]:=laquo;ffa2a2raquo;;[11]:=laquo;fdb8b8raquo;;[12]:=laquo;fec5c5raquo;;[13]:=laquo;fdd8d8raquo;;[14]:=laquo;fee5e5raquo;;[15]:=laquo;fef3f3raquo;;.Cells[0,0]:=laquo;Расстояние(км)raquo;;
StringGrid1.Cells [1,0]:= Концентрація (мг/м3) raquo ;;
up:=strtofloat (edit12.text);:=up - 20; (un lt; 0) then un:=0;:=10;.Cells[0,1]:=laquo;0.5raquo;;.Cells[1,1]:=floattostr(up);.Cells[0,2]:=laquo;1raquo;;.Cells[1,2]:=floattostr(un);
:=2; (un gt; 4) do:=i + 1; .RowCount:=i; .Cells [0, i]:=floattostr (SimpleRoundTo ((0.5 * i), -2));
:=0.91 * un - 0.307 * (up-un) - 0.668 * (up-un)/(i * 0.5) + 0.00013 * h * un; (us lt; 0) then:= 0 ;;. Cells [1, i]:=floattostr (SimpleRoundTo (us, - 2));:=un;:=us ;;:=i ;;;; TForm1.Edit10KeyPress (Sender: TObject; var Key: Char); key of
0 .. 9 raquo ;:;
# 8:;
- :If length (Edit10.Text) lt; gt; 0 then key:=# 0;
. :If length (Edit10.Text)=0 then key:=# 0; key:=# 0 ;; (strtofloat (Edit10.Text) lt; 3) then begin key:=# 0; Edit10.Text:=...
