Hola Amigos:
Tengo un problema, por necesidad de un cliente, necesito poner los Say o Get de los Redefine, con colores:
. REDEFINE Say oRut_emp1 Prompt Rut_emp1 ID 20 OF oDlg Font oFont1
. Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture "@!" .
Saludos,
Antonio
Antonio,
Añádeles la claúsula COLOR ...
REDEFINE Say oRut_emp1 Prompt Rut_emp1 ID 20 OF oDlg Font oFont1 COLOR "W/B"
. Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture "@!" COLOR "R/BG"
Puedes usar colores RGB asÃ:
... COLOR nRGB( ..., ..., ... ), nRGB( ..., ..., ... )
en donde esos 3 parámetros son los valores numéricos de rojo, verde y azul.
Antonio:
Muchas gracias por tu respuesta, lo probare.
Saludos,
Antonio
Antonio:
Sigo con el problema, extraño, pero asi es:
REDEFINE Say oNom_emp1 Prompt DesDe ID 21 OF oDlg Font oFont1 Color "R/BG"
Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture "@!" Color "R/BG"
Esto lo uso con un recurso desde RC, uso FWH 704, Xharbour 00.99.71, Workshop y Verce 5.3
Espero dar con el error.
Desde ya muchas gracias,
Saludos,
Antonio
Antonio,
Por favor revisa y prueba samples\combos.prg, verás que en él se hace:
REDEFINE SAY oSay PROMPT cItem4 ID ID_SELECTION OF oDlg COLOR "R+/W"
y funciona correctamente
Antonio:
Muchas gracias, lo probare.
Saludos,
Antonio
