|
' 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
|
|
|
|
|
|
|
