//Una clase SLIDER

class slider
	dim posx as integer
	dim posy as integer
	dim dx, dy,dxc,dyc
	dim elnombre 
	dim valor as integer
	dim basex as table
	dim otrot as ssImagenBase
	dim elpadre 
	dim imafondo as ssimagen
	dim imaboton as ssimagen

    sub new(padre,nombre,x,y)
        elnombre=nombre
        elpadre=padre

        valor=0
        posx=x
        posy=y
        //imagen de boton
vola = {
"11 15 37 1",
" 	c #EFEFEF",
".	c #B9BABB",
"+	c #8C8D90",
"@	c #F4F4F6",
"#	c #F1F2F4",
"$	c #E8E9EF",
"%	c #DADCE1",
"&	c #EFF0F2",
"*	c #B7B9BC",
"=	c #E6E7ED",
"-	c #D8DADF",
";	c #EDEEF1",
">	c #F5F6F7",
",	c #E3E4EA",
"'	c #D5D7DC",
")	c #EBECEF",
"!	c #E1E2E8",
"~	c #D3D5DA",
"{	c #E9EAED",
"]	c #DEDFE5",
"^	c #D1D2D7",
"/	c #E7E8EC",
"(	c #DCDDE3",
"_	c #CED0D5",
":	c #E5E6EA",
"<	c #DADBE1",
"[	c #CCCDD2",
"}	c #E3E4E8",
"|	c #D7D8DE",
"1	c #CACBD0",
"2	c #BCBDBE",
"3	c #D5D6DC",
"4	c #D2D3D9",
"5	c #D0D1D7",
"6	c #CECFD5",
"7	c #D0D0D1",
"8	c #9A9B9D",
" .+++++++. ",
".+@@@@@@@+.",
"+#$$$$$$$%+",
"+&**===**-+",
"+;*>,,,*>'+",
"+)!!!!!!!~+",
"+{]]]]]]]^+",
"+/(((((((_+",
"+:<<<<<<<[+",
"+}|||||||1+",
"2+3333333+2",
" 2+44444+2 ",
"  2+555+2  ",
"   2+6+2   ",
"    787    "}

basex={
"100 18 2 1",
" 	c #EFEFEF",
".	c #ADADAD",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"....................................................................................................",
"                                                                                                    ",
"                                                                                                    ",
"....................................................................................................",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    ",
"                                                                                                    "}
        //crear el objeto imagen
	imafondo= ssimagen("fondo","",sspunto(posx, posy),ssdim(100,18))
        //crear la imagen a partir del recurso xpm
	ximagen = ssImagenBase(ssNullImagenBase())
	ximagen.xpmaimagen(basex)
        //asignarle la imagen al objeto imagen
        imafondo.estimagenib(ximagen)
	
      
	//obtener coordenadas
        posfondo = imafondo.obtdimensiones()
	dx,dy= posfondo.obt()


	yimagen =ssImagenBase(ssNullImagenBase())
	yimagen.xpmaimagen(vola)

	imaboton= ssimagen("boton","",sspunto(posx-(dx)/2, posy),ssdim(11,15))
  	imaboton.estimagenib(yimagen)
	posboton = imaboton.obtdimensiones()
        dxc,dyc=posboton.obt()

      
	imaboton.estpuntero("boton",SS_PUNTERO_MANO)
        
        ~ximagen
        ~yimagen
        
    end sub
    

    
    sub mousedragging_boton(x,y)
        if(x>posx-(dx)/2) and (x<posx+(dx)/2) then
        imaboton.estposicion(sspunto(x,posy))
    
        long=x-(posx-dx/2)
        valor=long/dx*100
	//generar el evento de este objeto
	ssllamada(elpadre,"cambio_" & elnombre,"envio1","envio2","envio3")

    end if
    end sub

    function obtenervalor()  
        return valor
    end function

    sub estvalor(nvalor as integer)
        long=dx*nvalor/100
        x=(posx-dx/2)+long
        valor=nvalor
        imaboton.estposicion(sspunto(x,posy))
    end sub
    
    sub estima(aa)
        imaboton.estimagen(aa)
    end sub
    
    sub finalize()
       ~imaboton
       ~imafondo
    end sub
    

end class 



dim zzzt=slider(0,"sl1",300,110)
dim eti=new ssetiqueta("etiqueta","Un ejemplo de un objeto creado por el usuario",sspunto(300,150))


sub cambio_sl1(uu,ss,tt)
eti.esttexto(zzzt.obtenervalor())
end sub