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

Added definable limit of added variations count when generating a symmetric flame.

Browse Source
This commit is contained in:
utak3r
2005-10-09 13:28:00 +00:00
parent c6185f9095
commit fff8159c07
6 changed files with 71 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
2.10/Source/Options.pas
View File

@ -178,6 +178,9 @@ type
txtTryLength: TEdit;
txtJPEGquality: TComboBox;
rgTransparency: TRadioGroup;
Label24: TLabel;
txtSymNVars: TEdit;
udSymNVars: TUpDown;
procedure btnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnOKClick(Sender: TObject);
@ -280,8 +283,13 @@ begin
txtRandomPrefix.text := RandomPrefix;
chkKeepbackground.Checked := KeepBackground;
cmbSymType.ItemIndex := SymmetryType;
if (SymmetryType = 0) or (SymmetryType = 1) then txtSymOrder.enabled := false;
if (SymmetryType = 0) or (SymmetryType = 1) then
begin
txtSymOrder.enabled := false;
txtSymNVars.enabled := false;
end;
udSymOrder.Position := SymmetryOrder;
udSymNVars.Position := SymmetryNVars;
{ Variations tab }
UnpackVariations(VariationOptions);
@ -395,6 +403,7 @@ begin
RandomPrefix := txtRandomPrefix.text;
SymmetryType := cmbSymType.ItemIndex;
SymmetryOrder := udSymOrder.Position;
SymmetryNVars := udSymNVars.Position;
KeepBackground := chkKeepbackground.Checked;
{Gradient tab }
@ -477,9 +486,14 @@ end;
procedure TOptionsForm.cmbSymTypeChange(Sender: TObject);
begin
if (cmbSymType.ItemIndex = 0) or (cmbSymType.ItemIndex = 1) then
txtSymOrder.enabled := false
else
begin
txtSymOrder.enabled := false;
txtSymNVars.enabled := false;
end else
begin
txtSymOrder.enabled := true;
txtSymNVars.enabled := true;
end;
end;
procedure TOptionsForm.btnSetAllClick(Sender: TObject);