Get rid of a memleak in thumbs renderer. Changed project's options to not showing warnings about "unsafe code" (FastMM!).
This commit is contained in:
parent
8a7d1c1dc3
commit
f5b08f3dbc
@ -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';
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user