From f8985ec0f10051e5d3da7d39f21a4d06ed438339 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Sat, 4 Oct 2008 04:00:02 +0000
Subject: [PATCH] Application.ProcessMessages removed from OnProgress calls

---
 2.10/Source/FormRender.pas   | 2 +-
 2.10/Source/Fullscreen.pas   | 2 +-
 2.10/Source/Main.pas         | 8 ++++----
 2.10/Source/ScriptRender.pas | 2 +-
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/2.10/Source/FormRender.pas b/2.10/Source/FormRender.pas
index 5c7c761..be3d348 100644
--- a/2.10/Source/FormRender.pas
+++ b/2.10/Source/FormRender.pas
@@ -317,7 +317,7 @@ begin
        Trunc(Remaining * 24 * 60 * 60 * 100) mod 100]);
   end;
   StatusBar.Panels[2].text := 'Slice ' + IntToStr(Renderer.Slice + 1) + ' of ' + IntToStr(Renderer.nrSlices);
-  Application.ProcessMessages;
+  //Application.ProcessMessages;
 end;
 
 procedure TRenderForm.FormCreate(Sender: TObject);
diff --git a/2.10/Source/Fullscreen.pas b/2.10/Source/Fullscreen.pas
index 43ff517..462c333 100644
--- a/2.10/Source/Fullscreen.pas
+++ b/2.10/Source/Fullscreen.pas
@@ -216,7 +216,7 @@ begin
  finally
   Canvas.Unlock;
  end;
-  Application.ProcessMessages;
+  //Application.ProcessMessages;
 end;
 
 procedure TFullscreenForm.hideTaskbar;
diff --git a/2.10/Source/Main.pas b/2.10/Source/Main.pas
index d536fe0..50b12bc 100644
--- a/2.10/Source/Main.pas
+++ b/2.10/Source/Main.pas
@@ -42,7 +42,7 @@ const
   RS_XO = 2;
   RS_VO = 3;
 
-  AppVersionString = 'Apophysis 2.08 beta 2 pre5+';
+  AppVersionString = 'Apophysis 2.08 beta [thread test 2]';
 
 type
   TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove,
@@ -881,7 +881,7 @@ begin
       Trunc((Remaining * 24 * 60 - Trunc(Remaining * 24 * 60)) * 60),
       Trunc((Remaining * 24 * 60 * 60 - Trunc(Remaining * 24 * 60 * 60)) * 100)]);
   StatusBar.Panels[2].Text := MainCp.name;
-  Application.ProcessMessages;
+  //Application.ProcessMessages;
 end;
 
 procedure TMainForm.UpdateUndo;
@@ -3612,12 +3612,12 @@ end;
 
 procedure TMainForm.FormActivate(Sender: TObject);
 begin
-  if Assigned(Renderer) then Renderer.Priority := tpNormal;
+  if Assigned(Renderer) then Renderer.Priority := tpLower; //tpNormal;
 end;
 
 procedure TMainForm.FormDeactivate(Sender: TObject);
 begin
-  if Assigned(Renderer) then Renderer.Priority := tpLower;
+  if Assigned(Renderer) then Renderer.Priority := tpLowest; //tpLower;
 end;
 
 procedure TMainForm.mnuCalculateColorsClick(Sender: TObject);
diff --git a/2.10/Source/ScriptRender.pas b/2.10/Source/ScriptRender.pas
index 348dd3a..034ce9e 100644
--- a/2.10/Source/ScriptRender.pas
+++ b/2.10/Source/ScriptRender.pas
@@ -113,7 +113,7 @@ begin
   ProgressBar.Position := round(100 * prog);
   Elapsed := Now - StartTime;
 //  if prog > 0 then Remainder := Elapsed * (1/prog - 1);
-  Application.ProcessMessages;
+  //Application.ProcessMessages;
 end;
 
 procedure TScriptRenderForm.FormDestroy(Sender: TObject);