Application.ProcessMessages removed from OnProgress calls

This commit is contained in:
zueuk 2008-10-04 04:00:02 +00:00
parent c215ee8966
commit f8985ec0f1
4 changed files with 7 additions and 7 deletions

View File

@ -317,7 +317,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; //Application.ProcessMessages;
end; end;
procedure TRenderForm.FormCreate(Sender: TObject); procedure TRenderForm.FormCreate(Sender: TObject);

View File

@ -216,7 +216,7 @@ begin
finally finally
Canvas.Unlock; Canvas.Unlock;
end; end;
Application.ProcessMessages; //Application.ProcessMessages;
end; end;
procedure TFullscreenForm.hideTaskbar; procedure TFullscreenForm.hideTaskbar;

View File

@ -42,7 +42,7 @@ const
RS_XO = 2; RS_XO = 2;
RS_VO = 3; RS_VO = 3;
AppVersionString = 'Apophysis 2.08 beta 2 pre5+'; AppVersionString = 'Apophysis 2.08 beta [thread test 2]';
type type
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove,
@ -881,7 +881,7 @@ begin
Trunc((Remaining * 24 * 60 - Trunc(Remaining * 24 * 60)) * 60), Trunc((Remaining * 24 * 60 - Trunc(Remaining * 24 * 60)) * 60),
Trunc((Remaining * 24 * 60 * 60 - Trunc(Remaining * 24 * 60 * 60)) * 100)]); Trunc((Remaining * 24 * 60 * 60 - Trunc(Remaining * 24 * 60 * 60)) * 100)]);
StatusBar.Panels[2].Text := MainCp.name; StatusBar.Panels[2].Text := MainCp.name;
Application.ProcessMessages; //Application.ProcessMessages;
end; end;
procedure TMainForm.UpdateUndo; procedure TMainForm.UpdateUndo;
@ -3612,12 +3612,12 @@ end;
procedure TMainForm.FormActivate(Sender: TObject); procedure TMainForm.FormActivate(Sender: TObject);
begin begin
if Assigned(Renderer) then Renderer.Priority := tpNormal; if Assigned(Renderer) then Renderer.Priority := tpLower; //tpNormal;
end; end;
procedure TMainForm.FormDeactivate(Sender: TObject); procedure TMainForm.FormDeactivate(Sender: TObject);
begin begin
if Assigned(Renderer) then Renderer.Priority := tpLower; if Assigned(Renderer) then Renderer.Priority := tpLowest; //tpLower;
end; end;
procedure TMainForm.mnuCalculateColorsClick(Sender: TObject); procedure TMainForm.mnuCalculateColorsClick(Sender: TObject);

View File

@ -113,7 +113,7 @@ begin
ProgressBar.Position := round(100 * prog); ProgressBar.Position := round(100 * prog);
Elapsed := Now - StartTime; Elapsed := Now - StartTime;
// if prog > 0 then Remainder := Elapsed * (1/prog - 1); // if prog > 0 then Remainder := Elapsed * (1/prog - 1);
Application.ProcessMessages; //Application.ProcessMessages;
end; end;
procedure TScriptRenderForm.FormDestroy(Sender: TObject); procedure TScriptRenderForm.FormDestroy(Sender: TObject);