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

favourite variations added, 64-bit rendering removed

Browse Source
This commit is contained in:
zueuk 2009-04-20 07:54:55 +00:00
parent 054b513e0e
commit 34d649012d
1 changed files with 31 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
2.10/Source/Options.pas
View File

@ -1,6 +1,8 @@
{ {
Apophysis Copyright (C) 2001-2004 Mark Townsend Apophysis Copyright (C) 2001-2004 Mark Townsend
Apophysis Copyright (C) 2005-2006 Ronald Hordijk, Piotr Borys, Peter Sdobnov Apophysis Copyright (C) 2005-2006 Ronald Hordijk, Piotr Borys, Peter Sdobnov
Apophysis Copyright (C) 2007-2008 Piotr Borys, Peter Sdobnov
Apophysis Copyright (C) 2009 Peter Sdobnov
This program is free software; you can redistribute it and/or modify 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 it under the terms of the GNU General Public License as published by
@ -83,9 +85,6 @@ type
Label7: TLabel; Label7: TLabel;
Label9: TLabel; Label9: TLabel;
VariationsPage: TTabSheet; VariationsPage: TTabSheet;
GroupBox17: TGroupBox;
btnSetAll: TButton;
btnClearAll: TButton;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
grpGradient: TRadioGroup; grpGradient: TRadioGroup;
GroupBox3: TGroupBox; GroupBox3: TGroupBox;
@ -223,6 +222,13 @@ type
txtGammaThreshold: TEdit; txtGammaThreshold: TEdit;
lblGammaThreshold: TLabel; lblGammaThreshold: TLabel;
chkXaosRebuild: TCheckBox; chkXaosRebuild: TCheckBox;
PageControl1: TPageControl;
varsPageEnabled: TTabSheet;
varsPageFavourite: TTabSheet;
btnSetAll: TButton;
btnClearAll: TButton;
clbVarFavourites: TCheckListBox;
btnClearVarFavs: TButton;
procedure btnCancelClick(Sender: TObject); procedure btnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure btnOKClick(Sender: TObject); procedure btnOKClick(Sender: TObject);
@ -255,6 +261,7 @@ type
procedure btnBrowseSoundClick(Sender: TObject); procedure btnBrowseSoundClick(Sender: TObject);
procedure btnPlayClick(Sender: TObject); procedure btnPlayClick(Sender: TObject);
procedure btnGradientsFileClick(Sender: TObject); procedure btnGradientsFileClick(Sender: TObject);
procedure btnClearVarFavsClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
@ -379,9 +386,10 @@ begin
udSymNVars.Position := SymmetryNVars; udSymNVars.Position := SymmetryNVars;
{ Variations tab } { Variations tab }
//UnpackVariations(VariationOptions); for i := 0 to NRVAR -1 do begin
for i := 0 to NRVAR -1 do clbVarEnabled.Checked[i] := RandomVariations[i];
clbVarEnabled.Checked[i] := Variations[i]; clbVarFavourites.Checked[i] := FavouriteVariations[i];
end;
{ Gradient tab } { Gradient tab }
grpGradient.ItemIndex := randGradient; grpGradient.ItemIndex := randGradient;
@ -427,15 +435,17 @@ begin
{ Get option values from controls. Disallow bad values } { Get option values from controls. Disallow bad values }
vars := false; vars := false;
for i := 0 to NRVAR-1 do begin for i := 0 to NRVAR-1 do begin
Variations[i] := clbVarEnabled.Checked[i]; RandomVariations[i] := clbVarEnabled.Checked[i];
vars := vars or Variations[i]; vars := vars or RandomVariations[i];
FavouriteVariations[i] := clbVarFavourites.Checked[i];
end; end;
if vars = false then begin if vars = false then begin
//Application.MessageBox('You must select at least one variation.', 'Apophysis', 48); //Application.MessageBox('You must select at least one variation.', 'Apophysis', 48);
//Tabs.ActivePage := VariationsPage; //Tabs.ActivePage := VariationsPage;
//Exit; //Exit;
Variations[0] := true; RandomVariations[0] := true;
end; end;
{ General tab } { General tab }
@ -734,6 +744,9 @@ begin
for i:= 0 to NRVAR - 1 do begin for i:= 0 to NRVAR - 1 do begin
clbVarEnabled.AddItem(varnames(i),nil); clbVarEnabled.AddItem(varnames(i),nil);
end; end;
for i:= 0 to NRVAR - 1 do begin
clbVarFavourites.AddItem(varnames(i),nil);
end;
end; end;
procedure TOptionsForm.pnlBackColorClick(Sender: TObject); procedure TOptionsForm.pnlBackColorClick(Sender: TObject);
@ -816,5 +829,13 @@ begin
end; end;
end; end;
procedure TOptionsForm.btnClearVarFavsClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to NRVAR - 1 do
clbVarFavourites.Checked[i] := False;
end;
end. end.