Para Antonio
Posted: Wed Jan 02, 2008 12:23 am
Estimado Antonio:
Necesito de un Maestro que me aclare las ideas, por favor:
Estoy escribiendo un módulo Touch y necesito cambiar el brush de los SBUTTON:
tengo el siguiente código:
REDEFINE SBUTTON obtnF[10] ID 4014 OF oDialog brush obrushF[10] ROUNDRECT NOBOXTR
REDEFINE SBUTTON obtnF[11] ID 4015 OF oDialog brush obrushF[11] ROUNDRECT NOBOXTR
REDEFINE SBUTTON obtnF[12] ID 4016 OF oDialog brush obrushF[12] ROUNDRECT NOBOXTR
ACTIVATE DIALOG oDialog center on init msgRun( "Cargando datos...","Espere",{ |oDialog| cargadatos()})
return
funct cargadatos()
local x:=1
select 3
do while .not. eof()
define brush oBrushF[x] file camino+'\graficos\familias\'+familia->path_image
obtnF[x]:refresh()
x++ ; skip
enddo
return
Este código NO genera errores, pero no muestra los brush.
Mil gracias de antemano.
LORENZO.
Necesito de un Maestro que me aclare las ideas, por favor:
Estoy escribiendo un módulo Touch y necesito cambiar el brush de los SBUTTON:
tengo el siguiente código:
REDEFINE SBUTTON obtnF[10] ID 4014 OF oDialog brush obrushF[10] ROUNDRECT NOBOXTR
REDEFINE SBUTTON obtnF[11] ID 4015 OF oDialog brush obrushF[11] ROUNDRECT NOBOXTR
REDEFINE SBUTTON obtnF[12] ID 4016 OF oDialog brush obrushF[12] ROUNDRECT NOBOXTR
ACTIVATE DIALOG oDialog center on init msgRun( "Cargando datos...","Espere",{ |oDialog| cargadatos()})
return
funct cargadatos()
local x:=1
select 3
do while .not. eof()
define brush oBrushF[x] file camino+'\graficos\familias\'+familia->path_image
obtnF[x]:refresh()
x++ ; skip
enddo
return
Este código NO genera errores, pero no muestra los brush.
Mil gracias de antemano.
LORENZO.