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]);
end;
StatusBar.Panels[2].text := 'Slice ' + IntToStr(Renderer.Slice + 1) + ' of ' + IntToStr(Renderer.nrSlices);
Application.ProcessMessages;
//Application.ProcessMessages;
end;
procedure TRenderForm.FormCreate(Sender: TObject);

View File

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

View File

@ -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);

View File

@ -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);