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

4
2.10/Source/ScriptForm.pas
View File

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