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

variant setting

Browse Source
This commit is contained in:
ronaldhordijk 2005-06-23 18:53:14 +00:00
parent 4bf05f3509
commit b732ae3b0d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.10/Source/Main.dfm
View File

@ -2,7 +2,7 @@ object MainForm: TMainForm
Left = 411
Top = 128
Width = 574
Height = 595
Height = 615
Caption = 'Apophysis'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
@ -291,7 +291,7 @@ object MainForm: TMainForm
Left = 1
Top = 1
Width = 400
Height = 492
Height = 512
Align = alClient
AutoSize = True
PopupMenu = DisplayPopup
@ -2707,14 +2707,14 @@ object MainForm: TMainForm
object mnuVRandom: TMenuItem
Caption = 'Random'
Checked = True
GroupIndex = 1
GroupIndex = 2
RadioItem = True
ShortCut = 121
OnClick = mnuVRandomClick
end
object N8: TMenuItem
Caption = '-'
GroupIndex = 1
GroupIndex = 2
end
end
object mnuScript: TMenuItem

4
2.10/Source/ScriptForm.pas
View File

@ -1663,9 +1663,9 @@ begin
begin
i := GetInputArgAsInteger(0);
if (i < 0) or (i >= NRVISVAR) then
i := NRVISVAR - 1;
i := NRVISVAR ;
Variation := TVariation(i);
if i = -1 then
if i = NRVISVAR then
MainForm.mnuVRandom.checked := True
else
MainForm.VarMenus[i].Checked := True;