frmChoice.class

' Gambas class file

' ### CHOOSE INSTALL TYPE FORM ###

PUBLIC SUB Form_Show()

' set button focus:
frmMain.btnMain2.SetFocus

' set some background colours:
TextLabel1.BackColor = Global.HTMLBG 
lblSubTitle.BackColor = Global.LogoBG
Panel1.BackColor = Global.LogoBG

END

PUBLIC SUB Form_Resize()

' Resize the html message:
TextLabel1.Width = ScrollView1.ClientWidth
TextLabel1.Adjust 

END

PUBLIC SUB btnFullAuto_Click() ' Full-automatic.

Global.enumINSTMODE = 0 ' Full-automatic install mode.
Global.enumPARTMODE = 0 'Full-automatic partitioning
Global.enumPACKS = 0 'All packages selected
Global.enumLILOMODE = 0 'Install lilo to MBR


IF Global.DiskInfo.Count >= 1 THEN frmDriveSelect.ShowModal

IF Global.frmExitStatus = "ok" THEN 
   
   'Check space occupied by packages and make sure there is enough
   IF Functions.EnoughSpace(0) = TRUE THEN    
      frmMain.btnMain2.Enabled = FALSE ' Disable Choices.
      frmMain.btnMain6.Enabled = TRUE ' Enable Go for it!.
      frmMain.btnMain6_Click ' Advance to Go for it!.
   ELSE 
      Message.Error(Global.installDrive & " is not big enough for a full installation" & gb.NewLine & "of VectorLinux. Select a different drive" & gb.NewLine & "or otherwise chose the \"Advanced\" mode" & gb.NewLine & "and unselect packages you don't need.")
   ENDIF 
ENDIF 

END

PUBLIC SUB btnSemiAuto_Click() ' Semi-automatic.

' Global.enumINSTMODE = 1 ' Semi-automatic install mode.
' frmMain.btnChoice.Enabled = FALSE ' Disable Choices.
' frmMain.btnPartitions.Enabled = TRUE ' Enable Partitions.
' frmMain.btnPartitions_Click ' Advance to Partitions.

END

PUBLIC SUB btnAdvanced_Click() ' Advanced.

Global.enumINSTMODE = 1 ' Advanced install mode.
frmMain.btnMain3.Enabled = TRUE ' Enable Partitions
frmMain.btnMain3_Click ' Advance to Partitions

END