mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Get rid of a memleak in thumbs renderer. Changed project's options to not showing warnings about "unsafe code" (FastMM!).

Browse Source
This commit is contained in:
utak3r 2009-10-09 16:53:58 +00:00
parent 8a7d1c1dc3
commit f5b08f3dbc
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2.10/Project/delphi7/Apophysis.dpr
View File

@ -91,11 +91,12 @@ uses
{$R *.RES} {$R *.RES}
begin begin
{
if now >= EncodeDate(2010, 3, 15) then 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.'); ShowMessage('This version has expired. Please go to http://sourceforge.net/project/apophysis and download the latest version.');
Halt Halt
end; end;
}
Application.Initialize; Application.Initialize;
Application.Title := 'Apophysis'; Application.Title := 'Apophysis';
Application.HelpFile := 'Apophysis 2.0.chm'; Application.HelpFile := 'Apophysis 2.0.chm';

5
2.10/Source/Main.pas
View File

@ -42,7 +42,7 @@ const
RS_XO = 2; RS_XO = 2;
RS_VO = 3; RS_VO = 3;
AppVersionString = 'Apophysis 2.09 pre-beta 2'; AppVersionString = 'Apophysis 2.10';
randFilename = 'apophysis.rand'; randFilename = 'apophysis.rand';
undoFilename = 'apophysis.undo'; undoFilename = 'apophysis.undo';
@ -5386,7 +5386,6 @@ var
begin begin
FreeOnTerminate := True; FreeOnTerminate := True;
FBitmap := TBitmap.Create;
for i := 0 to FListView.Items.Count-1 do for i := 0 to FListView.Items.Count-1 do
begin begin
index := i; index := i;
@ -5412,7 +5411,6 @@ begin
end; end;
FBitmap := RenderEngine.GetImage; FBitmap := RenderEngine.GetImage;
Synchronize(PaintThumb); Synchronize(PaintThumb);
//FBitmap.FreeImage;
RenderEngine.Free; RenderEngine.Free;
end; end;
@ -5420,7 +5418,6 @@ begin
if xmlErrorsList.Count > 0 then if xmlErrorsList.Count > 0 then
xmlErrorsList.Clear; xmlErrorsList.Clear;
end; end;
FBitmap.Free;
end; end;
procedure TThumbsRenderThread.PaintThumb; procedure TThumbsRenderThread.PaintThumb;