Changeset 6
- Timestamp:
- Nov 21, 2012, 1:58:03 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/ufrmmain1.lfm
r4 r6 1 1 object frmMain1: TfrmMain1 2 Left = 3 052 Left = 370 3 3 Height = 389 4 Top = 1 294 Top = 161 5 5 Width = 459 6 6 Caption = 'Lazes - Lazarus Mazes' … … 3337 3337 } 3338 3338 Stretch = True 3339 Visible = False 3339 3340 end 3340 3341 object pbMaze: TPaintBox … … 3402 3403 end 3403 3404 object TimerDraw: TTimer 3404 Interval = 203405 Interval = 10 3405 3406 OnTimer = TimerDrawTimer 3406 3407 left = 152 -
trunk/Forms/ufrmmain1.pas
r4 r6 83 83 procedure TfrmMain1.FormCreate(Sender: TObject); 84 84 begin 85 // Reduce fl ocker86 self.DoubleBuffered := true;85 // Reduce flicker 86 Self.DoubleBuffered := true; 87 87 88 88 // Set alignment images … … 192 192 begin 193 193 MessageDlg('As you can see this maze was already solved!', mtInformation, [mbOK], 0); 194 E XIT194 Exit; 195 195 end; 196 196 … … 244 244 // Build a new one, based on the given metrics 245 245 bld := TMazeBuilderDepthFirst.Create; 246 Maze := bld.BuildMaze(MazeMetrics.MazeWidth, MazeMetrics.MazeHeight); 247 bld.Free; 246 try 247 Maze := bld.BuildMaze(MazeMetrics.MazeWidth, MazeMetrics.MazeHeight); 248 finally 249 bld.Free; 250 end; 248 251 249 252 // This one is not solved yet -
trunk/class/mazepainter.pas
r5 r6 122 122 if isDirty then 123 123 begin 124 FreeAndNil(bmp);125 bmp := TBitMap.Create;124 //FreeAndNil(bmp); 125 //bmp := TBitMap.Create; 126 126 bmp.SetSize(Width + 1, Height + 1); 127 127 Canvas := bmp.Canvas;
Note:
See TracChangeset
for help on using the changeset viewer.