Page 1 of 1

Para Antonio

Posted: Wed Jan 02, 2008 12:23 am
by Loren
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.