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

"final" xform support - part 1...

Browse Source
This commit is contained in:
zueuk
2006-03-02 17:27:20 +00:00
parent 023b72b70f
commit 1270d58d49
10 changed files with 407 additions and 262 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
2.10/Source/FormRender.pas
View File

@ -64,6 +64,7 @@ type
chkShutdown: TCheckBox;
cbPostProcess: TCheckBox;
txtDensity: TComboBox;
chkSaveIncompleteRenders: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnRenderClick(Sender: TObject);
@ -84,9 +85,11 @@ type
procedure btnDeletePresetClick(Sender: TObject);
procedure cmbPresetChange(Sender: TObject);
procedure chkMaintainClick(Sender: TObject);
procedure chkSaveIncompleteRendersClick(Sender: TObject);
private
StartTime, oldElapsed, edt: TDateTime;
oldProg: double;
SaveIncompleteRenders: boolean;
procedure DoPostProcess;
@ -180,6 +183,8 @@ procedure TRenderForm.HandleThreadTermination(var Message: TMessage);
begin
if Assigned(Renderer) then
begin
if SaveIncompleteRenders then Renderer.SaveImage(FileName);
Renderer.Free;
Renderer := nil;
ResetControls;
@ -760,5 +765,10 @@ begin
Result := ExitWindowsEx(RebootParam, 0);
end;
procedure TRenderForm.chkSaveIncompleteRendersClick(Sender: TObject);
begin
SaveIncompleteRenders := chkSaveIncompleteRenders.Checked;
end;
end.