Changeset 7 for trunk/class

Timestamp:

Nov 22, 2012, 7:09:17 AM (11 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)
• class/mazepainter.pas (modified) (3 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;
 

trunk/class/mazepainter.pas

@@ -70 +70 @@
 constructor TMazePainter.Create(const pMaze: TMaze; pCanvas: TCanvas);
 begin
+  Bmp := TBitMap.Create;
+
   // Init the default drawing width and height
   FCellDrawWidth := 15;
@@ -91 +93 @@
 destructor TMazePainter.Destroy;
 begin
-  bmp.Free;
+  FreeAndNil(Bmp);
   inherited Destroy;
 end;
@@ -122 +124 @@
   if isDirty then
   begin
-    //FreeAndNil(bmp);
-    //bmp := TBitMap.Create;
     bmp.SetSize(Width + 1, Height + 1);
     Canvas := bmp.Canvas;

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