Subversion Repositories AndroidProjects

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,
  sux_constant, app_constant, sux_main, app_main, ExtCtrls;

type
  TFormMain = class(TForm)
    StartUpTimer: TTimer;
    Timer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure StartUpTimerTimer(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;
  sx:SUXEngine;
  app:SUXApp;

implementation

{$R *.dfm}


procedure TFormMain.FormCreate(Sender: TObject);
begin
  sx:=SUXEngine.Create;
  app:=SUXApp.Create(self);
end;


procedure TFormMain.StartUpTimerTimer(Sender: TObject);
begin
  sx.initialize(self,StartUpTimer,Timer);
  app.initialize;
end;


procedure TFormMain.TimerTimer(Sender: TObject);
begin
  Timer.Enabled:=false;
  if (app<>nil) then app.onTimer;
end;


procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  app.Free;
  sx.Free;
  app:=nil;
  sx:=nil;
end;


procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (app<>nil) and (not app.settings.close) then
  begin
    app.settings.close:=true;
    CanClose:=false;
  end else CanClose:=true;
end;


procedure TFormMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
  app.getKeyPressed(key);
end;

end.