Servidores centros secundaria

' Gambas class file

' This program IS free software; you can redistribute it AND/OR

' modify it under the terms of the GNU General PUBLIC License AS

' published by the Free Software Foundation; either version 2 of the

' License, OR (at your option) any later version.

'

' This program IS distributed IN the hope that it will be useful, but

' IS provided AS IS, WITHOUT ANY WARRANTY; without even the implied

' warranty of MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND

' NON-INFRINGEMENT. See the GNU General PUBLIC License FOR more details.

'

' You should READ the GNU General PUBLIC License

' IF you have non, WRITE TO the Free Software

' Foundation, INC., 59 Temple Place - Suite 330, Boston,

' # MA 02111-1307, USA.

' ----------------------------------------------------------------------------

' ################################################

' # file name : frmconfiguracion.class

' # created in project : scanies

' # created by : Francisco Paniagua Sánchez

' # mail : adminies.franciscodeorellana@edu.juntaextremadura.net

' # created at : 12/11/2006

' # last test with : gambas-2.7-1

' ################################################

PRIVATE hset AS Settings

PUBLIC SUB Form_Open()

ME.Center

hset = NEW settings(user.Home & "/.scanies4")

iconos()

comprobar_configuracion()

END

PUBLIC SUB btnsalir_Click()

ME.Close

END

PUBLIC SUB iconos()

btnguardar.Picture = stock["16/apply"]

btnsalir.Picture = stock["16/quit"]

END

PUBLIC FUNCTION comprobar_configuracion() AS Boolean

txtrango.text = hset["Rango de Red"]

IF (hset["ldap"] = "") THEN

chkbxldap.value = TRUE

ELSE

chkbxldap.value = hset["ldap"]

ENDIF

END

PUBLIC SUB btnguardar_Click()

hset["Rango de Red"] = txtrango.Text

hset["ldap"] = chkbxldap.Value

hset.Save

fprincipal.rango = txtrango.Text

fprincipal.datosldap = chkbxldap.Value

ME.Close

END