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

some interface bugs fixed,

Browse Source 
added option to choose between zoom & scale when zooming in MainForm
This commit is contained in:
zueuk
2006-09-18 15:52:16 +00:00
parent e72eee7dd9
commit eac94ba8a1
10 changed files with 154 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
2.10/Source/Regstry.pas
View File

@ -1,5 +1,6 @@
{
Apophysis Copyright (C) 2001-2004 Mark Townsend
Apophysis Copyright (C) 2005-2006 Ronald Hordijk, Piotr Borys, Peter Sdobnov
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -108,6 +109,14 @@ begin
begin
OldPaletteFormat := false;
end;
if Registry.ValueExists('PreserveQuality') then
begin
PreserveQuality := Registry.ReadBool('PreserveQuality');
end
else
begin
PreserveQuality := true;
end;
if Registry.ValueExists('KeepBackground') then
begin
@ -589,6 +598,7 @@ begin
mutantMinTransforms := 2;
mutantMaxTransforms := 6;
randGradient := 0;
PreserveQuality := false;
KeepBackground := False;
UPRPath := DefaultPath;
ImageFolder := DefaultPath;
@ -1045,6 +1055,7 @@ begin
// Registry.WriteBool('ResizeOnLoad', ResizeOnLoad);
Registry.WriteBool('ShowProgress', ShowProgress);
Registry.WriteBool('KeepBackground', KeepBackground);
Registry.WriteBool('PreserveQuality', PreserveQuality);
Registry.WriteString('FunctionLibrary', defLibrary);
Registry.WriteBool('ShowTransparency', ShowTransparency);