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

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;