home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 10: University / CDAT10.iso / TUTORIALES.DXR / 00003_Inicializar.ls < prev    next >
Encoding:
Text File  |  1999-10-20  |  977 b   |  38 lines
  1. global ListaCP, OpcionesCat, OpcionesSubcat, OpcionesProg, spIdioma, spFormato, spLinea, spSubCat, spSO, colorOpciones, colorSeleccion
  2.  
  3. on InicializarGlobales
  4.   clearGlobals()
  5.   ListaCP = [#tipo: [], #linea: [], #titulo: []]
  6.   OpcionesCat = []
  7.   member("Categorias").text = EMPTY
  8.   spIdioma = 9
  9.   spFormato = 10
  10.   spLinea = 19
  11.   spSubCat = 4
  12.   spSO = 20
  13.   colorOpciones = 244
  14.   colorSeleccion = 78
  15.   InicializarSubcategorias()
  16.   InicializarProgramas()
  17.   cursor(280)
  18. end
  19.  
  20. on InicializarProgramas
  21.   OpcionesProg = []
  22.   member("Programas").forecolor = colorOpciones
  23.   member("Programas").text = EMPTY
  24.   member("Descripcion").text = EMPTY
  25.   member("Ruta").text = EMPTY
  26.   member("Sistema").text = EMPTY
  27.   sprite(spIdioma).member = "punto"
  28.   sprite(spFormato).member = "punto"
  29.   sprite(spSO).locV = 800
  30. end
  31.  
  32. on InicializarSubcategorias
  33.   OpcionesSubcat = []
  34.   member("Subcategorias").forecolor = colorOpciones
  35.   member("Subcategorias").text = EMPTY
  36.   sprite(spLinea).locV = -100
  37. end
  38.