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
Ayuda Amigos
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
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.
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.
-
- Posts: 330
- Joined: Fri May 25, 2007 9:06 pm
-
- Posts: 330
- Joined: Fri May 25, 2007 9:06 pm
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
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
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
-
- Posts: 330
- Joined: Fri May 25, 2007 9:06 pm