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

fixed MT render stopping and pausing bug,

Browse Source 
some other changes
This commit is contained in:
zueuk
2006-03-08 14:21:36 +00:00
parent 163c30677e
commit 85bc00513e
14 changed files with 168 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
2.10/Source/FormRender.pas
View File

@ -250,9 +250,6 @@ end;
procedure TRenderForm.FormDestroy(Sender: TObject);
begin
// if assigned(Renderer) then Renderer.Terminate;
// if assigned(Renderer) then Renderer.WaitFor;
// if assigned(Renderer) then Renderer.Free;
if assigned(Renderer) then begin
Renderer.Terminate;
Renderer.WaitFor;
@ -336,8 +333,12 @@ begin
btnCancel.Caption := 'Stop';
StartTime := Now;
// Remaining := 365;
if Assigned(Renderer) then Renderer.Terminate;
if Assigned(Renderer) then Renderer.WaitFor;
if Assigned(Renderer) then begin
Renderer.Terminate;
Renderer.WaitFor;
Renderer.Free;
Renderer := nil; //?
end;
if not Assigned(Renderer) then
begin
// disable screensaver
@ -475,6 +476,10 @@ procedure TRenderForm.btnCancelClick(Sender: TObject);
begin
if Assigned(Renderer) then
begin
if Renderer.Suspended then begin
Renderer.Resume;
btnPause.caption := 'Pause';
end;
Renderer.Terminate;
Renderer.WaitFor; // --?--
end
@ -529,10 +534,10 @@ procedure TRenderForm.btnPauseClick(Sender: TObject);
begin
if Assigned(Renderer) then
if Renderer.Suspended = false then begin
renderer.suspend;
renderer.Suspend;
btnPause.caption := 'Resume';
end else begin
renderer.resume;
renderer.Resume;
btnPause.caption := 'Pause';
end;
end;