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

Progress displaying delayed a bit...

Browse Source
This commit is contained in:
utak3r 2007-06-29 22:05:08 +00:00
parent 5bb6cfbe3f
commit 6e90c8ee34
1 changed files with 25 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
2.10/Source/FormRender.pas
View File

@ -279,7 +279,8 @@ begin
exit; exit;
end; end;
if (dt < 1/24/60/60/10) then exit; //if (dt < 1/24/60/60/10) then exit;
if (dt < 1/24/60/60) then exit; // PB: too much time consuming... was every 1/10th seconds!
oldElapsed := Elapsed; oldElapsed := Elapsed;
prog := (Renderer.Slice + Prog) / Renderer.NrSlices; prog := (Renderer.Slice + Prog) / Renderer.NrSlices;
@ -305,6 +306,7 @@ begin
Trunc(Remaining * 24 * 60 * 60 * 100) mod 100]); Trunc(Remaining * 24 * 60 * 60 * 100) mod 100]);
end; end;
StatusBar.Panels[2].text := 'Slice ' + IntToStr(Renderer.Slice + 1) + ' of ' + IntToStr(Renderer.nrSlices); StatusBar.Panels[2].text := 'Slice ' + IntToStr(Renderer.Slice + 1) + ' of ' + IntToStr(Renderer.nrSlices);
Application.ProcessMessages;
end; end;
procedure TRenderForm.FormCreate(Sender: TObject); procedure TRenderForm.FormCreate(Sender: TObject);
@ -490,6 +492,7 @@ begin
try try
if not bRenderAll then exit;
if iCurrFlame = MainForm.ListView.Items.Count-1 then bRenderAll := false; if iCurrFlame = MainForm.ListView.Items.Count-1 then bRenderAll := false;
Renderer := TRenderThread.Create; Renderer := TRenderThread.Create;
assert(Renderer <> nil); assert(Renderer <> nil);
@ -498,12 +501,9 @@ begin
Renderer.MaxMem := MaxMemory;//StrToInt(cbMaxMemory.text); Renderer.MaxMem := MaxMemory;//StrToInt(cbMaxMemory.text);
Renderer.OnProgress := OnProgress; Renderer.OnProgress := OnProgress;
Renderer.TargetHandle := self.Handle; Renderer.TargetHandle := self.Handle;
// Renderer.Output := Output.Lines;
// Renderer.Compatibility := compatibility;
Renderer.SetCP(cp); Renderer.SetCP(cp);
Renderer.Priority := tpLower; Renderer.Priority := tpLower;
Renderer.NrThreads := NrTreads; Renderer.NrThreads := NrTreads;
Renderer.Output := Output.Lines; Renderer.Output := Output.Lines;
Renderer.Resume; Renderer.Resume;
if bRenderAll then Renderer.WaitFor; if bRenderAll then Renderer.WaitFor;
@ -692,29 +692,32 @@ end;
procedure TRenderForm.btnCancelClick(Sender: TObject); procedure TRenderForm.btnCancelClick(Sender: TObject);
begin begin
if Assigned(Renderer) then if Assigned(Renderer) or bRenderAll then
begin begin
if Renderer.Suspended then begin if Assigned(Renderer) then
Renderer.Resume; if Renderer.Suspended then begin
btnPause.caption := 'Pause'; Renderer.Resume;
end; btnPause.caption := 'Pause';
end;
if ConfirmStopRender then begin if ConfirmStopRender then begin
if Application.MessageBox('Do you want to stop the current render?', 'Apophysis', 36) = ID_NO then exit; if Application.MessageBox('Do you want to stop the current render?', 'Apophysis', 36) = ID_NO then exit;
end;
if SaveIncompleteRenders and not ChkLimitMem.Checked then begin
Renderer.BreakRender;
Renderer.WaitFor; //?
end
else begin
Renderer.Terminate;
Renderer.WaitFor; //?
PageCtrl.TabIndex := 0;
end; end;
end
else close; bRenderAll := false;
if Assigned(Renderer) then
if SaveIncompleteRenders and not ChkLimitMem.Checked then
begin
Renderer.BreakRender;
Renderer.WaitFor; //?
end else
begin
Renderer.Terminate;
Renderer.WaitFor; //?
PageCtrl.TabIndex := 0;
end;
end else
Close;
end; end;
procedure TRenderForm.txtDensityChange(Sender: TObject); procedure TRenderForm.txtDensityChange(Sender: TObject);