uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

AcroPDF1.LoadFile ('Дані\Карта\Khmelnitskiy Map.pdf');

ComboBox2.Items.Add('Виставка');

ComboBox2.Items.Add('Гречани');

ComboBox2.Items.Add('Ракове');

ComboBox2.Items.Add('Лезневе');

ComboBox2.Items.Add('Дубове');

ComboBox2.Items.Add('Ружична');

ComboBox2.Items.Add('Катіон');

ComboBox2.Items.Add('Книжківці');

ComboBox2.Items.Add('Центр');

ComboBox2.Items.Add('Озерна');

Button1.Enabled:=false;

Button2.Enabled:=false;

Button3.Enabled:=false;

TreeView1.Enabled:=false;

RadioButton1.Checked:=true;

AssignFile(F, 'Дані/Вулиці/Координати вулиць.DKH');

Reset(F);

for i:=1 to 313 do begin

Read(F,A[i]);

ComboBox1.Items.Add(A[i].Name);

ComboBox3.Items.Add(A[i].Name);

end;

CloseFile(f);

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

znaydeno: boolean;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

znaydeno:=false;

for I:=1 to 313 do

if ComboBox3.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

znaydeno:=true;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

if znaydeno=false then begin

ShowMessage('Ведіть правильну назву вулиці!');

ComboBox3.Clear;

ComboBox3.SetFocus;

ComboBox3.SelectAll;

end;

end;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

RadioButton1.Checked:= true;

ComboBox3.SetFocus;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Halt;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Image1.Canvas.Pen.Mode:=Pmxor;

if(ani=1)or(an=1) then begin

Image1.Canvas.MoveTo(a[k].x,a[k].y);

Image1.Canvas.LineTo(a[k].x1,a[k].y1);

Image1.Canvas.MoveTo(a[k].X1,a[k].y1);

Image1.Canvas.LineTo(a[k].X2,a[k].Y2);

Image1.Canvas.MoveTo(a[k].X2,a[k].y2);

Image1.Canvas.LineTo(a[k].X3,a[k].Y3);

Image1.Canvas.MoveTo(a[k].X3,a[k].y3);

Image1.Canvas.LineTo(a[k].X4,a[k].Y4);

Image1.Canvas.MoveTo(a[k].X4,a[k].y4);

Image1.Canvas.LineTo(a[k].X5,a[k].Y5);

Image1.Canvas.MoveTo(a[k].X5,a[k].y5);

Image1.Canvas.LineTo(a[k].X6,a[k].Y6);

Image1.Canvas.MoveTo(a[k].X6,a[k].y6);

Image1.Canvas.LineTo(a[k].X7,a[k].Y7);

Image1.Canvas.MoveTo(a[k].X7,a[k].y7);

Image1.Canvas.LineTo(a[k].X8,a[k].Y8);

Image1.Canvas.MoveTo(a[k].X8,a[k].y8);

Image1.Canvas.LineTo(a[k].X9,a[k].Y9);

Image1.Canvas.MoveTo(a[k].X9,a[k].y9);

Image1.Canvas.LineTo(a[k].X10,a[k].Y10);

Image1.Canvas.MoveTo(a[k].X10,a[k].y10);

Image1.Canvas.LineTo(a[k].X11,a[k].Y11);

Image1.Canvas.MoveTo(a[k].X11,a[k].y11);

Image1.Canvas.LineTo(a[k].X12,a[k].Y12);

Image1.Canvas.MoveTo(a[k].X12,a[k].y12);

Image1.Canvas.LineTo(a[k].X13,a[k].Y13);

end;

if an=0 then an:=1 else an:=0;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

for I:=1 to 313 do

if ComboBox1.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Image1.AutoSize:=false;

Image1.Align:=alClient;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

RadioButton2.Checked:= true;

ComboBox1.SetFocus;

ComboBox1.DroppedDown := True

end;

procedure TForm1.N4Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm1.TreeView1Click(Sender: TObject);

var i:integer;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

for I:=1 to 313 do

if TreeView1.Selected.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text<>'' then Button2.Enabled:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if ComboBox2.Text<>'' then

TreeView1.Enabled:=true;

if ComboBox2.Text='Виставка' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[2].name);

TreeView1.Items.Add(nil,a[3].name);

TreeView1.Items.Add(nil,a[4].name);

TreeView1.Items.Add(nil,a[5].name);

TreeView1.Items.Add(nil,a[6].name);

TreeView1.Items.Add(nil,a[7].name);

TreeView1.Items.Add(nil,a[8].name);

TreeView1.Items.Add(nil,a[9].name);

TreeView1.Items.Add(nil,a[10].name);

TreeView1.Items.Add(nil,a[11].name);

TreeView1.Items.Add(nil,a[12].name);

TreeView1.Items.Add(nil,a[13].name);

TreeView1.Items.Add(nil,a[26].name);

TreeView1.Items.Add(nil,a[27].name);

End;

if ComboBox2.Text='Озерна' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[14].name);

TreeView1.Items.Add(nil,a[15].name);

TreeView1.Items.Add(nil,a[16].name);

TreeView1.Items.Add(nil,a[17].name);

TreeView1.Items.Add(nil,a[18].name);

TreeView1.Items.Add(nil,a[19].name);

TreeView1.Items.Add(nil,a[20].name);

TreeView1.Items.Add(nil,a[21].name);

TreeView1.Items.Add(nil,a[22].name);

TreeView1.Items.Add(nil,a[23].name);

TreeView1.Items.Add(nil,a[24].name);

TreeView1.Items.Add(nil,a[25].name);

TreeView1.Items.Add(nil,a[28].name);

End;

if ComboBox2.Text='Лезневе' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[29].name);

TreeView1.Items.Add(nil,a[30].name);

TreeView1.Items.Add(nil,a[31].name);

TreeView1.Items.Add(nil,a[32].name);

TreeView1.Items.Add(nil,a[33].name);

TreeView1.Items.Add(nil,a[34].name);

TreeView1.Items.Add(nil,a[35].name);

TreeView1.Items.Add(nil,a[36].name);

TreeView1.Items.Add(nil,a[37].name);

TreeView1.Items.Add(nil,a[38].name);

TreeView1.Items.Add(nil,a[39].name);

TreeView1.Items.Add(nil,a[40].name);

TreeView1.Items.Add(nil,a[41].name);

TreeView1.Items.Add(nil,a[42].name);

TreeView1.Items.Add(nil,a[43].name);

TreeView1.Items.Add(nil,a[44].name);

TreeView1.Items.Add(nil,a[45].name);

Страницы: 1, 2, 3, 4, 5, 6