' Gambas class file
' Comprobada en la versión de gambas gambas3.4.2

Private pordefecto As String = "Default" 'por defecto
Private ConfiguracionUsuarioTmp As New Settings

Public Sub _new()
   ComboBoxUsuario.Add(pordefecto) 'por defecto
   ComboBoxUsuario.Add("Juan")
   ComboBoxUsuario.Add("Maria")
   ComboBoxUsuario.Add("Pepe")
   ComboBoxUsuario.ReadOnly = True ' lo hacemos que solo sea modo lectura
End


Public Sub Form_Open()
  leerDatosConfiguracion()
End

Public Sub leerDatosConfiguracion()
   ConfiguracionUsuarioTmp.Read(Me) 'lee datos del formulario: X, Y, Ancho y Largo
   CheckBox1.value = ConfiguracionUsuarioTmp["formulario_Fmain/check1", CheckBox1.value]
   CheckBox2.value = ConfiguracionUsuarioTmp["formulario_Fmain/check2", CheckBox2.value]
   CheckBox3.value = ConfiguracionUsuarioTmp["formulario_Fmain/check3", CheckBox3.value]
   CheckBox4.value = ConfiguracionUsuarioTmp["formulario_Fmain/check3", CheckBox4.value]

   RadioButton1.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio1"]
   RadioButton2.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio2"]
   RadioButton3.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio3"]
   RadioButton4.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio4"]
   RadioButton5.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio5"]
   RadioButton6.Value = ConfiguracionUsuarioTmp["formulario_Fmain/radio6"]

   ColorButton1.value = ConfiguracionUsuarioTmp["formulario_Fmain/color1", ColorButton1.value]

   SpinBox1.Value = ConfiguracionUsuarioTmp["formulario_Fmain/spin1", SpinBox1.value]
End


Public Sub form_Close()
  guardarDatosConfiguracion()
End

Public Sub guardarDatosConfiguracion()
  ConfiguracionUsuarioTmp.Write(Me)
  ConfiguracionUsuarioTmp["formulario_Fmain/check1"] = CheckBox1.value
  ConfiguracionUsuarioTmp["formulario_Fmain/check2"] = CheckBox2.value
  ConfiguracionUsuarioTmp["formulario_Fmain/check3"] = CheckBox3.value
  ConfiguracionUsuarioTmp["formulario_Fmain/check4"] = CheckBox4.value

  ConfiguracionUsuarioTmp["formulario_Fmain/radio1"] = RadioButton1.Value
  ConfiguracionUsuarioTmp["formulario_Fmain/radio2"] = RadioButton2.Value
  ConfiguracionUsuarioTmp["formulario_Fmain/radio3"] = RadioButton3.Value
  ConfiguracionUsuarioTmp["formulario_Fmain/radio4"] = RadioButton4.Value
  ConfiguracionUsuarioTmp["formulario_Fmain/radio5"] = RadioButton5.Value
  ConfiguracionUsuarioTmp["formulario_Fmain/radio6"] = RadioButton6.Value

  ConfiguracionUsuarioTmp["formulario_Fmain/color1"] = ColorButton1.value

  ConfiguracionUsuarioTmp["formulario_Fmain/spin1"] = SpinBox1.Value
End

Public Sub SpinBox1_Change()
  ProgressBar1.value = SpinBox1.value / 100
End

Public Sub ComboBoxUsuario_Click()
 Print "Cambio de usuario: " & comboboxusuario.text
 If comboboxusuario.text = pordefecto Then
       ConfiguracionUsuarioTmp = New Settings(User.home &/ ".config/gambas3" &/ Application.name & ".conf")
    Else
       ConfiguracionUsuarioTmp = New Settings(User.home &/ ".config/gambas3" &/ Application.name & comboboxusuario.text & ".conf")
 Endif
 Print ConfiguracionUsuarioTmp.Path
 leerDatosConfiguracion()
End

Public Sub ButtonGuardarConfiguracion_Click()
 guardarDatosConfiguracion()
 'fuerzo a que se guarde la configuración...
 ConfiguracionUsuarioTmp.Save()
Print ConfiguracionUsuarioTmp.Path
End