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

*** empty log message ***

Browse Source
This commit is contained in:
zueuk
2008-10-06 10:16:50 +00:00
parent ac41786555
commit 34b589646d
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
2.10/Source/Render.pas
View File

@ -121,7 +121,7 @@ type
procedure ShowSmallStats; procedure ShowSmallStats;
property OnProgress: TOnProgress property OnProgress: TOnProgress
read FOnProgress // read FOnProgress
write FOnProgress; write FOnProgress;
property MaxMem : integer property MaxMem : integer
read FMaxMem read FMaxMem
@ -341,7 +341,7 @@ function TBaseRenderer.GetImage: TBitmap;
begin begin
if FStop > 0 then begin if FStop > 0 then begin
assert(false); assert(false);
FImageMaker.OnProgress := OnProgress; FImageMaker.OnProgress := FOnProgress;
FImageMaker.CreateImage; FImageMaker.CreateImage;
end; end;
Result := FImageMaker.GetImage; Result := FImageMaker.GetImage;
@ -373,7 +373,7 @@ begin
FImageMaker.SetCP(FCP); FImageMaker.SetCP(FCP);
FImageMaker.Init; FImageMaker.Init;
FImageMaker.OnProgress := OnProgress; FImageMaker.OnProgress := FOnProgress;
FImageMaker.CreateImage; FImageMaker.CreateImage;
end; end;
@ -382,7 +382,7 @@ procedure TBaseRenderer.SaveImage(const FileName: String);
begin begin
if FStop > 0 then begin if FStop > 0 then begin
TimeTrace(Format('Creating image with quality = %f', [fcp.actual_density])); TimeTrace(Format('Creating image with quality = %f', [fcp.actual_density]));
FImageMaker.OnProgress := OnProgress; FImageMaker.OnProgress := FOnProgress;
FImageMaker.CreateImage; FImageMaker.CreateImage;
end; end;
TimeTrace('Saving image'); TimeTrace('Saving image');
@ -578,7 +578,7 @@ begin
else else
TimeTrace(Format('Creating image with quality = %f', [fcp.actual_density])); TimeTrace(Format('Creating image with quality = %f', [fcp.actual_density]));
FImageMaker.OnProgress := OnProgress; FImageMaker.OnProgress := FOnProgress;
FImageMaker.CreateImage; FImageMaker.CreateImage;
end; end;
end; end;
@ -661,7 +661,7 @@ begin
if FStop = 0 then begin if FStop = 0 then begin
TimeTrace('Creating image'); TimeTrace('Creating image');
FImageMaker.OnProgress := OnProgress; FImageMaker.OnProgress := FOnProgress;
FImageMaker.CreateImage(Slice * fcp.height); FImageMaker.CreateImage(Slice * fcp.height);
end; end;
end; end;