From: Peter S. <zu...@us...> - 2008-10-04 04:00:15
|
Update of /cvsroot/apophysis/2.10/Source In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23260 Modified Files: FormRender.pas Fullscreen.pas Main.pas ScriptRender.pas Log Message: Application.ProcessMessages removed from OnProgress calls Index: FormRender.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/FormRender.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** FormRender.pas 29 Sep 2008 09:47:10 -0000 1.31 --- FormRender.pas 4 Oct 2008 04:00:02 -0000 1.32 *************** *** 318,322 **** end; StatusBar.Panels[2].text := 'Slice ' + IntToStr(Renderer.Slice + 1) + ' of ' + IntToStr(Renderer.nrSlices); ! Application.ProcessMessages; end; --- 318,322 ---- end; StatusBar.Panels[2].text := 'Slice ' + IntToStr(Renderer.Slice + 1) + ' of ' + IntToStr(Renderer.nrSlices); ! //Application.ProcessMessages; end; Index: ScriptRender.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/ScriptRender.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ScriptRender.pas 25 Nov 2006 16:56:34 -0000 1.5 --- ScriptRender.pas 4 Oct 2008 04:00:02 -0000 1.6 *************** *** 114,118 **** Elapsed := Now - StartTime; // if prog > 0 then Remainder := Elapsed * (1/prog - 1); ! Application.ProcessMessages; end; --- 114,118 ---- Elapsed := Now - StartTime; // if prog > 0 then Remainder := Elapsed * (1/prog - 1); ! //Application.ProcessMessages; end; Index: Main.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/Main.pas,v retrieving revision 1.74 retrieving revision 1.75 diff -C2 -d -r1.74 -r1.75 *** Main.pas 29 Sep 2008 09:42:48 -0000 1.74 --- Main.pas 4 Oct 2008 04:00:02 -0000 1.75 *************** *** 43,47 **** RS_VO = 3; ! AppVersionString = 'Apophysis 2.08 beta 2 pre5+'; type --- 43,47 ---- RS_VO = 3; ! AppVersionString = 'Apophysis 2.08 beta [thread test 2]'; type *************** *** 882,886 **** Trunc((Remaining * 24 * 60 * 60 - Trunc(Remaining * 24 * 60 * 60)) * 100)]); StatusBar.Panels[2].Text := MainCp.name; ! Application.ProcessMessages; end; --- 882,886 ---- Trunc((Remaining * 24 * 60 * 60 - Trunc(Remaining * 24 * 60 * 60)) * 100)]); StatusBar.Panels[2].Text := MainCp.name; ! //Application.ProcessMessages; end; *************** *** 3613,3622 **** procedure TMainForm.FormActivate(Sender: TObject); begin ! if Assigned(Renderer) then Renderer.Priority := tpNormal; end; procedure TMainForm.FormDeactivate(Sender: TObject); begin ! if Assigned(Renderer) then Renderer.Priority := tpLower; end; --- 3613,3622 ---- procedure TMainForm.FormActivate(Sender: TObject); begin ! if Assigned(Renderer) then Renderer.Priority := tpLower; //tpNormal; end; procedure TMainForm.FormDeactivate(Sender: TObject); begin ! if Assigned(Renderer) then Renderer.Priority := tpLowest; //tpLower; end; Index: Fullscreen.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/Fullscreen.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Fullscreen.pas 25 Jul 2008 13:30:10 -0000 1.12 --- Fullscreen.pas 4 Oct 2008 04:00:02 -0000 1.13 *************** *** 217,221 **** Canvas.Unlock; end; ! Application.ProcessMessages; end; --- 217,221 ---- Canvas.Unlock; end; ! //Application.ProcessMessages; end; |