rd;: TShiftState); key of
: close;
: OnRestart;
: ZastFormN.Run;;; TMainMemoryForm.minTimer (Sender: TObject); m_min> 58 then_min: = 0 (m_min);; TMainMemoryForm.RandomizeList (var ExceptList: TList; count, minvalue, maxvalue: Integer): boolean;// Перемішування списку, x2, i, n: longint;;. clear; i: = 1 to Count doTrue do: = random (maxvalue) + minvalue;: = FindObjectInItemsOfList (ExceptList, x); n <0 then.Add (Tobject (x));;;;;; TMainMemoryForm.secTimer (Sender: TObject); m_sec> 58 then_sec: = 0 (m_sec);; TMainMemoryForm.showtimerTimer (Sender: TObject); ;; TMainMemoryForm.SpeedButton1Click (Sender: TObject);;; TMainMemoryForm.SpeedButton2Click (Sender: TObject);;; TMainMemoryForm.SpeedButton3Click (Sender: TObject);. Run;; TMainMemoryForm.clicktimerTimer (Sender: TObject);. GetBitmap (0 , TImage (m_object2). Picture.Bitmap); (m_object2). Repaint; (m_object2). Tag: = 0;. GetBitmap (0, TImage (m_object). Picture.Bitmap); (m_object). Repaint; (m_object) . Tag: = 0; _x: = -1; _block: = false;. Enabled: = false; CheckForFinish then;; TMainMemoryForm.FindObjectInItemsOfList (l: TList; n: longint): longint;// поиск на обєкта в списку: longint ;: = -1; i: = 0 to l.count-1 dolongint (l [i]) = n then: = i;;;; TMainMemoryForm.OnNewGame;: longint;: string; _started: = false; _block: = false;. Caption: = '00: 00 '; _min: = 0; _sec: = 0; (m_ImgnumList, 20, 1, 20);;; TMainMemoryForm.ApplyImages (toShow: boolean = false);, n, i , j: longint; _x: = -1; i: = 1 to 20 doj: = 0 to self.ControlCount - 1 doself.Controls [j]. Name = 'Image' + inttostr (i) then: = longint (TObject (m_ImgnumList [i-1])); x <11 then: = x: = x - 10; toShow then.GetBitmap (x, TImage (self.Controls [j]). Picture.Bitmap). GetBitmap (11, TImage (self.Controls [j]). Picture.Bitmap); (self.Controls [j]). Tag: = x; (self.Controls [j]). OnClick: = OnClick2; (self.Controls [j] ). Repaint;;;; TMainMemoryForm.OnClick2 (Sender: TObject);, x: longint;: string; not m_started then; m_block then;: = TImage (Sender). Tag; x = 0 then; TImage (m_object). Name = Timage (sender). Name then; m_x = -2 then.GetBitmap (11, TImage (m_object). Picture.Bitmap); (m_object). Repaint;. GetBitmap (11, TImage (m_object2). Picture.Bitmap) ; (m_object2). Repaint; _x: = -1;; m_x = -1 then.GetBitmap (x, TImage (Sender). Picture.Bitmap); (Sender). Repaint; _object: = Sender; _x: = x; ;; m_x = x then_object2: = Sender;. GetBitmap (x, TImage (Sender). Picture.Bitmap); (Sender). Repaint; _block: = true;. Enabled: = true;. GetBitmap (x, TImage (Sender ). Picture.Bitmap); (Sender). Repaint; _object2: = m_object; _object: = Sender; _x: = -2;;;; TMainMemoryForm.CheckForFinish: boolean;: longint;: = false; i: = 0 to self.ControlCount - 1 do (Tcontrol (self.Controls [i]). ClassType = TImage) and
(Tcontrol (self.Controls [i]). Tag <> 0) then;: = true;; TMainMemoryForm.OnFinish;: longint; _started: = false;; _...
