Application.ProcessMessages removed from OnProgress calls
This commit is contained in:
parent
c215ee8966
commit
f8985ec0f1
@ -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);
|
||||
|
@ -216,7 +216,7 @@ begin
|
||||
finally
|
||||
Canvas.Unlock;
|
||||
end;
|
||||
Application.ProcessMessages;
|
||||
//Application.ProcessMessages;
|
||||
end;
|
||||
|
||||
procedure TFullscreenForm.hideTaskbar;
|
||||
|
@ -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);
|
||||
|
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user