Ayuda Amigos

[mantonio_08]

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 Linares]

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.

[mantonio_08]

Antonio:

Muchas gracias por tu respuesta, lo probare.

Saludos,
Antonio

[mantonio_08]

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 Linares]

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

[mantonio_08]

Antonio:

Muchas gracias, lo probare.

Saludos,
Antonio