Changeset 38 for trunk/Forms/UFormComputer.pas
- Timestamp:
- Oct 13, 2019, 5:34:57 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormComputer.pas
r32 r38 6 6 7 7 uses 8 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UGame, fgl; 8 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, 9 UGame, fgl; 9 10 10 11 type … … 30 31 ButtonStart: TButton; 31 32 ButtonStop: TButton; 33 Label1: TLabel; 34 TrackBar1: TTrackBar; 32 35 procedure ButtonStartClick(Sender: TObject); 33 36 procedure ButtonStopClick(Sender: TObject); … … 135 138 ); 136 139 begin 140 ButtonStopClick(Self); 137 141 Core.PersistentForm1.Save(Self); 138 142 end; … … 187 191 S := S + '), '; 188 192 end; 189 MoveAllAndUpdate(GameTries[0].Moves[0] );193 MoveAllAndUpdate(GameTries[0].Moves[0], False); 190 194 { if CanMergeDirection(drDown) then MoveAllAnimate(drDown) 191 195 else if CanMergeDirection(drRight) then MoveAllAnimate(drRight) … … 198 202 } 199 203 Application.ProcessMessages; 200 Sleep( 10);204 Sleep(TrackBar1.Position); 201 205 end; 202 206 end; … … 243 247 NewTry.Game.UndoEnabled := False; 244 248 NewTry.Game.AnimationDuration := 0; 245 NewTry.Game.MoveAll Animate(Direction);249 NewTry.Game.MoveAll(Direction, False); 246 250 SetLength(NewTry.Moves, Length(NewTry.Moves) + 1); 247 251 NewTry.Moves[Length(NewTry.Moves) - 1] := Direction;
Note:
See TracChangeset
for help on using the changeset viewer.