: TObject); SwitchMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); SwitchMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ResetMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ResetMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ExitMouseUp (Sender: TObject ; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{Private declarations}
{Public declarations};: TMain;: array [1.16] of integer;, keybpos: integer;: string; pre;
{$ R *. dfm} startpjat ();, q, w, a: integer;: = 0;. label2. caption: = '0 ';; [1]: = random (16); i: = 2 to 16 do: = 1; (a = 1) do: = 0; [i]: = random (16); q : = i-1 downto 1 do (pjat [i] = pjat [q]) then w: = w +1; (w = 0) then a: = 2;;;; ReloadPole (canvas: TCanvas); i, q, w, x, y: integer;. Rectangle (0,0, 201, 201); keyb = 'yes' then. Brush. Color: = clGradientInactiveCaption; keybpos of
: begin x: = 0; y: = 0; end;
: begin x: = 50; y: = 0; end;
: begin x: = 100; y: = 0; end;
: begin x: = 150; y: = 0; end;
: begin x: = 0; y: = 50; end;
: begin x: = 50; y: = 50; end;
: begin x: = 100; y: = 50; end;
: begin x: = 150; y: = 50; end;
: begin x: = 0; y: = 100; end;
: begin x: = 50; y: = 100; end;
: begin x: = 100; y: = 100; end;
: begin x: = 150; y: = 100; end;
: begin x: = 0; y: = 150; end;
: begin x: = 50; y: = 150; end;
: begin x: = 100; y: = 150; end;
: begin x: = 150; y: = 150; end;;
canvas. Rectangle (x, y, x +51, y +51);
canvas. Brush. Color: = clWhite;;: = 3; q: = 0 to w doi: = 0 to w do. MoveTo (i * 50, q * 50);. LineTo ((i) * 50, (w-q +1) * 50);. MoveTo (i * 50, q * 50);. LineTo ((w-i +1) * 50, (q) * 50);;: = 1; q: = 1 to 4 doi: = 1 to 4 do (pjat [w] <> 0) then ( keyb = 'yes') and (keybpos = w) then. Brush. Color: = clGradientInactiveCaption;. TextOut (i * 50-30, q * 50-30, inttostr (pjat [w]));. Brush. Color: = clWhite; else. TextOut (i * 50-30, q * 50-30, inttostr (pjat [W]));: = w +1;;; CheckPole (): string; i: integer;: = 'yes'; i: = 1 to 15 do if (pjat [i] <> i) then result: = 'no'; (pjat [16] <> 0) then result: = 'no';; TMain. FormCreate (Sender: TObject); (); (image1. Canvas);. left: = (screen. Width-main. Width) div 2;. top: = (screen. Height-main. Height) div 2;: = 'no';: = 1;; TMain. Reset...
