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

Parameterized variations

Browse Source
This commit is contained in:
ronaldhordijk
2005-09-11 10:30:54 +00:00
parent 41a160f51c
commit ab49c4053a
19 changed files with 1007 additions and 302 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
2.10/Source/Options.pas
View File

@ -209,10 +209,11 @@ var
implementation
uses
Main, Global, Editor, ControlPoint, XForm;
{$R *.DFM}
uses
Main, Global, Editor, ControlPoint, XFormMan;
procedure TOptionsForm.btnCancelClick(Sender: TObject);
begin
Close;
@ -274,7 +275,7 @@ begin
{ Variations tab }
UnpackVariations(VariationOptions);
for i := 0 to NRVISVAR -1 do
for i := 0 to NRVAR -1 do
clbVarEnabled.Checked[i] := Variations[i];
{ Gradient tab }
@ -318,7 +319,7 @@ begin
{ Variations tab }
{ Get option values from controls. Disallow bad values }
for i := 0 to NRVISVAR -1 do
for i := 0 to NRVAR -1 do
Variations[i] := clbVarEnabled.Checked[i];
v := PackVariations;
@ -471,7 +472,7 @@ procedure TOptionsForm.btnSetAllClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to NRVISVAR - 1 do
for i := 0 to NRVAR - 1 do
clbVarEnabled.Checked[i] := True;
end;
@ -479,7 +480,7 @@ procedure TOptionsForm.btnClearAllClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to NRVISVAR - 1 do
for i := 0 to NRVAR - 1 do
clbVarEnabled.Checked[i] := False;
end;
@ -582,8 +583,8 @@ procedure TOptionsForm.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:= 0 to NRVISVAR - 1 do begin
clbVarEnabled.AddItem(varnames[i],nil);
for i:= 0 to NRVAR - 1 do begin
clbVarEnabled.AddItem(varnames(i),nil);
end;
end;