,x2:double):double;zappolyvagon(x1,x2:double):double;TRGB(R, G, B: Byte): intRGB; RGB2Color (RGB: intRGB): TColor; Color2RGB (Color: TColor): intRGB; Html2RGB (HTML: string): intRGB; CheckHexForHash (col: string): string; rot_x (x, y:integer; theta: real): integer; rot_y (x, y: integer; theta: real): integer; ellips (handle: TCanvas; x, y, a, b: integer; alfa: real; color: TColor);
riselip ();
{Public declarations} ;: TForm1;,Xst,Yst:integer;,ny,nx1,ny1,nx2,ny2,rad,rad0,rotat:double;_to,colokr:integer;,w:single;,KoordY,koef:Double;Unit2;
{$ R *.dfm}TForm1.riselip;,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;;(strtofloat(edit12.Text)gt;0) then:=colokr;:=16/i;:=strtofloat(edit11.Text);.Canvas.Brush.Style:=bsDiagCross;(igt;=0)do:=round(i*koef);(colzgt;15) then colz:=15;:=RGB2Color (Html2RGB (mascol [colz])) ;. Canvas.Brush.Color:=colzal;
:=i*0.0020959594498301;:=0.239160367618979;:=0.260054695577742;:=Kx;:=x1+par;.ConvertCoord(q,w,x1,x2,0);
:=round (wq); (dl lt; 0) then dl:=dl * (- 1);:=round (dl/2); (dl lt; 0) then hr:=hr * (- 1) ;. ConvertCoord (q, w, Kx, Ky, 0);:=round (q + rot_x (round (dl/2), 0, ((rad - 90) * Pi/180))) ;:=round (w + rot_y (round (dl/2), 0, ((rad - 90) * Pi/180))); (image1.Canvas, round (xc), round (yc), dl, hr , rad, colzal);:=i - 1 ;;;; TForm1.CheckHexForHash (col: string): string; col [1]= # then:=StringReplace (col, # raquo ;, raquo ;, [rfReplaceAll]);:=col ;; TForm1.Html2RGB (HTML: string): intRGB;:=CheckHexForHash (HTML);:= $ 00 + copy (HTML, 5, 2) + copy (HTML, 3,2) + copy (HTML, 1,2);:=Color2RGB (StrToInt (HTML)); TForm1.TRGB (R, G, B:Byte): intRGB; .R:=R; .G:=G; .B:=B ;; TForm1.RGB2Color (RGB: intRGB): TColor;:=RGB.B shl 16 or RGB.G shl 8 or RGB.R ;; TForm1.Color2RGB (Color: TColor): intRGB;:=TRGB (Color and $ FF, (Color and $ FF00) shr 8, (Color and $ FF0000) shr 16) ;; TForm1.rot_x (x , y: integer; theta: real): integer;:=round (x * cos (theta) - y * sin (theta)) ;; TForm1.rot_y (x, y: integer; theta: real): integer ;: =round (x * sin (theta) + y * cos (theta)) ;; TForm1.ellips (handle: TCanvas; x, y, a, b: integer; alfa: real; color: TColor); sx, sy, rx, ry, i: integer ;: real;: array of Tpoint; (mas, 20);:=(alfa - 90) * Pi/180;:=x + rot_x (a, 0, alfa);:=y + rot_y (a, 0, alfa);
. Pen.Color:=color;
{handle.MoveTo (sx, sy);} [0] .X:=sx; [0] .Y:=sy;:=0; i:=1 to 19 do:= ugol + 0.31416;:=round (a * cos (ugol));:=round (b * sin (ugol)); [i] .X:=x + rot_x (rx, ry, alfa); [i]. Y:=y + rot_y(rx,ry,alfa);;.Polygon(mas);;TForm1.zapgrefcran(x1:double):double;:=0.09+0.021*x1;;TForm1.zapkonvyst(x1:double):double;:=0.03+0.009*x1;;TForm1.zapotkrtrsyd(x1,x2:double):double;:=101.65-53.35*x1+100.35*x2-52.65*x1*x2;;TForm1.zappolyvagon(x1,x2:double):double;:=20.9-14.45*x1+17.6*x2-12.25*x1*x2;;TForm1.Clear;.Canvas.Brush.Color:=clWhite;.Canvas.Brush.Style:=bsSolid;.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));.Canvas.Brush.Style:=bsClear;.PaintTo(image1.Canvas,0,0);;;TForm1.N5Click(Sender: TObject) ;. Tag:=2; .Cursor:=crDefault ;; TForm1.N6Click (Sender: TObject) ;. Tag:=1; .Cursor:=crDefault ;; TForm1.N3Click (Sender: TObject) ;. Tag: =0; .Cursor:=crDefault ;; TForm1.N7Click (Sender: TObject) ;. Tag:=3; .Cursor:=crHandPoint ;; TForm1.N8Click (Sender: TObject) ;. PropertyPage ;; TForm1.N11Click (Sender:TObject) ;. Visible:=false; OpenDialog1.Execute then.Layers.Add (OpenDialog1.FileName, EmptyParam) ;.Items.Add(OpenDialog1.FileName);.ItemIndex:=0;.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).Visible;.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).Selectable;.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).AutoLabel;.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).Editable;;;TForm1.CheckBox1Click(Sender: TObject);.Layers.Item(ComboBox1.ItemIndex+1).Visible:=CheckBox1.Checked;;TForm1.ComboBox1Change(Sender: TObject);.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).Visible;.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).Selectable;.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).AutoLabel;.Checked:=Map1.Layers.Item(ComboBox1.ItemIndex+1).Editable;;TForm1.N12Click(Sender: TObject) ;. CurrentTool:=miRectSelectTool ;; TForm1.N13Click (Sender: TObject) ;. CurrentTool:=miRadiusSelectTool ;; TForm1.N14Click (Sender: TObject) ;. CurrentTool:=miPolygonSelectTool ;; TForm1.N16Click (Sender: TObject);.Layers.Item(1).Editable:=true;.Layers...
