[Apophysis-cvs-commits] 2.10/Source Main.dfm,1.6,1.7 ScriptForm.pas,1.5,1.6

[Ronald H. <ron...@us...>]

Update of /cvsroot/apophysis/2.10/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28977/Source

Modified Files:
	Main.dfm ScriptForm.pas 
Log Message:
variant setting

Index: Main.dfm
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/Main.dfm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Main.dfm	5 Jun 2005 16:56:08 -0000	1.6
--- Main.dfm	23 Jun 2005 18:53:14 -0000	1.7
***************
*** 3,7 ****
    Top = 128
    Width = 574
!   Height = 595
    Caption = 'Apophysis'
    Color = clBtnFace
--- 3,7 ----
    Top = 128
    Width = 574
!   Height = 615
    Caption = 'Apophysis'
    Color = clBtnFace
***************
*** 292,296 ****
        Top = 1
        Width = 400
!       Height = 492
        Align = alClient
        AutoSize = True
--- 292,296 ----
        Top = 1
        Width = 400
!       Height = 512
        Align = alClient
        AutoSize = True
***************
*** 2708,2712 ****
          Caption = 'Random'
          Checked = True
!         GroupIndex = 1
          RadioItem = True
          ShortCut = 121
--- 2708,2712 ----
          Caption = 'Random'
          Checked = True
!         GroupIndex = 2
          RadioItem = True
          ShortCut = 121
***************
*** 2715,2719 ****
        object N8: TMenuItem
          Caption = '-'
!         GroupIndex = 1
        end
      end
--- 2715,2719 ----
        object N8: TMenuItem
          Caption = '-'
!         GroupIndex = 2
        end
      end

Index: ScriptForm.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/ScriptForm.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ScriptForm.pas	23 Jun 2005 17:55:50 -0000	1.5
--- ScriptForm.pas	23 Jun 2005 18:53:14 -0000	1.6
***************
*** 1664,1670 ****
      i := GetInputArgAsInteger(0);
      if (i < 0) or (i >= NRVISVAR) then
!       i := NRVISVAR - 1;
      Variation := TVariation(i);
!     if i = -1 then
        MainForm.mnuVRandom.checked := True
      else
--- 1664,1670 ----
      i := GetInputArgAsInteger(0);
      if (i < 0) or (i >= NRVISVAR) then
!       i := NRVISVAR ;
      Variation := TVariation(i);
!     if i = NRVISVAR then
        MainForm.mnuVRandom.checked := True
      else