Changeset 7 for trunk/class/maze.pas

Timestamp:

Nov 22, 2012, 7:09:17 AM (12 years ago)

Author:

chronos

Message:

• Added: Allow terminate solving process.
• Fixed: Disable actions which can change maze during solving.

Location:

trunk

Files:

• . (modified) (1 prop)
• class/maze.pas (modified) (2 diffs)

trunk

@@ -3 +3 @@
 Lazes.lps
 Lazes.dbg
+Lazes

@@ -3 +3 @@
 Lazes.lps
 Lazes.dbg
+Lazes

trunk/class/maze.pas

@@ -83 +83 @@
 
     procedure ResetTags(const pValue: integer = 0);
+    procedure ResetState;
     function  GetCell(const pPosition: TCellPoint): TMazeCell;
     function  StartCell: TMazeCell;
@@ -211 +212 @@
 
 procedure TMaze.ResetTags(const pValue: integer);
-var row,col: integer;
+var
+  row,col: integer;
 begin
   for row := 0 to Height-1 do
     for col := 0 to Width-1 do
-      FMaze[row][col].Tag := pValue
+      FMaze[row][col].Tag := pValue;
+end;
+
+procedure TMaze.ResetState;
+var
+  row,col: integer;
+begin
+  for row := 0 to Height - 1 do
+    for col := 0 to Width - 1 do
+      FMaze[row, col].State := csEmpty;
 end;
 

@@ -3 +3 @@
 Lazes.lps
 Lazes.dbg
+Lazes