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

(...)

Browse Source
This commit is contained in:
zueuk
2006-11-24 13:16:38 +00:00
parent 323b6fe128
commit 383e1b86fb
8 changed files with 176 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
2.10/Source/Main.pas
View File

@ -41,7 +41,7 @@ const
RS_XO = 2;
RS_VO = 3;
AppVersionString = 'Apophysis 2.05 post-release 2';
AppVersionString = 'Apophysis 2.05 beta 2 rc3';
type
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove,
@ -1808,7 +1808,7 @@ begin
if not Assigned(Renderer) then
begin
if EditForm.Visible and ((MainCP.Width / MainCP.Height) <> (EditForm.cp.Width / EditForm.cp.Height))
then EditForm.UpdateDisplay{(true)}; // preview only?
then EditForm.UpdateDisplay(true); // preview only?
if AdjustForm.Visible then AdjustForm.UpdateDisplay(true); // preview only!
RenderCP := MainCP.Clone;
@ -1938,6 +1938,7 @@ begin
on EInOutError do Application.MessageBox('Error creating batch', PChar(APP_NAME), 16);
end;
RandFile := AppPath + 'apophysis.rand';
MainCp.name := '';
end;
{ ******************************** Menu ************************************ }