mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Disable screensave when rendering

Browse Source
This commit is contained in:
ronaldhordijk 2005-03-26 10:07:28 +00:00
parent c9805b1a14
commit 73b68d554e
3 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2.10/Changes.txt
View File

@ -1,4 +1,5 @@
2.02h 2.02h
+ Disable screen saver when rendering to disk
2.02g 2.02g
+ Delphi2005 Project + Delphi2005 Project

2
2.10/Source/FormRender.dfm
View File

@ -401,7 +401,7 @@ object RenderForm: TRenderForm
Width = 327 Width = 327
Height = 21 Height = 21
Style = csDropDownList Style = csDropDownList
ItemHeight = 0 ItemHeight = 13
TabOrder = 0 TabOrder = 0
OnChange = cmbPresetChange OnChange = cmbPresetChange
end end

6
2.10/Source/FormRender.pas
View File

@ -311,6 +311,9 @@ begin
if Assigned(Renderer) then Renderer.WaitFor; if Assigned(Renderer) then Renderer.WaitFor;
if not Assigned(Renderer) then if not Assigned(Renderer) then
begin begin
// disable screensaver
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);
cp.sample_density := Sample_density; cp.sample_density := Sample_density;
cp.spatial_oversample := Oversample; cp.spatial_oversample := Oversample;
cp.spatial_filter_radius := Filter_Radius; cp.spatial_filter_radius := Filter_Radius;
@ -327,6 +330,9 @@ begin
Renderer.SetCP(cp); Renderer.SetCP(cp);
Renderer.Priority := tpLower; Renderer.Priority := tpLower;
Renderer.Resume; Renderer.Resume;
// enable screensaver
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
end; end;
end; end;