Changeset 30 for trunk/UCore.pas
- Timestamp:
- Mar 4, 2014, 12:18:22 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r29 r30 34 34 public 35 35 Game: TGame; 36 UseSingleView: Boolean; 37 View: TView; 36 38 procedure Init; 37 39 property Initialized: Boolean read FInitialized; … … 80 82 procedure TCore.AExitExecute(Sender: TObject); 81 83 begin 84 Game.Running := False; 82 85 Application.Terminate; 83 86 end; … … 99 102 FormMain.Redraw; 100 103 Application.ProcessMessages; 104 Sleep(1); 101 105 end; 102 106 end;
Note:
See TracChangeset
for help on using the changeset viewer.