Changeset 8

Timestamp:

Nov 22, 2012, 8:05:35 AM (11 years ago)

Author:

chronos

Message:

• Fixed: Do not clear cell status for start and exit position.

Location:

trunk

Files:

• Forms/ufrmmain1.lfm (modified) (1 diff)
• Lazes.lpi (modified) (1 diff)
• class/maze.pas (modified) (1 diff)

trunk/Forms/ufrmmain1.lfm

@@ -5 +5 @@
   Width = 459
   Caption = 'Lazes - Lazarus Mazes'
-  ClientHeight = 366
+  ClientHeight = 370
   ClientWidth = 459
   Constraints.MinHeight = 300

trunk/Lazes.lpi

@@ -48 +48 @@
               <StackChecks Value="True"/>
             </Checks>
-            <VerifyObjMethodCallValidity Value="True"/>
             <Optimizations>
               <OptimizationLevel Value="0"/>

trunk/class/maze.pas

@@ -226 +226 @@
   for row := 0 to Height - 1 do
     for col := 0 to Width - 1 do
-      FMaze[row, col].State := csEmpty;
+      if FMaze[row, col].State =  csVisited then FMaze[row, col].State := csEmpty;
 end;