Changeset 30 for trunk/UCore.pas

Timestamp:

Mar 4, 2014, 12:18:22 AM (10 years ago)

Author:

chronos

Message:

• Modified: Player FocusedCell and SelectedCell moved to TView instance from TPlayer.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -34 +34 @@
   public
     Game: TGame;
+    UseSingleView: Boolean;
+    View: TView;
     procedure Init;
     property Initialized: Boolean read FInitialized;
@@ -80 +82 @@
 procedure TCore.AExitExecute(Sender: TObject);
 begin
+  Game.Running := False;
   Application.Terminate;
 end;
@@ -99 +102 @@
     FormMain.Redraw;
     Application.ProcessMessages;
+    Sleep(1);
   end;
 end;