API tools faq
paste
Advertisement
jimmyfeu

Untitled

jimmyfeu
Nov 11th, 2017
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 31.09 KB | None | 0 0
raw download clone embed print report
  1. unit Puzzle_;
  2.  
  3. interface
  4.  
  5. uses
  6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.MPlayer,
  8.   Vcl.Buttons;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Image1: TImage;
  13.     Grille: TImage;
  14.     Image4: TImage;
  15.     Image2: TImage;
  16.     Image5: TImage;
  17.     Image6: TImage;
  18.     Image7: TImage;
  19.     Image3: TImage;
  20.     Image8: TImage;
  21.     Image9: TImage;
  22.     Image10: TImage;
  23.     Image11: TImage;
  24.     Image12: TImage;
  25.     Image13: TImage;
  26.     MediaPlayer1: TMediaPlayer;
  27.     Timer1: TTimer;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Label3: TLabel;
  31.     BitBtn1: TBitBtn;
  32.     BitBtn2: TBitBtn;
  33.     BitBtn3: TBitBtn;
  34.     BitBtn4: TBitBtn;
  35.     Image14: TImage;
  36.     procedure FormShow(Sender: TObject);
  37.     procedure Image1Click(Sender: TObject);
  38.     procedure Image2Click(Sender: TObject);
  39.     procedure Image5Click(Sender: TObject);
  40.     procedure Image4Click(Sender: TObject);
  41.     procedure Image6Click(Sender: TObject);
  42.     procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
  43.       Shift: TShiftState; X, Y: Integer);
  44.     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  45.       Y: Integer);
  46.     procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
  47.       Shift: TShiftState; X, Y: Integer);
  48.     procedure Image7Click(Sender: TObject);
  49.     procedure Image3Click(Sender: TObject);
  50.     procedure Image9Click(Sender: TObject);
  51.     procedure Image10Click(Sender: TObject);
  52.     procedure Image8Click(Sender: TObject);
  53.     procedure Image11Click(Sender: TObject);
  54.     procedure Image12Click(Sender: TObject);
  55.     procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
  56.       Shift: TShiftState; X, Y: Integer);
  57.     procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;
  58.       Shift: TShiftState; X, Y: Integer);
  59.     procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
  60.       Shift: TShiftState; X, Y: Integer);
  61.     procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
  62.       Shift: TShiftState; X, Y: Integer);
  63.     procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;
  64.       Shift: TShiftState; X, Y: Integer);
  65.     procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
  66.       Shift: TShiftState; X, Y: Integer);
  67.     procedure Image9MouseDown(Sender: TObject; Button: TMouseButton;
  68.       Shift: TShiftState; X, Y: Integer);
  69.     procedure Image10MouseDown(Sender: TObject; Button: TMouseButton;
  70.       Shift: TShiftState; X, Y: Integer);
  71.     procedure Image8MouseDown(Sender: TObject; Button: TMouseButton;
  72.       Shift: TShiftState; X, Y: Integer);
  73.     procedure Image11MouseDown(Sender: TObject; Button: TMouseButton;
  74.       Shift: TShiftState; X, Y: Integer);
  75.     procedure Image12MouseDown(Sender: TObject; Button: TMouseButton;
  76.       Shift: TShiftState; X, Y: Integer);
  77.     procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  78.       Y: Integer);
  79.     procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  80.       Y: Integer);
  81.     procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  82.       Y: Integer);
  83.     procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  84.       Y: Integer);
  85.     procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
  86.       Y: Integer);
  87.     procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  88.       Y: Integer);
  89.     procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
  90.       Y: Integer);
  91.     procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
  92.       Y: Integer);
  93.     procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
  94.       Y: Integer);
  95.     procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
  96.       Y: Integer);
  97.     procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
  98.       Y: Integer);
  99.     procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
  100.       Shift: TShiftState; X, Y: Integer);
  101.     procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;
  102.       Shift: TShiftState; X, Y: Integer);
  103.     procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;
  104.       Shift: TShiftState; X, Y: Integer);
  105.     procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;
  106.       Shift: TShiftState; X, Y: Integer);
  107.     procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;
  108.       Shift: TShiftState; X, Y: Integer);
  109.     procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;
  110.       Shift: TShiftState; X, Y: Integer);
  111.     procedure Image9MouseUp(Sender: TObject; Button: TMouseButton;
  112.       Shift: TShiftState; X, Y: Integer);
  113.     procedure Image10MouseUp(Sender: TObject; Button: TMouseButton;
  114.       Shift: TShiftState; X, Y: Integer);
  115.     procedure Image8MouseUp(Sender: TObject; Button: TMouseButton;
  116.       Shift: TShiftState; X, Y: Integer);
  117.     procedure Image11MouseUp(Sender: TObject; Button: TMouseButton;
  118.       Shift: TShiftState; X, Y: Integer);
  119.     procedure Image12MouseUp(Sender: TObject; Button: TMouseButton;
  120.       Shift: TShiftState; X, Y: Integer);
  121.     procedure BitBtn2Click(Sender: TObject);
  122.     procedure BitBtn1Click(Sender: TObject);
  123.     procedure BitBtn4Click(Sender: TObject);
  124.     procedure BitBtn3Click(Sender: TObject);
  125.   private
  126.   i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,w,b : byte;
  127.   t,m: boolean;
  128.   r1,r2: integer;
  129.  
  130.     { Private declarations }
  131.   public
  132.     { Public declarations }
  133.   end;
  134.  
  135. var
  136.   Form1: TForm1;
  137.  
  138.  
  139. implementation
  140.  
  141. {$R *.dfm}
  142.  
  143.  
  144. procedure TForm1.BitBtn1Click(Sender: TObject);
  145. begin
  146. image1.left := 32;
  147. image1.top:= 250;
  148. image2.left := 111;
  149. image2.top:= 250;
  150. image5.left := 198;
  151. image5.top:= 250;
  152. image4.left := 300;
  153. image4.top:= 250;
  154. image6.left := 400;
  155. image6.top:= 250;
  156. image7.left := 509;
  157. image7.top:= 250;
  158.  
  159. image3.left := 32;
  160. image3.top:= 380;
  161. image9.left := 104;
  162. image9.top:= 380;
  163. image10.left := 200;
  164. image10.top:= 380;
  165. image8.left := 300;
  166. image8.top:= 380;
  167. image11.left := 400;
  168. image11.top:= 380;
  169. image12.left := 509;
  170. image12.top:= 380;
  171.  
  172. image13.visible := false;
  173. image14.Visible:= false;
  174.  
  175. Grille.Picture.LoadFromFile('Tableau.bmp');
  176.  
  177. image1.Visible:= true; image2.Visible:= true; image3.Visible:= true; image4.Visible:= true; image5.Visible:= true;
  178. image6.Visible:=true; image7.Visible:= true; image8.Visible:= true; image9.Visible:= true; image10.Visible:= true;
  179. image11.Visible:= true; image12.Visible:= true;
  180. end;
  181.  
  182. procedure TForm1.BitBtn2Click(Sender: TObject);
  183. begin
  184.   if self.MediaPlayer1.Enabled = true then
  185.   begin
  186.     b:=0;
  187.     self.MediaPlayer1.Enabled := false;
  188.   end
  189.   else
  190.   begin
  191.     b:= 1;
  192.     self.MediaPlayer1.Enabled := true;
  193.   end;
  194. end;
  195.  
  196. procedure TForm1.BitBtn3Click(Sender: TObject);
  197. begin
  198.   Grille.Picture.LoadFromFile('solution.bmp');
  199.  
  200.   image1.Visible:= false; image2.Visible:= false; image3.Visible:= false; image4.Visible:= false; image5.Visible:= false;
  201.   image6.Visible:= false; image7.Visible:= false; image8.Visible:= false; image9.Visible:= false; image10.Visible:= false;
  202.   image11.Visible:= false; image12.Visible:= false;
  203.  
  204.   image13.Visible:= true;
  205.   image13.Picture.LoadFromFile('smiley1.bmp');
  206.   image14.Visible:= true;
  207.   image14.Top:= 250;
  208.   image14.Left:= 121;
  209. end;
  210.  
  211. procedure TForm1.BitBtn4Click(Sender: TObject);
  212. begin
  213.   image13.Picture.LoadFromFile('smiley2.bmp');
  214.   image13.Visible:= true;
  215.   if b=1 then
  216.   begin
  217.     self.MediaPlayer1.FileName:= 'Cry.wav';
  218.     self.MediaPlayer1.Open;
  219.     self.MediaPlayer1.play;
  220.   end
  221.  
  222. end;
  223.  
  224. procedure TForm1.FormShow(Sender: TObject);
  225. begin
  226.   i1:= 0; i2:= 0; i3:= 0; i4:= 0; i5:= 0; i6:= 0; i7:= 0; i8:= 0; i9:= 0; i10:= 0; i11:= 0; i12:= 0;
  227. end;
  228.  
  229.  
  230. procedure TForm1.Image10Click(Sender: TObject);
  231. begin
  232.   if m=false then
  233.   begin
  234.   if i9=0 then begin self.Image10.Picture.LoadFromFile('img5_1.bmp'); i9:= 1 end else
  235.   if i9=1 then begin self.Image10.Picture.LoadFromFile('img5_2.bmp'); i9:= 2 end else
  236.   if i9=2 then begin self.Image10.Picture.LoadFromFile('img5_3.bmp'); i9:= 3 end else
  237.   if i9=3 then begin self.Image10.Picture.LoadFromFile('img5.bmp'); i9:= 0 end;
  238.   end;
  239. end;
  240.  
  241. procedure TForm1.Image10MouseDown(Sender: TObject; Button: TMouseButton;
  242.   Shift: TShiftState; X, Y: Integer);
  243. begin
  244.   m:= false;
  245.   t:= true
  246. end;
  247.  
  248. procedure TForm1.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
  249.   Y: Integer);
  250. begin
  251.   m:= true;
  252.   if t=true then
  253.     begin
  254.       image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  255.       image10.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  256.     end;
  257. end;
  258.  
  259. procedure TForm1.Image10MouseUp(Sender: TObject; Button: TMouseButton;
  260.   Shift: TShiftState; X, Y: Integer);
  261. begin
  262.   t:= false;
  263.   image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  264.   image10.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  265.  
  266.   b:= 1;
  267.   if (image10.Top >=13) and (image10.Top<=112) and (image10.Left>=112) and (image10.Left<=362)then
  268.   begin
  269.   r1:= image10.Top mod 25;
  270.   r2:= image10.Left mod 25;
  271.   if r1 <12 then image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  272.   image10.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  273.   if r2 <12 then image10.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  274.   image10.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  275.   if b=1 then
  276.   begin
  277.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  278.     self.MediaPlayer1.Open;
  279.     self.MediaPlayer1.play;
  280.   end
  281.   end else
  282.   begin
  283.     image10.top:= 380;
  284.     image10.left:= 200;
  285.       if b=1 then
  286.       begin
  287.         self.mediaplayer1.filename:= 'erreur.wav';
  288.         self.mediaplayer1.open;
  289.         self.mediaplayer1.play;
  290.       end;
  291.   end;
  292. end;
  293.  
  294. procedure TForm1.Image11Click(Sender: TObject);
  295. begin
  296.   if m=false then
  297.   begin
  298.   if i11=0 then begin self.Image11.Picture.LoadFromFile('img9_1.bmp'); i11:= 1 end else
  299.   if i11=1 then begin self.Image11.Picture.LoadFromFile('img9_2.bmp'); i11:= 2 end else
  300.   if i11=2 then begin self.Image11.Picture.LoadFromFile('img9_3.bmp'); i11:= 3 end else
  301.   if i11=3 then begin self.Image11.Picture.LoadFromFile('img9.bmp'); i11:= 0 end;
  302.   end;
  303. end;
  304.  
  305. procedure TForm1.Image11MouseDown(Sender: TObject; Button: TMouseButton;
  306.   Shift: TShiftState; X, Y: Integer);
  307. begin
  308.   m:= false;
  309.   t:= true
  310. end;
  311.  
  312. procedure TForm1.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
  313.   Y: Integer);
  314. begin
  315.   m:= true;
  316.   if t=true then
  317.     begin
  318.       image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  319.       image11.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  320.     end;
  321. end;
  322.  
  323. procedure TForm1.Image11MouseUp(Sender: TObject; Button: TMouseButton;
  324.   Shift: TShiftState; X, Y: Integer);
  325. begin
  326.   t:= false;
  327.   image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  328.   image11.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  329.  
  330.   b:= 1;
  331.   if (image11.Top >=13) and (image11.Top<=112) and (image11.Left>=112) and (image11.Left<=362)then
  332.   begin
  333.   r1:= image11.Top mod 25;
  334.   r2:= image11.Left mod 25;
  335.   if r1 <12 then image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  336.   image11.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  337.   if r2 <12 then image11.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  338.   image11.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  339.   if b=1 then
  340.   begin
  341.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  342.     self.MediaPlayer1.Open;
  343.     self.MediaPlayer1.play;
  344.   end
  345.   end else
  346.   begin
  347.     image11.top:= 380;
  348.     image11.left:= 400;
  349.       if b=1 then
  350.       begin
  351.         self.mediaplayer1.filename:= 'erreur.wav';
  352.         self.mediaplayer1.open;
  353.         self.mediaplayer1.play;
  354.       end;
  355.   end;
  356. end;
  357.  
  358. procedure TForm1.Image12Click(Sender: TObject);
  359. begin
  360.   if m=false then
  361.   begin
  362.   if i12=0 then begin self.Image12.Picture.LoadFromFile('img11_1.bmp'); i12:= 1 end else
  363.   if i12=1 then begin self.Image12.Picture.LoadFromFile('img11_2.bmp'); i12:= 2 end else
  364.   if i12=2 then begin self.Image12.Picture.LoadFromFile('img11_3.bmp'); i12:= 3 end else
  365.   if i12=3 then begin self.Image12.Picture.LoadFromFile('img11.bmp'); i12:= 0 end;
  366.   end;
  367. end;
  368.  
  369. procedure TForm1.Image12MouseDown(Sender: TObject; Button: TMouseButton;
  370.   Shift: TShiftState; X, Y: Integer);
  371. begin
  372.   m:= false;
  373.   t:= true
  374. end;
  375.  
  376. procedure TForm1.Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
  377.   Y: Integer);
  378. begin
  379.   m:= true;
  380.   if t=true then
  381.     begin
  382.       image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  383.       image12.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  384.     end;
  385. end;
  386.  
  387. procedure TForm1.Image12MouseUp(Sender: TObject; Button: TMouseButton;
  388.   Shift: TShiftState; X, Y: Integer);
  389. begin
  390.   t:= false;
  391.   image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  392.   image12.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  393.  
  394.   b:= 1;
  395.   if (image12.Top >=13) and (image12.Top<=112) and (image12.Left>=112) and (image12.Left<=362)then
  396.   begin
  397.   r1:= image12.Top mod 25;
  398.   r2:= image12.Left mod 25;
  399.   if r1 <12 then image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  400.   image12.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  401.   if r2 <12 then image12.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  402.   image12.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  403.   if b=1 then
  404.   begin
  405.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  406.     self.MediaPlayer1.Open;
  407.     self.MediaPlayer1.play;
  408.   end
  409.   end else
  410.   begin
  411.     image12.top:= 380;
  412.     image12.left:= 509;
  413.       if b=1 then
  414.       begin
  415.         self.mediaplayer1.filename:= 'erreur.wav';
  416.         self.mediaplayer1.open;
  417.         self.mediaplayer1.play;
  418.       end;
  419.   end;
  420. end;
  421.  
  422. procedure TForm1.Image1Click(Sender: TObject);
  423. begin
  424.   if m=false then
  425.   begin
  426.   if i1=0 then begin self.Image1.Picture.LoadFromFile('img0_1.bmp'); i1:= 1 end else
  427.   if i1=1 then begin self.Image1.Picture.LoadFromFile('img0_2.bmp'); i1:= 2 end else
  428.   if i1=2 then begin self.Image1.Picture.LoadFromFile('img0_3.bmp'); i1:= 3 end else
  429.   if i1=3 then begin self.Image1.Picture.LoadFromFile('img0.bmp'); i1:= 0 end;
  430.  
  431.   end;
  432. end;
  433.  
  434. procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  435.   Shift: TShiftState; X, Y: Integer);
  436. begin
  437.   m:= false;
  438.   t:= true
  439. end;
  440.  
  441.  
  442. procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  443.   Y: Integer);
  444. begin
  445.   m:= true;
  446.   if t=true then
  447.     begin
  448.       image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  449.       image1.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  450.     end;
  451. end;
  452.  
  453.  
  454. procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  455.   Shift: TShiftState; X, Y: Integer);
  456. begin
  457.   t:= false;
  458.   image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  459.   image1.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  460.  
  461.   b:= 1;
  462.   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
  463.   begin
  464.   r1:= image1.Top mod 25;
  465.   r2:= image1.Left mod 25;
  466.   if r1 <12 then image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  467.   image1.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  468.   if r2 <12 then image1.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  469.   image1.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  470.   if b=1 then
  471.   begin
  472.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  473.     self.MediaPlayer1.Open;
  474.     self.MediaPlayer1.play;
  475.   end
  476.   end else
  477.   begin
  478.     image1.top:= 250;
  479.     image1.left:= 32;
  480.       if b=1 then
  481.       begin
  482.         self.mediaplayer1.filename:= 'erreur.wav';
  483.         self.mediaplayer1.open;
  484.         self.mediaplayer1.play;
  485.       end;
  486.   end;
  487. end;
  488.  
  489.  
  490. procedure TForm1.Image2Click(Sender: TObject);
  491. begin
  492.   if m=false then
  493.   begin
  494.   if i2=0 then begin self.Image2.Picture.LoadFromFile('img2_1.bmp'); i2:= 1 end else
  495.   if i2=1 then begin self.Image2.Picture.LoadFromFile('img2_2.bmp'); i2:= 2 end else
  496.   if i2=2 then begin self.Image2.Picture.LoadFromFile('img2_3.bmp'); i2:= 3 end else
  497.   if i2=3 then begin self.Image2.Picture.LoadFromFile('img2.bmp'); i2:= 0 end;
  498.   end;
  499. end;
  500.  
  501. procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  502.   Shift: TShiftState; X, Y: Integer);
  503. begin
  504.   m:= false;
  505.   t:= true
  506. end;
  507.  
  508. procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  509.   Y: Integer);
  510. begin
  511.   m:= true;
  512.   if t=true then
  513.     begin
  514.       image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  515.       image2.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  516.     end;
  517. end;
  518.  
  519. procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  520.   Shift: TShiftState; X, Y: Integer);
  521. begin
  522.   t:= false;
  523.   image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  524.   image2.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  525.  
  526.   b:= 1;
  527.   if (image2.Top >=13) and (image2.Top<=112) and (image2.Left>=112) and (image2.Left<=362)then
  528.   begin
  529.   r1:= image2.Top mod 25;
  530.   r2:= image2.Left mod 25;
  531.   if r1 <12 then image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  532.   image2.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  533.   if r2 <12 then image2.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  534.   image2.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  535.   if b=1 then
  536.   begin
  537.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  538.     self.MediaPlayer1.Open;
  539.     self.MediaPlayer1.play;
  540.   end
  541.   end else
  542.   begin
  543.     image2.top:= 250;
  544.     image2.left:= 111;
  545.       if b=1 then
  546.       begin
  547.         self.mediaplayer1.filename:= 'erreur.wav';
  548.         self.mediaplayer1.open;
  549.         self.mediaplayer1.play;
  550.       end;
  551.   end;
  552. end;
  553.  
  554.  
  555. procedure TForm1.Image3Click(Sender: TObject);
  556.   begin
  557.   if m=false then
  558.   begin
  559.   if i7=0 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 1 end else
  560.   if i7=1 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 2 end else
  561.   if i7=2 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 3 end else
  562.   if i7=3 then begin self.Image3.Picture.LoadFromFile('img1.bmp'); i7:= 0 end;
  563.   end;
  564. end;
  565.  
  566.  
  567. procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  568.   Shift: TShiftState; X, Y: Integer);
  569. begin
  570.   m:= false;
  571.   t:= true
  572. end;
  573.  
  574.  
  575. procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  576.   Y: Integer);
  577. begin
  578.   m:= true;
  579.   if t=true then
  580.     begin
  581.       image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  582.       image3.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  583.     end;
  584. end;
  585.  
  586.  
  587. procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton;
  588.   Shift: TShiftState; X, Y: Integer);
  589. begin
  590.   t:= false;
  591.   image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  592.   image3.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  593.  
  594.   b:= 1;
  595.   if (image3.Top >=13) and (image3.Top<=112) and (image3.Left>=112) and (image3.Left<=362)then
  596.   begin
  597.   r1:= image3.Top mod 25;
  598.   r2:= image3.Left mod 25;
  599.   if r1 <12 then image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  600.   image3.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  601.   if r2 <12 then image3.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  602.   image3.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  603.   if b=1 then
  604.   begin
  605.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  606.     self.MediaPlayer1.Open;
  607.     self.MediaPlayer1.play;
  608.   end
  609.   end else
  610.   begin
  611.     image3.top:= 380;
  612.     image3.left:= 32;
  613.       if b=1 then
  614.       begin
  615.         self.mediaplayer1.filename:= 'erreur.wav';
  616.         self.mediaplayer1.open;
  617.         self.mediaplayer1.play;
  618.       end;
  619.   end;
  620. end;
  621.  
  622.  
  623. procedure TForm1.Image4Click(Sender: TObject);
  624. begin
  625.   if m=false then
  626.   begin
  627.   if i4=0 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 1 end else
  628.   if i4=1 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 2 end else
  629.   if i4=2 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 3 end else
  630.   if i4=3 then begin self.Image4.Picture.LoadFromFile('img6.bmp'); i4:= 0 end;
  631.   end;
  632. end;
  633.  
  634.  
  635. procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton;
  636.   Shift: TShiftState; X, Y: Integer);
  637. begin
  638.   m:= false;
  639.   t:= true
  640. end;
  641.  
  642.  
  643. procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  644.   Y: Integer);
  645. begin
  646.   m:= true;
  647.   if t=true then
  648.     begin
  649.       image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  650.       image4.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  651.     end;
  652. end;
  653.  
  654.  
  655. procedure TForm1.Image4MouseUp(Sender: TObject; Button: TMouseButton;
  656.   Shift: TShiftState; X, Y: Integer);
  657. begin
  658.   t:= false;
  659.   image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  660.   image4.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  661.  
  662.   b:= 1;
  663.   if (image4.Top >=13) and (image4.Top<=112) and (image4.Left>=112) and (image4.Left<=362)then
  664.   begin
  665.   r1:= image4.Top mod 25;
  666.   r2:= image4.Left mod 25;
  667.   if r1 <12 then image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  668.   image4.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  669.   if r2 <12 then image4.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  670.   image4.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  671.   if b=1 then
  672.   begin
  673.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  674.     self.MediaPlayer1.Open;
  675.     self.MediaPlayer1.play;
  676.   end
  677.   end else
  678.   begin
  679.     image4.top:= 250;
  680.     image4.left:= 300;
  681.       if b=1 then
  682.       begin
  683.         self.mediaplayer1.filename:= 'erreur.wav';
  684.         self.mediaplayer1.open;
  685.         self.mediaplayer1.play;
  686.       end;
  687.   end;
  688. end;
  689.  
  690.  
  691. procedure TForm1.Image5Click(Sender: TObject);
  692. begin
  693.   if m=false then
  694.   begin
  695.   if i3=0 then begin self.Image5.Picture.LoadFromFile('img4_1.bmp'); i3:= 1 end else
  696.   if i3=1 then begin self.Image5.Picture.LoadFromFile('img4_2.bmp'); i3:= 2 end else
  697.   if i3=2 then begin self.Image5.Picture.LoadFromFile('img4_3.bmp'); i3:= 3 end else
  698.   if i3=3 then begin self.Image5.Picture.LoadFromFile('img4.bmp'); i3:= 0 end;
  699.   end;
  700. end;
  701.  
  702.  
  703. procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton;
  704.   Shift: TShiftState; X, Y: Integer);
  705. begin
  706.   m:= false;
  707.   t:= true
  708. end;
  709.  
  710.  
  711. procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  712.   Y: Integer);
  713. begin
  714.     m:= true;
  715.   if t=true then
  716.     begin
  717.       image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  718.       image5.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  719.     end;
  720. end;
  721.  
  722.  
  723. procedure TForm1.Image5MouseUp(Sender: TObject; Button: TMouseButton;
  724.   Shift: TShiftState; X, Y: Integer);
  725. begin
  726.   t:= false;
  727.   image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  728.   image5.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  729.  
  730.   b:= 1;
  731.   if (image5.Top >=13) and (image5.Top<=112) and (image5.Left>=112) and (image5.Left<=362)then
  732.   begin
  733.   r1:= image5.Top mod 25;
  734.   r2:= image5.Left mod 25;
  735.   if r1 <12 then image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  736.   image5.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  737.   if r2 <12 then image5.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  738.   image5.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  739.   if b=1 then
  740.   begin
  741.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  742.     self.MediaPlayer1.Open;
  743.     self.MediaPlayer1.play;
  744.   end
  745.   end else
  746.   begin
  747.     image5.top:= 250;
  748.     image5.left:= 198;
  749.       if b=1 then
  750.       begin
  751.         self.mediaplayer1.filename:= 'erreur.wav';
  752.         self.mediaplayer1.open;
  753.         self.mediaplayer1.play;
  754.       end;
  755.   end;
  756. end;
  757.  
  758.  
  759. procedure TForm1.Image6Click(Sender: TObject);
  760. begin
  761. if m=false then
  762.   begin
  763.   if i5=0 then begin self.Image6.Picture.LoadFromFile('img8.bmp'); i5:= 1 end else
  764.   if i5=1 then begin self.Image6.Picture.LoadFromFile('img8_1.bmp'); i5:= 2 end else
  765.   if i5=2 then begin self.Image6.Picture.LoadFromFile('img8.bmp'); i5:= 3 end else
  766.   if i5=3 then begin self.Image6.Picture.LoadFromFile('img8_1.bmp'); i5:= 0 end;
  767.   end;
  768. end;
  769.  
  770.  
  771. procedure TForm1.Image6MouseDown(Sender: TObject; Button: TMouseButton;
  772.   Shift: TShiftState; X, Y: Integer);
  773. begin
  774.   m:= false;
  775.   t:= true
  776. end;
  777.  
  778.  
  779. procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  780.   Y: Integer);
  781. begin
  782.   m:= true;
  783.   if t=true then
  784.     begin
  785.       image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  786.       image6.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  787.     end;
  788. end;
  789.  
  790.  
  791. procedure TForm1.Image6MouseUp(Sender: TObject; Button: TMouseButton;
  792.   Shift: TShiftState; X, Y: Integer);
  793. begin
  794.   t:= false;
  795.   image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  796.   image6.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  797.  
  798.   b:= 1;
  799.   if (image6.Top >=13) and (image6.Top<=112) and (image6.Left>=112) and (image6.Left<=362)then
  800.   begin
  801.   r1:= image6.Top mod 25;
  802.   r2:= image6.Left mod 25;
  803.   if r1 <12 then image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  804.   image6.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  805.   if r2 <12 then image6.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  806.   image6.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  807.   if b=1 then
  808.   begin
  809.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  810.     self.MediaPlayer1.Open;
  811.     self.MediaPlayer1.play;
  812.   end
  813.   end else
  814.   begin
  815.     image6.top:= 250;
  816.     image6.left:= 400;
  817.       if b=1 then
  818.       begin
  819.         self.mediaplayer1.filename:= 'erreur.wav';
  820.         self.mediaplayer1.open;
  821.         self.mediaplayer1.play;
  822.       end;
  823.   end;
  824. end;
  825.  
  826.  
  827. procedure TForm1.Image7Click(Sender: TObject);
  828. begin
  829.   if m=false then
  830.   begin
  831.   if i6=0 then begin self.Image7.Picture.LoadFromFile('img10_1.bmp'); i6:= 1 end else
  832.   if i6=1 then begin self.Image7.Picture.LoadFromFile('img10_2.bmp'); i6:= 2 end else
  833.   if i6=2 then begin self.Image7.Picture.LoadFromFile('img10_3.bmp'); i6:= 3 end else
  834.   if i6=3 then begin self.Image7.Picture.LoadFromFile('img10.bmp'); i6:= 0 end;
  835.   end;
  836. end;
  837.  
  838.  
  839. procedure TForm1.Image7MouseDown(Sender: TObject; Button: TMouseButton;
  840.   Shift: TShiftState; X, Y: Integer);
  841. begin
  842.   m:= false;
  843.   t:= true
  844. end;
  845.  
  846.  
  847. procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
  848.   Y: Integer);
  849. begin
  850.   m:= true;
  851.   if t=true then
  852.     begin
  853.       image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  854.       image7.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  855.     end;
  856. end;
  857.  
  858.  
  859. procedure TForm1.Image7MouseUp(Sender: TObject; Button: TMouseButton;
  860.   Shift: TShiftState; X, Y: Integer);
  861. begin
  862.   t:= false;
  863.   image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  864.   image7.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  865.  
  866.   b:= 1;
  867.   if (image7.Top >=13) and (image7.Top<=112) and (image7.Left>=112) and (image7.Left<=362)then
  868.   begin
  869.   r1:= image7.Top mod 25;
  870.   r2:= image7.Left mod 25;
  871.   if r1 <12 then image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  872.   image7.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  873.   if r2 <12 then image7.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  874.   image7.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  875.   if b=1 then
  876.   begin
  877.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  878.     self.MediaPlayer1.Open;
  879.     self.MediaPlayer1.play;
  880.   end
  881.   end else
  882.   begin
  883.     image7.top:= 250;
  884.     image7.left:= 509;
  885.       if b=1 then
  886.       begin
  887.         self.mediaplayer1.filename:= 'erreur.wav';
  888.         self.mediaplayer1.open;
  889.         self.mediaplayer1.play;
  890.       end;
  891.   end;
  892. end;
  893.  
  894.  
  895. procedure TForm1.Image8Click(Sender: TObject);
  896. begin
  897.   if m=false then
  898.   begin
  899.   if i10=0 then begin self.Image8.Picture.LoadFromFile('img7_1.bmp'); i10:= 1 end else
  900.   if i10=1 then begin self.Image8.Picture.LoadFromFile('img7_2.bmp'); i10:= 2 end else
  901.   if i10=2 then begin self.Image8.Picture.LoadFromFile('img7_3.bmp'); i10:= 3 end else
  902.   if i10=3 then begin self.Image8.Picture.LoadFromFile('img7.bmp'); i10:= 0 end;
  903.   end;
  904. end;
  905.  
  906.  
  907. procedure TForm1.Image8MouseDown(Sender: TObject; Button: TMouseButton;
  908.   Shift: TShiftState; X, Y: Integer);
  909. begin
  910.   m:= false;
  911.   t:= true
  912. end;
  913.  
  914.  
  915. procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
  916.   Y: Integer);
  917. begin
  918.   m:= true;
  919.   if t=true then
  920.     begin
  921.       image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  922.       image8.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  923.     end;
  924. end;
  925.  
  926.  
  927. procedure TForm1.Image8MouseUp(Sender: TObject; Button: TMouseButton;
  928.   Shift: TShiftState; X, Y: Integer);
  929. begin
  930.   t:= false;
  931.   image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  932.   image8.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  933.  
  934.   b:= 1;
  935.   if (image8.Top >=13) and (image8.Top<=112) and (image8.Left>=112) and (image8.Left<=362)then
  936.   begin
  937.   r1:= image8.Top mod 25;
  938.   r2:= image8.Left mod 25;
  939.   if r1 <12 then image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  940.   image8.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  941.   if r2 <12 then image8.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  942.   image8.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  943.   if b=1 then
  944.   begin
  945.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  946.     self.MediaPlayer1.Open;
  947.     self.MediaPlayer1.play;
  948.   end
  949.   end else
  950.   begin
  951.     image8.top:= 380;
  952.     image8.left:= 300;
  953.       if b=1 then
  954.       begin
  955.         self.mediaplayer1.filename:= 'erreur.wav';
  956.         self.mediaplayer1.open;
  957.         self.mediaplayer1.play;
  958.       end;
  959.   end;
  960. end;
  961.  
  962.  
  963. procedure TForm1.Image9Click(Sender: TObject);
  964. begin
  965.   if m=false then
  966.   begin
  967.   if i8=0 then begin self.Image9.Picture.LoadFromFile('img3_1.bmp'); i8:= 1 end else
  968.   if i8=1 then begin self.Image9.Picture.LoadFromFile('img3_2.bmp'); i8:= 2 end else
  969.   if i8=2 then begin self.Image9.Picture.LoadFromFile('img3_3.bmp'); i8:= 3 end else
  970.   if i8=3 then begin self.Image9.Picture.LoadFromFile('img3.bmp'); i8:= 0 end;
  971.   end;
  972. end;
  973.  
  974.  
  975. procedure TForm1.Image9MouseDown(Sender: TObject; Button: TMouseButton;
  976.   Shift: TShiftState; X, Y: Integer);
  977. begin
  978.   m:= false;
  979.   t:= true
  980. end;
  981.  
  982.  
  983. procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
  984.   Y: Integer);
  985. begin
  986.   m:= true;
  987.   if t=true then
  988.     begin
  989.       image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  990.       image9.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  991.     end;
  992. end;
  993.  
  994.  
  995. procedure TForm1.Image9MouseUp(Sender: TObject; Button: TMouseButton;
  996.   Shift: TShiftState; X, Y: Integer);
  997. begin
  998.   t:= false;
  999.   image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20;
  1000.   image9.left:= form1.ScreenToClient(mouse.CursorPos).X-10;
  1001.  
  1002.   b:= 1;
  1003.   if (image9.Top >=13) and (image9.Top<=112) and (image9.Left>=112) and (image9.Left<=362)then
  1004.   begin
  1005.   r1:= image9.Top mod 25;
  1006.   r2:= image9.Left mod 25;
  1007.   if r1 <12 then image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20-r1 else
  1008.   image9.Top:= form1.ScreenToClient(mouse.CursorPos).Y-20 +(25-r1);
  1009.   if r2 <12 then image9.Left:= form1.ScreenToClient(mouse.CursorPos).X-10-r2 else
  1010.   image9.left:= form1.ScreenToClient(mouse.CursorPos).X-10 +(25-r2);
  1011.   if b=1 then
  1012.   begin
  1013.     self.MediaPlayer1.FileName:= 'CAMERA.wav';
  1014.     self.MediaPlayer1.Open;
  1015.     self.MediaPlayer1.play;
  1016.   end
  1017.   end else
  1018.   begin
  1019.     image9.top:= 380;
  1020.     image9.left:= 104;
  1021.       if b=1 then
  1022.       begin
  1023.         self.mediaplayer1.filename:= 'erreur.wav';
  1024.         self.mediaplayer1.open;
  1025.         self.mediaplayer1.play;
  1026.       end;
  1027.   end;
  1028. end;
  1029.  
  1030. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!