Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit Puzzle_;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.MPlayer,
- Vcl.Buttons;
- type
- TForm1 = class(TForm)
- Image1: TImage;
- Grille: TImage;
- Image4: TImage;
- Image2: TImage;
- Image5: TImage;
- Image6: TImage;
- Image7: TImage;
- Image3: TImage;
- Image8: TImage;
- Image9: TImage;
- Image10: TImage;
- Image11: TImage;
- Image12: TImage;
- Image13: TImage;
- MediaPlayer1: TMediaPlayer;
- Timer1: TTimer;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- BitBtn1: TBitBtn;
- BitBtn2: TBitBtn;
- BitBtn3: TBitBtn;
- BitBtn4: TBitBtn;
- Image14: TImage;
- procedure FormShow(Sender: TObject);
- procedure Image1Click(Sender: TObject);
- procedure Image2Click(Sender: TObject);
- procedure Image5Click(Sender: TObject);
- procedure Image4Click(Sender: TObject);
- procedure Image6Click(Sender: TObject);
- procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image7Click(Sender: TObject);
- procedure Image3Click(Sender: TObject);
- procedure Image9Click(Sender: TObject);
- procedure Image10Click(Sender: TObject);
- procedure Image8Click(Sender: TObject);
- procedure Image11Click(Sender: TObject);
- procedure Image12Click(Sender: TObject);
- procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image9MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image10MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image8MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image11MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image12MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image9MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image10MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image8MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image11MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Image12MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure BitBtn2Click(Sender: TObject);
- procedure BitBtn1Click(Sender: TObject);
- procedure BitBtn4Click(Sender: TObject);
- procedure BitBtn3Click(Sender: TObject);
- private
- i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,w,b : byte;
- t,m: boolean;
- r1,r2: integer;
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- procedure TForm1.BitBtn1Click(Sender: TObject);
- begin
- image1.left := 32;
- image1.top:= 250;
- image2.left := 111;
- image2.top:= 250;
- image5.left := 198;
- image5.top:= 250;
- image4.left := 300;
- image4.top:= 250;
- image6.left := 400;
- image6.top:= 250;
- image7.left := 509;
- image7.top:= 250;
- image3.left := 32;
- image3.top:= 380;
- image9.left := 104;
- image9.top:= 380;
- image10.left := 200;
- image10.top:= 380;
- image8.left := 300;
- image8.top:= 380;
- image11.left := 400;
- image11.top:= 380;
- image12.left := 509;
- image12.top:= 380;
- image13.visible := false;
- image14.Visible:= false;
- Grille.Picture.LoadFromFile('Tableau.bmp');
- image1.Visible:= true; image2.Visible:= true; image3.Visible:= true; image4.Visible:= true; image5.Visible:= true;
- image6.Visible:=true; image7.Visible:= true; image8.Visible:= true; image9.Visible:= true; image10.Visible:= true;
- image11.Visible:= true; image12.Visible:= true;
- end;
- procedure TForm1.BitBtn2Click(Sender: TObject);
- begin
- if self.MediaPlayer1.Enabled = true then
- begin
- b:=0;
- self.MediaPlayer1.Enabled := false;
- end
- else
- begin
- b:= 1;
- self.MediaPlayer1.Enabled := true;
- end;
- end;
- procedure TForm1.BitBtn3Click(Sender: TObject);
- begin
- Grille.Picture.LoadFromFile('solution.bmp');
- image1.Visible:= false; image2.Visible:= false; image3.Visible:= false; image4.Visible:= false; image5.Visible:= false;
- image6.Visible:= false; image7.Visible:= false; image8.Visible:= false; image9.Visible:= false; image10.Visible:= false;
- image11.Visible:= false; image12.Visible:= false;
- image13.Visible:= true;
- image13.Picture.LoadFromFile('smiley1.bmp');
- image14.Visible:= true;
- image14.Top:= 250;
- image14.Left:= 121;
- end;
- procedure TForm1.BitBtn4Click(Sender: TObject);
- begin
- image13.Picture.LoadFromFile('smiley2.bmp');
- image13.Visible:= true;
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'Cry.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end;
- procedure TForm1.FormShow(Sender: TObject);
- begin
- i1:= 0; i2:= 0; i3:= 0; i4:= 0; i5:= 0; i6:= 0; i7:= 0; i8:= 0; i9:= 0; i10:= 0; i11:= 0; i12:= 0;
- end;
- procedure TForm1.Image10Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i9=0 then begin self.Image10.Picture.LoadFromFile('img5_1.bmp'); i9:= 1 end else
- if i9=1 then begin self.Image10.Picture.LoadFromFile('img5_2.bmp'); i9:= 2 end else
- if i9=2 then begin self.Image10.Picture.LoadFromFile('img5_3.bmp'); i9:= 3 end else
- if i9=3 then begin self.Image10.Picture.LoadFromFile('img5.bmp'); i9:= 0 end;
- end;
- end;
- procedure TForm1.Image10MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image10.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image10MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image10.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image10.Top >=13) and (image10.Top<=112) and (image10.Left>=112) and (image10.Left<=362)then
- begin
- r1:= image10.Top mod 25;
- r2:= image10.Left mod 25;
- if r1 <12 then image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image10.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image10.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image10.top:= 380;
- image10.left:= 200;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image11Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i11=0 then begin self.Image11.Picture.LoadFromFile('img9_1.bmp'); i11:= 1 end else
- if i11=1 then begin self.Image11.Picture.LoadFromFile('img9_2.bmp'); i11:= 2 end else
- if i11=2 then begin self.Image11.Picture.LoadFromFile('img9_3.bmp'); i11:= 3 end else
- if i11=3 then begin self.Image11.Picture.LoadFromFile('img9.bmp'); i11:= 0 end;
- end;
- end;
- procedure TForm1.Image11MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image11.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image11MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image11.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image11.Top >=13) and (image11.Top<=112) and (image11.Left>=112) and (image11.Left<=362)then
- begin
- r1:= image11.Top mod 25;
- r2:= image11.Left mod 25;
- if r1 <12 then image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image11.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image11.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image11.top:= 380;
- image11.left:= 400;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image12Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i12=0 then begin self.Image12.Picture.LoadFromFile('img11_1.bmp'); i12:= 1 end else
- if i12=1 then begin self.Image12.Picture.LoadFromFile('img11_2.bmp'); i12:= 2 end else
- if i12=2 then begin self.Image12.Picture.LoadFromFile('img11_3.bmp'); i12:= 3 end else
- if i12=3 then begin self.Image12.Picture.LoadFromFile('img11.bmp'); i12:= 0 end;
- end;
- end;
- procedure TForm1.Image12MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image12.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image12MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image12.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image12.Top >=13) and (image12.Top<=112) and (image12.Left>=112) and (image12.Left<=362)then
- begin
- r1:= image12.Top mod 25;
- r2:= image12.Left mod 25;
- if r1 <12 then image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image12.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image12.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image12.top:= 380;
- image12.left:= 509;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image1Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i1=0 then begin self.Image1.Picture.LoadFromFile('img0_1.bmp'); i1:= 1 end else
- if i1=1 then begin self.Image1.Picture.LoadFromFile('img0_2.bmp'); i1:= 2 end else
- if i1=2 then begin self.Image1.Picture.LoadFromFile('img0_3.bmp'); i1:= 3 end else
- if i1=3 then begin self.Image1.Picture.LoadFromFile('img0.bmp'); i1:= 0 end;
- end;
- end;
- procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image1.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image1.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image1.Top >=13) and (image1.Top<=112) and (image1.Left>=112) and (image1.Left<=362)then // limiter selon les top et left de la grille
- begin
- r1:= image1.Top mod 25;
- r2:= image1.Left mod 25;
- if r1 <12 then image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image1.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image1.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image1.top:= 250;
- image1.left:= 32;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image2Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i2=0 then begin self.Image2.Picture.LoadFromFile('img2_1.bmp'); i2:= 1 end else
- if i2=1 then begin self.Image2.Picture.LoadFromFile('img2_2.bmp'); i2:= 2 end else
- if i2=2 then begin self.Image2.Picture.LoadFromFile('img2_3.bmp'); i2:= 3 end else
- if i2=3 then begin self.Image2.Picture.LoadFromFile('img2.bmp'); i2:= 0 end;
- end;
- end;
- procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image2.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image2.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image2.Top >=13) and (image2.Top<=112) and (image2.Left>=112) and (image2.Left<=362)then
- begin
- r1:= image2.Top mod 25;
- r2:= image2.Left mod 25;
- if r1 <12 then image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image2.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image2.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image2.top:= 250;
- image2.left:= 111;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image3Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i7=0 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 1 end else
- if i7=1 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 2 end else
- if i7=2 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 3 end else
- if i7=3 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 0 end;
- end;
- end;
- procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image3.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image3.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image3.Top >=13) and (image3.Top<=112) and (image3.Left>=112) and (image3.Left<=362)then
- begin
- r1:= image3.Top mod 25;
- r2:= image3.Left mod 25;
- if r1 <12 then image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image3.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image3.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image3.top:= 380;
- image3.left:= 32;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image4Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i4=0 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 1 end else
- if i4=1 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 2 end else
- if i4=2 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 3 end else
- if i4=3 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 0 end;
- end;
- end;
- procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image4.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image4MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image4.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image4.Top >=13) and (image4.Top<=112) and (image4.Left>=112) and (image4.Left<=362)then
- begin
- r1:= image4.Top mod 25;
- r2:= image4.Left mod 25;
- if r1 <12 then image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image4.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image4.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image4.top:= 250;
- image4.left:= 300;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image5Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i3=0 then begin self.Image5.Picture.LoadFromFile('img4_1.bmp'); i3:= 1 end else
- if i3=1 then begin self.Image5.Picture.LoadFromFile('img4_2.bmp'); i3:= 2 end else
- if i3=2 then begin self.Image5.Picture.LoadFromFile('img4_3.bmp'); i3:= 3 end else
- if i3=3 then begin self.Image5.Picture.LoadFromFile('img4.bmp'); i3:= 0 end;
- end;
- end;
- procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image5.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image5MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image5.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image5.Top >=13) and (image5.Top<=112) and (image5.Left>=112) and (image5.Left<=362)then
- begin
- r1:= image5.Top mod 25;
- r2:= image5.Left mod 25;
- if r1 <12 then image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image5.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image5.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image5.top:= 250;
- image5.left:= 198;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image6Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i5=0 then begin self.Image6.Picture.LoadFromFile('img8.bmp'); i5:= 1 end else
- if i5=1 then begin self.Image6.Picture.LoadFromFile('img8_1.bmp'); i5:= 2 end else
- if i5=2 then begin self.Image6.Picture.LoadFromFile('img8.bmp'); i5:= 3 end else
- if i5=3 then begin self.Image6.Picture.LoadFromFile('img8_1.bmp'); i5:= 0 end;
- end;
- end;
- procedure TForm1.Image6MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image6.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image6MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image6.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image6.Top >=13) and (image6.Top<=112) and (image6.Left>=112) and (image6.Left<=362)then
- begin
- r1:= image6.Top mod 25;
- r2:= image6.Left mod 25;
- if r1 <12 then image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image6.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image6.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image6.top:= 250;
- image6.left:= 400;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image7Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i6=0 then begin self.Image7.Picture.LoadFromFile('img10_1.bmp'); i6:= 1 end else
- if i6=1 then begin self.Image7.Picture.LoadFromFile('img10_2.bmp'); i6:= 2 end else
- if i6=2 then begin self.Image7.Picture.LoadFromFile('img10_3.bmp'); i6:= 3 end else
- if i6=3 then begin self.Image7.Picture.LoadFromFile('img10.bmp'); i6:= 0 end;
- end;
- end;
- procedure TForm1.Image7MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image7.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image7MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image7.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image7.Top >=13) and (image7.Top<=112) and (image7.Left>=112) and (image7.Left<=362)then
- begin
- r1:= image7.Top mod 25;
- r2:= image7.Left mod 25;
- if r1 <12 then image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image7.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image7.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image7.top:= 250;
- image7.left:= 509;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image8Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i10=0 then begin self.Image8.Picture.LoadFromFile('img7_1.bmp'); i10:= 1 end else
- if i10=1 then begin self.Image8.Picture.LoadFromFile('img7_2.bmp'); i10:= 2 end else
- if i10=2 then begin self.Image8.Picture.LoadFromFile('img7_3.bmp'); i10:= 3 end else
- if i10=3 then begin self.Image8.Picture.LoadFromFile('img7.bmp'); i10:= 0 end;
- end;
- end;
- procedure TForm1.Image8MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image8.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image8MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image8.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image8.Top >=13) and (image8.Top<=112) and (image8.Left>=112) and (image8.Left<=362)then
- begin
- r1:= image8.Top mod 25;
- r2:= image8.Left mod 25;
- if r1 <12 then image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image8.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image8.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image8.top:= 380;
- image8.left:= 300;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- procedure TForm1.Image9Click(Sender: TObject);
- begin
- if m=false then
- begin
- if i8=0 then begin self.Image9.Picture.LoadFromFile('img3_1.bmp'); i8:= 1 end else
- if i8=1 then begin self.Image9.Picture.LoadFromFile('img3_2.bmp'); i8:= 2 end else
- if i8=2 then begin self.Image9.Picture.LoadFromFile('img3_3.bmp'); i8:= 3 end else
- if i8=3 then begin self.Image9.Picture.LoadFromFile('img3.bmp'); i8:= 0 end;
- end;
- end;
- procedure TForm1.Image9MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- m:= false;
- t:= true
- end;
- procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- m:= true;
- if t=true then
- begin
- image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image9.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- end;
- end;
- procedure TForm1.Image9MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- t:= false;
- image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
- image9.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
- b:= 1;
- if (image9.Top >=13) and (image9.Top<=112) and (image9.Left>=112) and (image9.Left<=362)then
- begin
- r1:= image9.Top mod 25;
- r2:= image9.Left mod 25;
- if r1 <12 then image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
- image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
- if r2 <12 then image9.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
- image9.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
- if b=1 then
- begin
- self.MediaPlayer1.FileName:= 'CAMERA.wav';
- self.MediaPlayer1.Open;
- self.MediaPlayer1.play;
- end
- end else
- begin
- image9.top:= 380;
- image9.left:= 104;
- if b=1 then
- begin
- self.mediaplayer1.filename:= 'erreur.wav';
- self.mediaplayer1.open;
- self.mediaplayer1.play;
- end;
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement