Changeset 8


Ignore:
Timestamp:
Nov 22, 2012, 8:05:35 AM (10 years ago)
Author:
chronos
Message:
  • Fixed: Do not clear cell status for start and exit position.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/ufrmmain1.lfm

    r7 r8  
    55  Width = 459
    66  Caption = 'Lazes - Lazarus Mazes'
    7   ClientHeight = 366
     7  ClientHeight = 370
    88  ClientWidth = 459
    99  Constraints.MinHeight = 300
  • trunk/Lazes.lpi

    r7 r8  
    4848              <StackChecks Value="True"/>
    4949            </Checks>
    50             <VerifyObjMethodCallValidity Value="True"/>
    5150            <Optimizations>
    5251              <OptimizationLevel Value="0"/>
  • trunk/class/maze.pas

    r7 r8  
    226226  for row := 0 to Height - 1 do
    227227    for col := 0 to Width - 1 do
    228       FMaze[row, col].State := csEmpty;
     228      if FMaze[row, col].State =  csVisited then FMaze[row, col].State := csEmpty;
    229229end;
    230230
Note: See TracChangeset for help on using the changeset viewer.