Changeset 2 for trunk/src/ufrmscaling.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/ufrmscaling.pas (modified) (2 diffs)

trunk/src/ufrmscaling.pas

@@ -71 +71 @@
 {$R *.lfm}
 
+uses
+  ufrmMain1;
+
 { TfrmScaling }
 
@@ -111 +114 @@
     DrawHeight := tbHeightDrawing.Position;
   end;
-  SendMessage(Application.MainFormHandle, C_MAZE_UPDATE_MESSAGE, LongInt(@MazeMetrics), 0);
+  frmMain1.MazeMetrics := MazeMetrics;
 end;