Algo mas de avance en el desarrollo pongo un video corto y luego explico como agregar variables a la configuración mientras vamos programando nuestras aplicaciones.
Para agregar una variable hay que hacerlo en el archivo
Config.Class como cualquier variable publica estas son las del ejemplo:
Código:
'' INTERFACE
Public ShowConsoleTab As Boolean 'Show console tab
Public ModelBackgroundColor As Integer 'Model background color
Public ButtonSize As Integer = 32
Public ShowEntityInspector As Boolean 'Show entity inspector
Public DecimalDigitsCoords As Integer 'Decimal digits for coordinates
Public DecimalDigitsInquiries As Integer 'Decimal digits for inquiries
Public IconFamily As String 'Icon family
Luego para definir el modo en que estas variables serán alteradas y con que controles se hace también en la clase
Config.class pero dentro del método
Behaviour que como ya sabrán en nuestro idioma significa comportamiento. Aquí como esta todo para el video de antes:
Código:
Static Public Function Behaviour() As Collection
'o.Add([("Title of the variable"), "e", "DirChooser","Section"], "Root")
' r=Read only, e=Read Write, a=Automatic. Section is te group of the variable
' El cuarto parámetro es la funcion que modificara el valor, por ejemplo:
' toggle.2 = Es un boton togle que puede ofrecer dos estados, on y off por ejemplo
' toggle.3 = Es un boton togle que puede ofrecer tres estados, on y off y standby, por ejemplo
' color.choose.16x16 = Es un boton normal que al producirse el evento click llamara a un formulario de seleccion de colores
' integer = Un SpinBox para un numero entero n donde n > -1 y n < 7
' select.from.list = Un combobox solo lectura que presenta una lista de opciones.
Dim o As New Collection
o.Add(["interface", ("Show console tab"), "e", "toggle.2"], "ShowConsoleTab")
o.Add(["interface", ("Model Background Color"), "e", "color.choose.16x16"], "ModelBackgroundColor")
o.Add(["interface", ("Show entity inspector"), "e", "toggle.2"], "ShowEntityInspector")
o.Add(["interface", ("Decimal digits for coordinates"), "e", "integer", [0, 6]], "DecimalDigitsCoords")
o.Add(["interface", ("Decimal digits for inquiries"), "e", "integer", [0, 6]], "DecimalDigitsInquiries")
o.Add(["interface", ("Show console tab"), "e", "ToggleButton"], "toggle.2")
o.Add(["interface", ("Icon family"), "e", "select.from.list", ["TercoIDE", "Tincho", "Shordi"]], "IconFamily")
Return o.Copy()
o.Clear
End
Creo que el proyecto se presta a la colaboración porque siempre hace falta algún control que haga algo especial.