Changeset 6

Timestamp:

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

Author:

chronos

Message:

• Modified: Do not recreate bitmap during paint.

Location:

trunk

Files:

• Forms/ufrmmain1.lfm (modified) (3 diffs)
• Forms/ufrmmain1.pas (modified) (3 diffs)
• class/mazepainter.pas (modified) (1 diff)

trunk/Forms/ufrmmain1.lfm

@@ -1 +1 @@
 object frmMain1: TfrmMain1
-  Left = 305
+  Left = 370
   Height = 389
-  Top = 129
+  Top = 161
   Width = 459
   Caption = 'Lazes - Lazarus Mazes'
@@ -3337 +3337 @@
     }
     Stretch = True
+    Visible = False
   end
   object pbMaze: TPaintBox
@@ -3402 +3403 @@
   end
   object TimerDraw: TTimer
-    Interval = 20
+    Interval = 10
     OnTimer = TimerDrawTimer
     left = 152

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

trunk/class/mazepainter.pas

@@ -122 +122 @@
   if isDirty then
   begin
-    FreeAndNil(bmp);
-    bmp := TBitMap.Create;
+    //FreeAndNil(bmp);
+    //bmp := TBitMap.Create;
     bmp.SetSize(Width + 1, Height + 1);
     Canvas := bmp.Canvas;