Quiero cambiar los colores de los borones de esta ventana y lo intento hacer de la suguiente manera:
Code: Select all
DEFINE WINDOW oDlgw MDICHILD OF oVentPrinc PIXEL FROM 0, 0 TO 140,800 TITLE "Gestión de Actividades" COLOR escri10, fondo10 STYLE nOr(WS_CAPTION)
@ 10, 8 SAY "Número" OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18
@ 10,324 SAY "Epígrafe" OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18
@ 10,655 SAY "C.N.A.E." OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18
@ 30, 8 SAY "Actividad" OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18
@ 10, 72 say odlg01 VAR str(numero,6,0) OF oDlgw PIXEL COLOR escri30, fondo30 SIZE 48,18 RIGHT BORDER
@ 10,384 say odlg02 VAR " " + epigrafe OF oDlgw PIXEL COLOR escri30, fondo30 SIZE 48,18 BORDER
@ 10,724 say odlg03 VAR " " + cnae OF oDlgw PIXEL COLOR escri30, fondo30 SIZE 48,18 BORDER
@ 30, 72 say odlg04 VAR " " + actividad OF oDlgw PIXEL COLOR escri30, fondo30 SIZE 700,18 BORDER
@ 60, 5 say "" OF oDlgw PIXEL COLOR fondo20, colme01 SIZE 780,28
@ 86, 5 say "" OF oDlgw PIXEL COLOR fondo20, colme02 SIZE 780, 2
@ 60, 5 say "" OF oDlgw PIXEL COLOR fondo20, colme03 SIZE 780, 2
@280, 5 say "" OF oDlgw PIXEL COLOR fondo20, colme02 SIZE 30, 2
@ 60, 5 say "" OF oDlgw PIXEL COLOR fondo20, colme03 SIZE 30, 2
@ 65, 10 BUTTON mBot01 PROMPT "&Alta" OF oDlgw PIXEL ACTION altaacti() SIZE 80, 18
@ 65, 95 BUTTON mBot02 PROMPT "&Baja" OF oDlgw PIXEL ACTION bajaacti() SIZE 80, 18
@ 65,180 BUTTON mBot03 PROMPT "&Modificar" OF oDlgw PIXEL ACTION modiacti() SIZE 80, 18
@ 65,265 BUTTON mBot04 PROMPT "&+ Siguiente" OF oDlgw PIXEL ACTION siguacti() SIZE 80, 18
@ 65,350 BUTTON mBot05 PROMPT "&- Anterior" OF oDlgw PIXEL ACTION anteacti() SIZE 80, 18
@ 65,435 BUTTON mBot06 PROMPT "&Salir" OF oDlgw PIXEL ACTION saliacti() SIZE 80, 18
odlg01:SetFocus()
mBot01:SetColor(escri10,fondo10)
mBot02:SetColor(escri20,fondo20)
mBot03:SetColor(escri30,fondo30)
mBot04:SetColor(fondo10,escri10)
mBot05:SetColor(fondo20,escri20)
mBot06:SetColor(fondo30,escri30)
ACTIVATE WINDOW oDlgw NORMAL ON INIT oDlgw:Center()
Gracias
Carlos