Para Antonio

Post Reply
Loren
Posts: 458
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Para Antonio

Post 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.
Post Reply