Курсовая работа: Довідник по Хмельницькому

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);