49706 (Довідник по Хмельницькому), страница 4

2016-07-30СтудИзба

Описание файла

Документ из архива "Довідник по Хмельницькому", который расположен в категории "". Всё это находится в предмете "информатика" из 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);

Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4100
Авторов
на СтудИзбе
670
Средний доход
с одного платного файла
Обучение Подробнее