Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
¿donde Se Guardan Las Configuraciones Del Gb.setting?
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Re: ¿donde Se Guardan Las Configuraciones Del Gb.setting? 
 
Os cuento lo que yo hago para todas mis aplicaciones del trabajo:
En el Evento del fMain Form_Open() Es decir, lo primero que hace el programa al ser abierto

Public sub Form_Open()
    Dim f As Object

    If Not Exist(User.Home &/ "." & Application.Name) Then 'No existe carpeta de configuraciones, luego es la primera ejecución
        f = New FEntorno(True)  'Es el form que normalmente se abre con el Menú Administración->Preferencias. En este caso con un parametro true
        Me.visible = False          'Ocultamos el principal
        f.showmodal                  'Abrimos en modo modal y cuando se cierre...
        Me.close                       'Terminamos el programa principal
        Return
    Else
        Settings.Read(Me)
        Inc Application.Busy
        iComun.cargaentorno() 'función que almacena el archivo Settings en una colección pública para mayor velocidad (se supone)
   endif
 

Luego en el formulario fEntorno, que tiene, más o menos éste aspecto:
 captura_de_pantalla_de_2016_02_18_08_07_06

Private lnuevo As Boolean

Public Sub _new(iniciar As Boolean)
    
    lnuevo = iniciar
    
End

Public Sub form_Open()
    Dim cad As String
    Application.busy = 0
    If lnuevo Then    'Recibimos el parámetro booleano que nos indica que es la primera vez que se ejecuta
        creaEntorno() 'función que genera el .settings por defecto
        Message("Se ha establecido la configuración por defecto. Puede afinarla en el Menú Administración->Preferencias")
        cad = "\"" & Application.path &/ Application.name & "\""  
        Shell cad   'Lanzamos una nueva instancia del programa, que captará ya las variables del nuevo settings y...
        Quit          'abortamos ésta
    Endif
    cargaEntorno()
    ....
    ....
End
Public Sub cargaEntorno()

     Dim cad As Variant
  
     iComun.Entorno = New Collection  'colección pública con el entorno del settings y otras cosas
     For Each cad In Settings.keys["Entorno"]
         iComun.entorno[cad] = Settings["Entorno/" & cad]
     Next
     ........
     .......  
End
  

En un módulo tenemos la función que carga el entorno en los arranques "normales".
Public Sub creaEntorno()
    
    iComun.pathEntorno = User.home &/ "." & Application.Name
    Try Shell "rm -r " & iComun.pathEntorno Wait          'Eliminamos la carpeta vieja de configuración
    Try Kill User.Home &/ ".config/gambas3" &/ Application.Name & ".conf"  'Eliminamos el archivo settings viejo
    Mkdir User.home &/ "." & Application.Name        'Volvemos a crear la carpeta
    iComun.copia_dir("Datos", User.home &/ "." & Application.Name)  y cargamos los ficheros de configuración necesarios
    Settings.Clear("Entorno")     'profilaxis
    Settings.Save                                              
    Settings["Entorno/version"] = Application.Version              'rellenamos los distintos parámetros del settings
    Settings["Entorno/path_config"] = User.Home &/ "." & Application.Name  
    Settings["Entorno/path_temporal"] = "/tmp"
    Settings["Entorno/path_salida"] = User.Home &/ "Escritorio"
    Settings["Entorno/path_css"] = User.Home &/ "." & Application.Name &/ "plantillas/css"
    Settings["Entorno/css_default"] = "shinigami.css"
    Settings["Entorno/path_escaner"] = User.home
    Settings["Entorno/path_documentos"] = User.home
    Settings["Entorno/logo_screen"] = User.Home &/ "." & Application.Name &/ "imagenes/logos/logo.png"
    Settings["Entorno/logo_print"] = User.Home &/ "." & Application.Name &/ "imagenes/logos/inter_logo.png"
    Settings["Entorno/img_firma"] = User.Home &/ "." & Application.Name &/ "imagenes/logos/firma.png"
    Settings["Entorno/gr_alternate"] = -1
    Settings["Entorno/gr_bgcolor"] = Color.Lighter(Color.LightBackground)
    Settings["Entorno/gr_selectedcolor"] = Color.SelectedBackground
    Settings["Entorno/gr_forecolor"] = Color.Foreground
    Settings["Entorno/fuentecal"] = -1
    Settings["Entorno/borrardoc"] = 0
    Settings["Entorno/borrarpdf"] = 0
    Settings["Entorno/salvarlocal"] = -1
    Settings["Entorno/thunderbird"] = -1
    Settings["Entorno/clientemail"] = "Thunderbird"
    Settings["Entorno/mailasesoria"] = "unadireccion@decorreo.com"
    Settings["Entorno/veravisos"] = -1
    Settings["Entorno/tiempo"] = 10
    Settings["Entorno/ultimo"] = Null
    Settings.Save 'guardamos el archivo nuevo
    .....
    .....
    ....
End


El Formulario tiene también un botón de "Entorno por Defecto", con éste código:
Public Sub bporDefecto_Click()

    Dim n As Integer
    Dim cad As String
    
    n = Message.warning("Esta acción establecerá las Configuración de Entorno por defecto de SHINIGAMI", "Continuar", "Cancelar")
    If n = 1 Then
        creaEntorno()  'La misma secuencia que en el Form fMain que puse más arriba: Se crea el entorno, se abre otra instancia del programa y se aborta ésta.
        cad = "\"" & Application.path &/ Application.name & "\""
        Message("Configuraciones grabadas correctamente. SHINIGAMI se reiniciará para que las configuraciones tengan efecto.")
        Shell cad
        Quit
    Endif
    
End


No sé si me he explicado bien...  
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Trabajar Con Configuraciones soplo General 13 Miercoles, 29 Febrero 2012, 00:47 Ver último mensaje
jguardon
No hay nuevos mensajes No Encuentro Ell Problema Con Las Configur... CanihoJR General 6 Viernes, 09 Octobre 2009, 15:57 Ver último mensaje
nrcefe
No hay nuevos mensajes Donde Se Guardan Las Páginas Html [SOLUCI... alberto_moyano General 11 Viernes, 22 Abril 2016, 19:29 Ver último mensaje
vicr
No hay nuevos mensajes Como Se Guardan Las Variables De Un Progra... v3ctor General 3 Lunes, 27 May 2013, 21:43 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario