e, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, GameManager, ExtCtrls, Menus, StdCtrls; = class (TForm): TTimer;: TMainMenu;: TMenuItem;: TMenuItem; : TMenuItem;: TLabel; FormCreate (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); N3Click (Sender: TObject); N2Click (Sender: TObject); Timer1Timer (Sender: TObject); FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); FormPaint (Sender: TObject); FormResize (Sender: TObject);
{Private declarations}
{Public declarations};: TmainForm;: Game;
{$ R *. dfm} TmainForm. FormCreate (Sender: TObject);: = GameManager.OFFSET_X + GameManager.FIELD_SIZE * 10 + GameManager.OFFSET_X;: = GameManager.OFFSET_Y + GameManager.FIELD_SIZE * 12 + GameManager.OFFSET_Y;: = Game.create (canvas, 10,10 , 3);. Top: = GameManager.OFFSET_Y + GameManager.FIELD_SIZE * 10 + 10;; TmainForm.N3Click (Sender: TObject);. Free;. Terminate;; TmainForm.N2Click (Sender: TObject);. Start ();. Enabled: = true;; TmainForm. Timer1Timer (Sender: TObject);. Tick ();. Caption: = 'Окуляри:' + IntToStr (g.score);; TmainForm. FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); (button = mbLeft) then.click (g.toGameX (x, y), g.toGameY (x, y));; TmainForm . FormPaint (Sender: TObject);. Draw ();; TmainForm. FormResize (Sender: TObject);: = GameManager.OFFSET_X + GameManager.FIELD_SIZE * 10 + GameManager.OFFSET_X;: = GameManager.OFFSET_Y + GameManager.FIELD_SIZE * 12 + GameManager.OFFSET_Y;;. Main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, GameManager, ExtCtrls, Menus, StdCtrls; = class (TForm): TTimer;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel; FormCreate (Sender: TObject); FormClose (Sender : TObject; var Action: TCloseAction); N3Click (Sender: TObject); N2Click (Sender: TObject); Timer1Timer (Sender: TObject); FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); FormPaint (Sender: TObject); FormResize (Sender: TObject);
{Private declarations}
{Public declarations};: TmainForm;: Game;
{$ R *. dfm} TmainForm. FormCreate (Sender: TObject);: = GameManager.OFFSET_X + GameManager.FIELD_SIZE * 10 + GameManager.OFFSET_X;: = GameManager.OFFSET_Y + GameManager.FIELD_SIZE * 12 + GameManager.OFFSET_Y;: = Game.create (canvas, 10,10 , 3);. Top: = GameManager.OFFSET_Y + GameManager.FIELD_SIZE * 10 + 10;; TmainForm. FormClose (Sender: TObject; var Action: TCloseAction);. Free;; TmainForm.N3Click (Sender: TObject);. Free;. Terminate;; TmainForm.N2Click (Sender: TObject);. Start ();. Enabled: = true;; TmainForm. Timer1Timer (Sender: TObject);. Tick ();. Caption: = 'Окуляри:' + IntToStr (g.score);; TmainForm. FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); (button =...
