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

spiral batch bug fixed

Browse Source
This commit is contained in:
ronaldhordijk 2005-06-23 17:55:50 +00:00
parent 0ded6d7136
commit e94ae65746
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2.10/Source/ScriptForm.dfm
View File

@ -165,7 +165,7 @@ object ScriptEditor: TScriptEditor
'end;')
MarkerList.UseDefaultMarkerImageIndex = False
MarkerList.DefaultMarkerImageIndex = -1
MarkerList.ImageTransparentColor = -1
MarkerList.ImageTransparentColor = 33554432
PrintOptions.MarginLeft = 0
PrintOptions.MarginRight = 0
PrintOptions.MarginTop = 0

6
2.10/Source/ScriptForm.pas
View File

@ -1649,7 +1649,7 @@ begin
with AMachine do
begin
i := integer(Variation);
if (i >= NRVAR) or (i < 0) then
if (i >= NRVISVAR) or (i < 0) then
i := -1;
ReturnOutputArg(i);
end
@ -1662,8 +1662,8 @@ begin
with AMachine do
begin
i := GetInputArgAsInteger(0);
if (i < 0) or (i >= NRVAR) then
i := NRVAR;
if (i < 0) or (i >= NRVISVAR) then
i := NRVISVAR - 1;
Variation := TVariation(i);
if i = -1 then
MainForm.mnuVRandom.checked := True