Changeset 2 for trunk/src/lazesglobals.pas

Timestamp:

Nov 21, 2012, 9:04:27 AM (11 years ago)

Author:

chronos

Message:

• Modified: Delayed screen redrawing using system timer. Request for repaint is signaled by Redraw method. Repaint is limited by minimal period of timer thus unnecessary repainting is avoided.
• Modified: Maze update using system message replaced by direct method call.

File:

• trunk/src/lazesglobals.pas (modified) (5 diffs)

trunk/src/lazesglobals.pas

@@ -18 +18 @@
 unit LazesGlobals;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -26 +26 @@
 
 const
-  // Update message when something in the maze config has changed and needs regeneration
-  C_MAZE_UPDATE_MESSAGE = WM_USER + 67122;
-
   // Maximum width/height of the maze
   C_MIN_MAZE_SIZE =  4;
@@ -35 +32 @@
 type
   // Record structure to send messages around with maze metrics
+
+  { TMazeUpdateInfo }
+
   TMazeUpdateInfo = record
     MazeWidth : integer;
@@ -40 +40 @@
     DrawWidth : integer;
     DrawHeight: integer;
+    class operator Equal(A, B: TMazeUpdateInfo): Boolean;
   end;
   PMazeUpdateInfo = ^TMazeUpdateInfo;
@@ -45 +46 @@
 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.