Changeset 9 for trunk/UFormMain.pas
- Timestamp:
- Feb 12, 2014, 10:58:00 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormMain.pas
r8 r9 34 34 Timer1: TTimer; 35 35 procedure AExitExecute(Sender: TObject); 36 procedure AGameEndTurnExecute(Sender: TObject); 36 37 procedure AGameNewExecute(Sender: TObject); 37 38 procedure FormCreate(Sender: TObject); … … 92 93 RedrawPending := False; 93 94 PaintBox1.Repaint; 95 Caption := Game.CurrentPlayer.Name + ' - xTactics'; 94 96 end; 95 97 end; … … 108 110 begin 109 111 Application.Terminate; 112 end; 113 114 procedure TFormMain.AGameEndTurnExecute(Sender: TObject); 115 begin 116 Game.NextTurn; 117 Redraw; 110 118 end; 111 119 … … 128 136 begin 129 137 Game.New; 138 Redraw; 130 139 end; 131 140
Note:
See TracChangeset
for help on using the changeset viewer.