source: trunk/lazesglobals.pas

{
 Global declarations for the Lazarus Mazes program

 Copyright (C) 2012 G.A. Nijland (eny @ lazarus forum http://www.lazarus.freepascal.org/)

 This source is free software; you can redistribute it and/or modify it under the terms of the GNU General Public
 License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later
 version.

 This code is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
 warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 details.

 A copy of the GNU General Public License is available on the World Wide Web at
 <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing to the Free Software Foundation, Inc., 59
 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit LazesGlobals;

{$mode delphi}{$H+}

interface

const
  // Maximum width/height of the maze
  C_MIN_MAZE_SIZE =  4;
  C_MAX_MAZE_SIZE = 80;

type
  // Record structure to send messages around with maze metrics

  { TMazeUpdateInfo }

  TMazeUpdateInfo = record
    MazeWidth : integer;
    MazeHeight: integer;
    DrawWidth : integer;
    DrawHeight: integer;
    class operator Equal(A, B: TMazeUpdateInfo): Boolean;
  end;
  PMazeUpdateInfo = ^TMazeUpdateInfo;

implementation

{ TMazeUpdateInfo }

class operator TMazeUpdateInfo.Equal(A, B: TMazeUpdateInfo): Boolean;
begin
  Result := (A.MazeHeight = B.MazeHeight) and (A.MazeWidth = B.MazeWidth) and
    (A.DrawHeight = B.DrawHeight) and (A.DrawWidth = B.DrawWidth);
end;

end.