: TObject) ;: Double; _step:=cur_step-step; not WmfZoom then_step:=cur_step + step:=cur_step/(cur_step + step); (k); (k) ;;; TFormMap.BBigImgClick (Sender: TObject);:Double; _step:=cur_step + step; not WmfZoom then_step:=cur_step-step:=cur_step/(cur_step-step); (k); (k) ;;; TFormMap.AddNameMapToWmf (var mfc: TMetafileCanvas; mfWidth, mfHeight:Integer) ;, maxStr: string;, x_new, y_new, maxSymbol, k, totalHeight, delX: Integer ;: TLogFont ;: TLabel;_new:=Round(mfWidth*(PanelLabel.Left/PanelImg.Width));_new:=Round(mfHeight*(PanelLabel.Top/PanelImg.Height));:=0;i:=0 to ListLabelMap.Count - 1 do:=TLabelMap (ListLabelMap.Items [i]). Caption;:=StrLen (PChar (s)); maxSymbol lt; k then:=k;:=s ;;;:=0 ;: =TLabel.Create (nil);:=Round (mfWidth * PanelLabel.Width * 0.5/PanelImg.Width); i:=0 to ListLabelMap.Count - 1 do.Font.Assign (TLabelMap (ListLabelMap.Items [i]).Font) ;. Caption:= H raquo ;;. AutoSize:=True; lf do:=Round (mfWidth * (labeltmp.Width/PanelImg.Width));:=Round (mfHeight * (labeltmp.Height/PanelImg.Height)) ;;. Font.Handle:=CreateFontIndirect (lf); TLabelMap (ListLabelMap.Items [i]). TypeLabel of, tlMap, tlZaleg: mfc.Font.Style:=[fsBold] ;: mfc.Font.Style:=mfc.Font.Style-[fsBold]-[fsItalic];;.TextOut(Round(x_new+delX-mfc.TextWidth(TLabelMap(ListLabelMap.Items[i]).Caption)/2),_new+totalHeight,(ListLabelMap.Items[i]).Caption);:=totalHeight+mfc.TextHeight(laquo;Hraquo;);;.Free;.Free;;TFormMap.SetListStr(var ListNameMap: TObjectList; s: string; TypeLabel: TTypeLabel); _ total, len, pos1, num_str: integer;, str: string; _total:=0;:=StrLen (PChar (s));:=1; (num_total lt;=len - 1) and (pos1 gt ; 0) do_str:=0;:= raquo ;;:=Pos ( raquo ;, s);:=Copy(s,1,pos1);:=str+s1;:=Copy(s,pos1+1,StrLen(PChar(s))-pos1);_str:=num_str+StrLen(PChar(s1));pos1=0 then:=str + s; (num_str gt; maxSymb) or (pos1=0);_total:=num_total+StrLen(PChar(str));.Add(TLabelMap.Create(nil));(ListLabelMap.Last).Caption:=str;(ListLabelMap.Last).TypeLabel:=TypeLabel;;;TFormMap.WmfZoom:Boolean ;: TMetafile ;: TMetafileCanvas ;: TRect;:=TMetafile.Create; (cur_step gt;=1) and (cur_step lt;=6 * step) then.Width:=Round(mfOrig.Width*cur_step);.Height:=Round(mfOrig.Height*cur_step);:=Rect(0,0,mfCur.Width,mfCur.Height);:=TMetafileCanvas.Create(mfCur,0);.StretchDraw(RectM,mfOrig);.Free;.Width:=mfCur.Width;.Height:=mfCur.Height;.Picture.Metafile:=mfCur;:=True;:=False;.Free;;TFormMap.DefineUgol(ListKoor:TObjectList; str: string; koor: TKoor; numstart: integer; ugol: Double) ;, widthStr, heightStr, rastPred, rast1, rast2: Double;, y, delX, delY, numBest, k, num1, num2: integer;:TMetafile ;: TMetafileCanvas ;: TLogFont;:=TMetafile.Create;// визначення ширини мітки
mfc:=TMetafileCanvas.Create (mf, 0); (lf, SizeOf (lf), 0); lf do:=+60;:=30;:=0 ;;. Font.Handle :=CreateFontIndirect(lf);:=mfc.TextWidth(str);:=mfc.TextHeight(str);.Free;.Free;:=numStart;:=0;:=0;(rastlt;widthStr) and (k lt; ListKoor.Count - 1) do(k);:=rast;:=TKoor(ListKoor.Items[k]).X;:=TKoor(ListKoor.Items[k]).Y;:=sqrt(sqr(koor.x-x)+sqr(koor.y-y));;(rast-widthStr)gt;(widthStr-rastPred) then:=rastPred;:=k - 1;:=rast;:=k ;;:=numStart;:=0; (rast lt; widthStr) and (k gt; 0) do(k);:=rast;:=TKoor(ListKoor.Items[k]).x;:=TKoor(ListKoor.Items[k]).y;:=sqrt(sqr(koor.x-x)+sqr(koor.y-y));;(rast-widthStr)gt;(widthStr-rastPred) then:=rastPred;:=k + 1;:=rast;:=k ;; abs (rast1-widthStr) gt; abs (rast2-widthStr) then:=num2:=num1;:=TKoor(ListKoor.Items[numBest]).x;:=TKoor(ListKoor.Items[numBest]).y;x-koor.xlt;gt;0 then:=ArcTan((koor.y-y)/(x-koor.x)):=0;:=Round(heightStr/2*cos(ugol));:=Round(heightStr/2*sin(ugol));xgt;koor.x Then.x:=koor.x - delX; .y:=koor.y - delY; .x:=x - delX; .y:=y - delY ;;:=ugol * 180/Pi ;; TFormMap.DrawElem (pShape: IShape ;, endShp, typeLine: Integer; mc: TMetafileCanvas ;: String) ;, predX, predY, x, y, j: integer ;: TObjectList ;: TKoor ;: Double;:=TObjectList.Create(True);:=Round(pShape.Point[startShp].x-GranImg.left);:=Round(GranImg.bottom-pShape.Point[startShp].y);.Add(TKoor.Create(predX,predY));j:=startShp+1 to endShp - 1 do:=Round (pShape.Point [j] .x-GranImg.left);:=Round(GranImg.bottom-pShape.Point[j].y);.Add(TKoor.Create(x,y));.DrawShape(mc,x,y,predX,predY);:=x;:=y;;typeLine=5 then:=Round ((endShp-startShp)/2) - 1; numstart=0 then:=1;:=TKoor.Create ( TKoor(ListKoor.Items[numstart]).x,(ListKoor.Items[numstart]).y);(ListKoor,znLine,koor,numstart,ugol);(koor,Round(ugol*10),znLine,mc);.Free;;.Free;;TFormMap.DrawElemEdit(pShape:IShape ;, endShp, typeLine: Integer; mc: TMetafileCanvas ;: String) ;, predX, predY, x, y, j: integer ;: TObjectList ;: TKoor ;: Double;:=TObjectList.Create(True);:=Round(pShape.Point[startShp].x-GranImg.left);:=Round(GranImg.bottom-pShape.Point[startShp].y);.Add(TKoor.Create(predX,predY));j:=startShp+1 to endShp - 1 do:=Round (pShape.Point [j] .x-GranImg.left);:=Round(GranImg.bottom-pShape.Point[j].y);.Add(TKoor.Create(x,y));.DrawShapeEdit(mc,x,y,predX,predY);:=x;:=y;;typeLine=5 then:=Round ((endShp-startShp)/2) - 1; ...
