Changeset 6 for trunk/Forms/ufrmmain1.pas

Timestamp:

Nov 21, 2012, 1:58:03 PM (11 years ago)

Author:

chronos

Message:

• Modified: Do not recreate bitmap during paint.

File:

• trunk/Forms/ufrmmain1.pas (modified) (3 diffs)

trunk/Forms/ufrmmain1.pas

@@ -83 +83 @@
 procedure TfrmMain1.FormCreate(Sender: TObject);
 begin
-  // Reduce flocker
-  self.DoubleBuffered := true;
+  // Reduce flicker
+  Self.DoubleBuffered := true;
 
   // Set alignment images
@@ -192 +192 @@
   begin
     MessageDlg('As you can see this maze was already solved!', mtInformation, [mbOK], 0);
-    EXIT
+    Exit;
   end;
 
@@ -244 +244 @@
   // Build a new one, based on the given metrics
   bld := TMazeBuilderDepthFirst.Create;
-  Maze := bld.BuildMaze(MazeMetrics.MazeWidth, MazeMetrics.MazeHeight);
-  bld.Free;
+  try
+    Maze := bld.BuildMaze(MazeMetrics.MazeWidth, MazeMetrics.MazeHeight);
+  finally
+    bld.Free;
+  end;
 
   // This one is not solved yet