interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y,h:real;
  I1,I2,J1,J2:integer;
  x1,x2,y1,y2:real;
implementation

{$R *.dfm}
{------------------------------------------------------------------------------}
function II(x:real):Integer;
begin
  II:=I1 + Trunc ((x-x1)*(I2-I1)/(x2-x1))
end;
{------------------------------------------------------------------------------}
function JJ(y:real):Integer;
begin
  JJ:=J1 + Trunc ((y-y1)*(J2-J1)/(y2-y1))
end;
{------------------------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1

end;

end.

var
  Form1: TForm1;
  x1,y1,x2,y2,h:real;
  x,y,col:integer;
  I1,J1,I2,J2,n,j,k:integer;
  s1,s2:string;
  f:TextFile;
implementation

{$R *.dfm}
{------------------------------------------------------------------------------}
function II(x:real):integer;
begin
II:=I1+Trunc((x-x1)*(I2-I1)/(x2-x1))
end;
{------------------------------------------------------------------------------}
function JJ(x:real):integer;
begin
JJ:=J1+Trunc((y-y1)*(J2-J1)/(y2-y1))
end;
{------------------------------------------------------------------------------}
procedure DrawGraphic;
begin
reset(f);
k:=0;
   with Form1.Image1,Form1.Image1.Canvas do
    begin
    x:=1413;y:=1294;
    MoveTo(II(x),JJ(-y));
     while not eof(f) do
      begin
       k:=k+1;
       while not eoln(f) do
        begin
        Rectangle(0,0,Width,Height);
        if (k=1)or(k=2) then

          read(f,s1)

        else if k=4 then read(f,n)
        else if k=7 then read(f,col)
        else
         begin
          read(f,x,y);
          LineTo(II(x),JJ(-y))
         end
       end;
      readln(f)
     end;
    close(f);
   end;
end;
{------------------------------------------------------------------------------}
procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(f, 'D:\Documents and Settings\Administrator\My Documents\Delfi_files\Map\RAION1.KRD');

   n:=200;
  x1:=-6; y1:=-6;
  x2:=6;y2:=6;

    I1:=0;J1:=0;
    I2:=Image1.Width;J2:=Image1.Height;

  DrawGraphic;
end;

Canvas.Ellipse(Region.CenterX-Region.Delta.X-th div 2 - 1,Region.CenterY-Region.Delta.Y-th div 2 - 1,Region.CenterX-Region.Delta.X+ th div 2,Region.CenterY-Region.Delta.Y+ th div 2);

Canvas.Brush.Color:=clWhite;  (Canvas.Brush.Color:=Region[i].cvet;)

Function MyColor(c:integer):TColor;
begin
case c of
  0:MyColor:=clBlack;
  1:MyColor:=clBlue;
  2:MyColor:=clGreen;
  3:MyColor:=clLime;
  4:MyColor:=clRed;
  5:MyColor:=clSilver;
  6:MyColor:=clMaroon;
  7:MyColor:=clOlive;
  8:MyColor:=clNavy;
  9:MyColor:=clAqua;
  10:MyColor:=clYellow;
  11:MyColor:=clPurple;
  12:MyColor:=clTeal;
  13:MyColor:=clWhite;
end;
end;

CharToOEM/OEMToChar

Attr:=$FFFFFFFF - faDirectory;

    { if i=1 then
     begin //относительное смещение координат карты и формы на экране
       dX:=Region[i].Rect.Left;
       dY:=Region[i].Rect.Top;
     end
     else
     begin //выбираем минимальные значения
       if dX>Region[i].Rect.Left then dX:=Region[i].Rect.Left;
       if dY>Region[i].Rect.Top then dY:=Region[i].Rect.Top;
     end;  }

       Image:=TImage.Create(Form1);
       BitMap:=TBitMap.Create;
       Myimage.width:=image1.width;
       Myimage.height:=image1.height;
       MyRect:=Rect(1,1,myImage.Width,myimage.Height);
       ImRect:=Rect(1,1,image1.Width,image1.Height);

        BitMap.Assign(Image1.Picture);

       MyImage.Canvas.CopyRect(MyRect,BitMap.Canvas,ImRect);

       Myimage.Left:=Round((Region[15].CenterX-dx-th div 2 - 1)/ m);
       Myimage.Top:= Round((Region[15].CenterY-dy-th div 2 - 1)/ m);
       MyImage.show;

for i:=0 to 23 do
   for j:=0 to length(Region[i].bounds)-1 do
      Region[i].bounds[j].X:=Round((bounds[j].X+dx)* m)

if 1435/Form1.ClientWidth>854/Form1.ClientHeight then
   m:=1435/Form1.ClientWidth
else
  m:=854/Form1.ClientHeight;

      
MasX[i]:= Round((Region[i].CenterX-dx) / m) - round((Image1.Picture.Graphic.Width) / 2);
MasY[i]:= Round((Region[i].CenterY-dy) / m) - Image1.Picture.Graphic.Height div 2;
Canvas.Draw(MasX[i],MasY[i],Image1.Picture.Graphic);
---------------------------------------------------------------
if (x>=MasX[i])and (x<=MasX[i]+image1.Picture.Width) and (y>=MasY[i])and(y<=MasY[i]+image1.Picture.height) then
      label2.caption:=Region[i].Name;

    
if (x>=Round(Region[i].Rect.Left-dx)/m) and (x<=round(Region[i].Rect.Right-dx)/m) and
(y<=round(Region[i].Rect.Bottom-dy)/m) and (y<=round(Region[i].Rect.Top-dy)/m) then
  label1.Caption:=region[i].Center;