p align="left">Image64.Picture:=Image68.Picture; Image4.Picture:=Image68.Picture; Image66.Picture:=Image68.Picture; Image67.Picture:=Image68.Picture; end; procedure TForm1.Image66MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image66.Picture.LoadFromFile('ukaz.bmp'); Image5.Picture:=Image68.Picture; Image6.Picture:=Image68.Picture; Image7.Picture:=Image68.Picture; Image8.Picture:=Image68.Picture; Image9.Picture:=Image68.Picture; Image10.Picture:=Image68.Picture; Image11.Picture:=Image68.Picture; Image12.Picture:=Image68.Picture; Image13.Picture:=Image68.Picture; Image14.Picture:=Image68.Picture; Image15.Picture:=Image68.Picture; Image16.Picture:=Image68.Picture; Image17.Picture:=Image68.Picture; Image18.Picture:=Image68.Picture; Image19.Picture:=Image68.Picture; Image20.Picture:=Image68.Picture; Image21.Picture:=Image68.Picture; Image22.Picture:=Image68.Picture; Image23.Picture:=Image68.Picture; Image24.Picture:=Image68.Picture; Image25.Picture:=Image68.Picture; Image26.Picture:=Image68.Picture; Image27.Picture:=Image68.Picture; Image28.Picture:=Image68.Picture; Image29.Picture:=Image68.Picture; Image30.Picture:=Image68.Picture; Image31.Picture:=Image68.Picture; Image32.Picture:=Image68.Picture; Image33.Picture:=Image68.Picture; Image34.Picture:=Image68.Picture; Image35.Picture:=Image68.Picture; Image36.Picture:=Image68.Picture; Image37.Picture:=Image68.Picture; Image38.Picture:=Image68.Picture; Image39.Picture:=Image68.Picture; Image40.Picture:=Image68.Picture; Image41.Picture:=Image68.Picture; Image42.Picture:=Image68.Picture; Image43.Picture:=Image68.Picture; Image44.Picture:=Image68.Picture; Image45.Picture:=Image68.Picture; Image46.Picture:=Image68.Picture; Image47.Picture:=Image68.Picture; Image48.Picture:=Image68.Picture; Image49.Picture:=Image68.Picture; Image50.Picture:=Image68.Picture; Image51.Picture:=Image68.Picture; Image52.Picture:=Image68.Picture; Image53.Picture:=Image68.Picture; Image54.Picture:=Image68.Picture; Image55.Picture:=Image68.Picture; Image56.Picture:=Image68.Picture; Image57.Picture:=Image68.Picture; Image58.Picture:=Image68.Picture; Image59.Picture:=Image68.Picture; Image60.Picture:=Image68.Picture; Image61.Picture:=Image68.Picture; Image62.Picture:=Image68.Picture; Image63.Picture:=Image68.Picture; Image64.Picture:=Image68.Picture; Image65.Picture:=Image68.Picture; Image4.Picture:=Image68.Picture; Image67.Picture:=Image68.Picture; end; procedure TForm1.Image67MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image67.Picture.LoadFromFile('ukaz.bmp'); Image5.Picture:=Image68.Picture; Image6.Picture:=Image68.Picture; Image7.Picture:=Image68.Picture; Image8.Picture:=Image68.Picture; Image9.Picture:=Image68.Picture; Image10.Picture:=Image68.Picture; Image11.Picture:=Image68.Picture; Image12.Picture:=Image68.Picture; Image13.Picture:=Image68.Picture; Image14.Picture:=Image68.Picture; Image15.Picture:=Image68.Picture; Image16.Picture:=Image68.Picture; Image17.Picture:=Image68.Picture; Image18.Picture:=Image68.Picture; Image19.Picture:=Image68.Picture; Image20.Picture:=Image68.Picture; Image21.Picture:=Image68.Picture; Image22.Picture:=Image68.Picture; Image23.Picture:=Image68.Picture; Image24.Picture:=Image68.Picture; Image25.Picture:=Image68.Picture; Image26.Picture:=Image68.Picture; Image27.Picture:=Image68.Picture; Image28.Picture:=Image68.Picture; Image29.Picture:=Image68.Picture; Image30.Picture:=Image68.Picture; Image31.Picture:=Image68.Picture; Image32.Picture:=Image68.Picture; Image33.Picture:=Image68.Picture; Image34.Picture:=Image68.Picture; Image35.Picture:=Image68.Picture; Image36.Picture:=Image68.Picture; Image37.Picture:=Image68.Picture; Image38.Picture:=Image68.Picture; Image39.Picture:=Image68.Picture; Image40.Picture:=Image68.Picture; Image41.Picture:=Image68.Picture; Image42.Picture:=Image68.Picture; Image43.Picture:=Image68.Picture; Image44.Picture:=Image68.Picture; Image45.Picture:=Image68.Picture; Image46.Picture:=Image68.Picture; Image47.Picture:=Image68.Picture; Image48.Picture:=Image68.Picture; Image49.Picture:=Image68.Picture; Image50.Picture:=Image68.Picture; Image51.Picture:=Image68.Picture; Image52.Picture:=Image68.Picture; Image53.Picture:=Image68.Picture; Image54.Picture:=Image68.Picture; Image55.Picture:=Image68.Picture; Image56.Picture:=Image68.Picture; Image57.Picture:=Image68.Picture; Image58.Picture:=Image68.Picture; Image59.Picture:=Image68.Picture; Image60.Picture:=Image68.Picture; Image61.Picture:=Image68.Picture; Image62.Picture:=Image68.Picture; Image63.Picture:=Image68.Picture; Image64.Picture:=Image68.Picture; Image65.Picture:=Image68.Picture; Image66.Picture:=Image68.Picture; Image4.Picture:=Image68.Picture; end; procedure TForm1.Image4Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='1'; Panel1.Enabled:=false; Image4.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image5Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='2'; Panel1.Enabled:=false; Image5.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image6Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='3'; Panel1.Enabled:=false; Image6.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image7Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='4'; Panel1.Enabled:=false; Image7.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image8Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='5'; Panel1.Enabled:=false; Image8.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image9Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='6'; Panel1.Enabled:=false; Image9.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image10Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='7'; Panel1.Enabled:=false; Image10.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image11Click(Sender: TObject); begin Edit1.Text:='1'; Edit2.Text:='8'; Panel1.Enabled:=false; Image11.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image12Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='1'; Panel1.Enabled:=false; Image12.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image13Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='2'; Panel1.Enabled:=false; Image13.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image14Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='3'; Panel1.Enabled:=false; Image14.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image15Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='4'; Panel1.Enabled:=false; Image15.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image16Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='5'; Panel1.Enabled:=false; Image16.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image17Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='6'; Panel1.Enabled:=false; Image17.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image18Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='7'; Panel1.Enabled:=false; Image18.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image19Click(Sender: TObject); begin Edit1.Text:='2'; Edit2.Text:='8'; Panel1.Enabled:=false; Image19.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image20Click(Sender: TObject); begin Edit1.Text:='3'; Edit2.Text:='1'; Panel1.Enabled:=false; Image20.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image21Click(Sender: TObject); begin Edit1.Text:='3'; Edit2.Text:='2'; Panel1.Enabled:=false; Image21.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image22Click(Sender: TObject); begin Edit1.Text:='3'; Edit2.Text:='3'; Panel1.Enabled:=false; Image22.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image23Click(Sender: TObject); begin Edit1.Text:='3'; Edit2.Text:='4'; Panel1.Enabled:=false; Image23.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image24Click(Sender: TObject); begin Edit1.Text:='3'; Edit2.Text:='5'; Panel1.Enabled:=false; Image24.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image25Click(Sender: TObject); begin Edit1.Text:='3'; Edit2.Text:='6'; Panel1.Enabled:=false; Image25.Picture.LoadFromFile('kon.bmp'); end; procedure TForm1.Image26Click(Sender: TObject); begin Edit1.Text:='3'; Edit2.Text:='7'; Panel1.Enabled:=false; Image26.Picture.LoadFromFile('kon.bmp');
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
|