Changeset 86
- Timestamp:
- Nov 5, 2014, 11:02:00 PM (10 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r79 r86 12 12 OnCreate = FormCreate 13 13 OnDestroy = FormDestroy 14 OnKeyUp = FormKeyUp 14 15 OnShow = FormShow 15 16 LCLVersion = '1.3' -
trunk/Forms/UFormMain.pas
r85 r86 75 75 procedure FormCreate(Sender: TObject); 76 76 procedure FormDestroy(Sender: TObject); 77 procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); 77 78 procedure FormShow(Sender: TObject); 78 79 procedure MenuItem19Click(Sender: TObject); … … 305 306 end; 306 307 308 procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState 309 ); 310 begin 311 if (Key = 27) or (Key = 17) then 312 if Assigned(Core.Game.CurrentPlayer) then begin 313 Core.Game.CurrentPlayer.View.SelectedCell := nil; 314 Redraw; 315 end; 316 end; 317 307 318 procedure TFormMain.FormShow(Sender: TObject); 308 319 begin -
trunk/UGame.pas
r85 r86 2448 2448 PrevPlayer: TPlayer; 2449 2449 begin 2450 CurrentPlayer.View.SelectedCell := nil; 2450 2451 MoveAll(CurrentPlayer); 2451 2452 Map.Grow(CurrentPlayer);
Note:
See TracChangeset
for help on using the changeset viewer.