Guardar/Cargar configuraciones en un txt

El Tanteador de tenis de mesa tiene una ventana donde se puede configurar los distintos colores del la interfaz clásica, y también se puede guardar y cargar configuraciones, pero... no esta bien programado ni es cómodo para el usuario.
Por ese motivo me puse a buscar un método mas conveniente para crear archivos de configuraciones de colores que se les puede poner el nombre de la persona que eligió esos colores con lo cual es fácil de identificar cuales son los colores que cada persona eligió, con una extencion a nuestro gusto en este caso yo le asigne la extencion .ConfigColor pero puede ser cualquiera a su elección

 Así se ve el archivo de configuración de colores con dos valores: Letra y Fondo,
pero puede tener cientos de valores según la necesidad de nuestro programa.

' gambas class file

' by postapase
Public JuegoColores As String
Public Fondo As String
Public Letra As String

Public Sub Form_Open()
Me.Center
Me.Caption = "Configuracion de colores"
End

Public Sub btnGuardar_Click()
Dim sPath As String

If Dialog.SaveFile() Then Return
sPath = Dialog.Path
File.Save(sPath & ".ConfigColor", JuegoColores)

End

Public Sub ColorButton1_Change()
Actualizar
End

Public Sub ColorButton2_Change()
Actualizar
End

Public Sub Actualizar()
Letra = "Letra=" & ColorButton1.Value
Fondo = "Fondo=" & ColorButton2.Value
LabPostapase.Foreground = ColorButton1.Value
LabPostapase.Background = ColorButton2.Value
JuegoColores = Letra & gb.NewLine
JuegoColores &= Fondo
End

Public Sub btnCargar_Click()
Dim sPath As String
Dim dato As String
Dim ArchivoX As File
Dim LineaX As String
Dim DatoX As String[]

Dialog.Filter = ["*.ConfigColor", ("Configuración de colores")]

If Dialog.OpenFile() Then Return
sPath = Dialog.Path

ArchivoX = Open sPath For Read

While Not Eof(ArchivoX)

Line Input #ArchivoX, LineaX

If InStr(LineaX, "Letra") <> 0 Then
DatoX = Split(LineaX, "=")
ColorButton1.Value = Val(Trim(DatoX[1]))
Continue
Endif

If InStr(LineaX, "Fondo") <> 0 Then
DatoX = Split(LineaX, "=")
ColorButton2.Value = Val(Trim(DatoX[1]))
Continue
Endif

Wend

Close ArchivoX
Actualizar()

End

Public Sub btnPredeterminados_Click()
ColorButton1.Value = &H000000
ColorButton2.Value = &HFFFFFF
Actualizar()
End

Código fuente:  ConfigColor-0.0.1.tar.gz

Mi primer componente llamado animales

Buenas aquí ando re feliz pues e logrado crear mi primer componente y lo comparto con ustedes novatos igual que yo.
Hice un planteo en el foro http://www.gambas-es.org/  en este post .
Obtuve dos respuestas una muy interesante sin llegar a ser lo que pedi exactamente y la otra me mandaron a estudiar :( .
Pero... soy curioso y cuando ando con ganas y paciencia lo que busco generalmente lo encuentro pues bien hoy fue uno de esos días.

Primero que nada creamos un nuevo proyecto tildando en Programar un componente, elegimos en tipo de proyecto Aplicación gráfica GTK+, elegimos donde guardaremos el proyecto y que nombre tendra, en mi caso le puse animales.

Segundo borramos las dos clases que el gambas crea de forma predeterminadas llamadas CControl y CContainer ubicadas en la carpeta fuente.
También borramos las dos imágenes png de la carpeta Control ubicada en la carpeta proyectos. en la carpeta control agregamos una imagen a gusto y la renombramos con el nombre de la clase que crearemos en mi caso es animales

Tercero creamos una nueva clase llamada animales (en mi caso) en la carpeta fuentes.

Ahora les dejo las siguientes imagenes y ustedes sabran que hacer osea copiar el codigo en la clase y en el formulario FTest

Bien después de probado el componente en el formulario FTest y todo funciona como queremos, tenemos que crear el archivo de instalación para compartir nuestro componente con el resto del mundo algo que da mucha gratificación jaja y eso que este componente solo sirve para dar nociones de como crear un componente pues  en si no hace nada interesante.

Vamos a Proyecto-->Crear-->Paquete de instalación

y seguimos los siguientes pasos, terminado el proceso se crearan los paquetes dentro de una carpeta y vamos a instalar el paquete deb en mi caso seria postapase-animales_0.0.1-0ubuntu1_all.deb

Después de instalado creamos un nuevo proyecto, luego vamos a Proyecto-->Propiedades-->Componentes y tildamos en animales que es nuestro componente recién creado.

En esta ultima imagen podemos apreciar el componente animales en accion y funcionando perfectamente.

Espero que les sirva para sus estudios y pruebas novatos de gambas jajaja.

Saludos.

Código fuente del componente animales: Animales-0.0.1.tar.gz