diff --git a/2.10/Project/delphi7/Apophysis.dpr b/2.10/Project/delphi7/Apophysis.dpr index 283cf84..a6437a4 100644 --- a/2.10/Project/delphi7/Apophysis.dpr +++ b/2.10/Project/delphi7/Apophysis.dpr @@ -91,11 +91,12 @@ uses {$R *.RES} begin + { if now >= EncodeDate(2010, 3, 15) then begin ShowMessage('This version has expired. Please go to http://sourceforge.net/project/apophysis and download the latest version.'); Halt end; - + } Application.Initialize; Application.Title := 'Apophysis'; Application.HelpFile := 'Apophysis 2.0.chm'; diff --git a/2.10/Source/Main.pas b/2.10/Source/Main.pas index a98baa7..b30e1e7 100644 --- a/2.10/Source/Main.pas +++ b/2.10/Source/Main.pas @@ -42,7 +42,7 @@ const RS_XO = 2; RS_VO = 3; - AppVersionString = 'Apophysis 2.09 pre-beta 2'; + AppVersionString = 'Apophysis 2.10'; randFilename = 'apophysis.rand'; undoFilename = 'apophysis.undo'; @@ -5386,7 +5386,6 @@ var begin FreeOnTerminate := True; - FBitmap := TBitmap.Create; for i := 0 to FListView.Items.Count-1 do begin index := i; @@ -5412,7 +5411,6 @@ begin end; FBitmap := RenderEngine.GetImage; Synchronize(PaintThumb); - //FBitmap.FreeImage; RenderEngine.Free; end; @@ -5420,7 +5418,6 @@ begin if xmlErrorsList.Count > 0 then xmlErrorsList.Clear; end; - FBitmap.Free; end; procedure TThumbsRenderThread.PaintThumb;