49706 (Довідник по Хмельницькому), страница 4
Описание файла
Документ из архива "Довідник по Хмельницькому", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49706"
Текст 4 страницы из документа "49706"
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);
TreeView1.Items.Add(nil,a[46].name);
TreeView1.Items.Add(nil,a[47].name);
TreeView1.Items.Add(nil,a[48].name);
TreeView1.Items.Add(nil,a[49].name);
TreeView1.Items.Add(nil,a[50].name);
TreeView1.Items.Add(nil,a[51].name);
TreeView1.Items.Add(nil,a[52].name);
TreeView1.Items.Add(nil,a[53].name);
TreeView1.Items.Add(nil,a[54].name);
TreeView1.Items.Add(nil,a[55].name);
TreeView1.Items.Add(nil,a[56].name);
TreeView1.Items.Add(nil,a[57].name);
TreeView1.Items.Add(nil,a[58].name);
TreeView1.Items.Add(nil,a[59].name);
TreeView1.Items.Add(nil,a[60].name);
TreeView1.Items.Add(nil,a[61].name);
TreeView1.Items.Add(nil,a[62].name);
TreeView1.Items.Add(nil,a[63].name);
TreeView1.Items.Add(nil,a[64].name);
TreeView1.Items.Add(nil,a[65].name);
TreeView1.Items.Add(nil,a[66].name);
End;
if ComboBox2.Text='Центр' then begin
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,a[67].name);
TreeView1.Items.Add(nil,a[68].name);
TreeView1.Items.Add(nil,a[69].name);
TreeView1.Items.Add(nil,a[70].name);
TreeView1.Items.Add(nil,a[71].name);
TreeView1.Items.Add(nil,a[72].name);
TreeView1.Items.Add(nil,a[73].name);
TreeView1.Items.Add(nil,a[74].name);
TreeView1.Items.Add(nil,a[75].name);
TreeView1.Items.Add(nil,a[76].name);
TreeView1.Items.Add(nil,a[77].name);
TreeView1.Items.Add(nil,a[78].name);
TreeView1.Items.Add(nil,a[79].name);
TreeView1.Items.Add(nil,a[80].name);
TreeView1.Items.Add(nil,a[81].name);
TreeView1.Items.Add(nil,a[82].name);
TreeView1.Items.Add(nil,a[83].name);
TreeView1.Items.Add(nil,a[84].name);
TreeView1.Items.Add(nil,a[85].name);
TreeView1.Items.Add(nil,a[86].name);
TreeView1.Items.Add(nil,a[98].name);
TreeView1.Items.Add(nil,a[99].name);
TreeView1.Items.Add(nil,a[100].name);
TreeView1.Items.Add(nil,a[101].name);
TreeView1.Items.Add(nil,a[102].name);
End;
if ComboBox2.Text='Ракове' then begin
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,a[87].name);
TreeView1.Items.Add(nil,a[88].name);
TreeView1.Items.Add(nil,a[89].name);
TreeView1.Items.Add(nil,a[90].name);
TreeView1.Items.Add(nil,a[91].name);
TreeView1.Items.Add(nil,a[92].name);
TreeView1.Items.Add(nil,a[93].name);
TreeView1.Items.Add(nil,a[94].name);
TreeView1.Items.Add(nil,a[95].name);
TreeView1.Items.Add(nil,a[96].name);
TreeView1.Items.Add(nil,a[97].name);
TreeView1.Items.Add(nil,a[112].name);
TreeView1.Items.Add(nil,a[113].name);
TreeView1.Items.Add(nil,a[114].name);
TreeView1.Items.Add(nil,a[115].name);
TreeView1.Items.Add(nil,a[116].name);
TreeView1.Items.Add(nil,a[116].name);
TreeView1.Items.Add(nil,a[117].name);
TreeView1.Items.Add(nil,a[118].name);
TreeView1.Items.Add(nil,a[119].name);
TreeView1.Items.Add(nil,a[313].name);
TreeView1.Items.Add(nil,a[120].name);
TreeView1.Items.Add(nil,a[121].name);
TreeView1.Items.Add(nil,a[122].name);
TreeView1.Items.Add(nil,a[123].name);
TreeView1.Items.Add(nil,a[124].name);
TreeView1.Items.Add(nil,a[125].name);
TreeView1.Items.Add(nil,a[126].name);
TreeView1.Items.Add(nil,a[127].name);
TreeView1.Items.Add(nil,a[128].name);
TreeView1.Items.Add(nil,a[129].name);
TreeView1.Items.Add(nil,a[130].name);
TreeView1.Items.Add(nil,a[131].name);
TreeView1.Items.Add(nil,a[132].name);
TreeView1.Items.Add(nil,a[133].name);
TreeView1.Items.Add(nil,a[134].name);
TreeView1.Items.Add(nil,a[135].name);
TreeView1.Items.Add(nil,a[136].name);
TreeView1.Items.Add(nil,a[137].name);
TreeView1.Items.Add(nil,a[138].name);
TreeView1.Items.Add(nil,a[154].name);
TreeView1.Items.Add(nil,a[155].name);
TreeView1.Items.Add(nil,a[156].name);
TreeView1.Items.Add(nil,a[157].name);
TreeView1.Items.Add(nil,a[158].name);
TreeView1.Items.Add(nil,a[159].name);
TreeView1.Items.Add(nil,a[160].name);
TreeView1.Items.Add(nil,a[161].name);
TreeView1.Items.Add(nil,a[162].name);
TreeView1.Items.Add(nil,a[163].name);
TreeView1.Items.Add(nil,a[164].name);
TreeView1.Items.Add(nil,a[213].name);
TreeView1.Items.Add(nil,a[214].name);
TreeView1.Items.Add(nil,a[215].name);
TreeView1.Items.Add(nil,a[216].name);
TreeView1.Items.Add(nil,a[217].name);
TreeView1.Items.Add(nil,a[218].name);
TreeView1.Items.Add(nil,a[219].name);
End;
if ComboBox2.Text='Ружична' then begin
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,a[165].name);
TreeView1.Items.Add(nil,a[166].name);
TreeView1.Items.Add(nil,a[167].name);
TreeView1.Items.Add(nil,a[168].name);
TreeView1.Items.Add(nil,a[169].name);
TreeView1.Items.Add(nil,a[170].name);
TreeView1.Items.Add(nil,a[171].name);
TreeView1.Items.Add(nil,a[172].name);
TreeView1.Items.Add(nil,a[173].name);
TreeView1.Items.Add(nil,a[174].name);
TreeView1.Items.Add(nil,a[175].name);
TreeView1.Items.Add(nil,a[176].name);
TreeView1.Items.Add(nil,a[177].name);
TreeView1.Items.Add(nil,a[178].name);
TreeView1.Items.Add(nil,a[179].name);
TreeView1.Items.Add(nil,a[180].name);
TreeView1.Items.Add(nil,a[181].name);
TreeView1.Items.Add(nil,a[182].name);
TreeView1.Items.Add(nil,a[183].name);
TreeView1.Items.Add(nil,a[184].name);
TreeView1.Items.Add(nil,a[185].name);
TreeView1.Items.Add(nil,a[186].name);
TreeView1.Items.Add(nil,a[187].name);
TreeView1.Items.Add(nil,a[188].name);
TreeView1.Items.Add(nil,a[189].name);
TreeView1.Items.Add(nil,a[223].name);
TreeView1.Items.Add(nil,a[224].name);
TreeView1.Items.Add(nil,a[225].name);
TreeView1.Items.Add(nil,a[226].name);
TreeView1.Items.Add(nil,a[227].name);
TreeView1.Items.Add(nil,a[228].name);
TreeView1.Items.Add(nil,a[229].name);
TreeView1.Items.Add(nil,a[230].name);
TreeView1.Items.Add(nil,a[231].name);
TreeView1.Items.Add(nil,a[232].name);
TreeView1.Items.Add(nil,a[233].name);
TreeView1.Items.Add(nil,a[234].name);
TreeView1.Items.Add(nil,a[235].name);
TreeView1.Items.Add(nil,a[236].name);
TreeView1.Items.Add(nil,a[237].name);
TreeView1.Items.Add(nil,a[238].name);
TreeView1.Items.Add(nil,a[239].name);
TreeView1.Items.Add(nil,a[240].name);
TreeView1.Items.Add(nil,a[241].name);
TreeView1.Items.Add(nil,a[242].name);
TreeView1.Items.Add(nil,a[243].name);
TreeView1.Items.Add(nil,a[244].name);
TreeView1.Items.Add(nil,a[245].name);
TreeView1.Items.Add(nil,a[246].name);
TreeView1.Items.Add(nil,a[247].name);
TreeView1.Items.Add(nil,a[248].name);
TreeView1.Items.Add(nil,a[249].name);
TreeView1.Items.Add(nil,a[250].name);
TreeView1.Items.Add(nil,a[251].name);
End;
if ComboBox2.Text='Книжківці' then begin
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,a[136].name);
TreeView1.Items.Add(nil,a[139].name);
TreeView1.Items.Add(nil,a[140].name);
TreeView1.Items.Add(nil,a[141].name);
TreeView1.Items.Add(nil,a[142].name);
TreeView1.Items.Add(nil,a[143].name);
TreeView1.Items.Add(nil,a[144].name);
TreeView1.Items.Add(nil,a[145].name);
TreeView1.Items.Add(nil,a[146].name);
TreeView1.Items.Add(nil,a[147].name);
TreeView1.Items.Add(nil,a[148].name);