From f5b08f3dbca527b25ad2284d5a84d8e9f2a0934d Mon Sep 17 00:00:00 2001
From: utak3r <utak3r>
Date: Fri, 9 Oct 2009 16:53:58 +0000
Subject: [PATCH] Get rid of a memleak in thumbs renderer. Changed project's
 options to not showing warnings about "unsafe code" (FastMM!).

---
 2.10/Project/delphi7/Apophysis.dpr | 3 ++-
 2.10/Source/Main.pas               | 5 +----
 2 files changed, 3 insertions(+), 5 deletions(-)

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;