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

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;