He visto en el foro que este tema se ha tratado alguna vez, pero no doy con una solución óptima.
Estoy usando la funcion SetDlgGradient para definir el color de fondo de los diálogos, con el resultado deseado, a excepción de los textos extáticos incluidos dentro de foldres.
Alguna solución para el color de fondo de los textos.
Son textos estáticos, y no se usa REDEFINE SAY, y no es una solución deseable el tener que definir los SAYS.
- Code: Select all Expand view
...
SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )
...
DEFINE DIALOG oDlg RESOURCE "CtaAux"
REDEFINE FOLDER oFld ;
ID 4001 ;
OF oDlg ;
PROMPTS "&1-Principal","&2-Identificación", "&3-Est.Balances";
DIALOGS "CtaAux1" ,"CtaAux2", "CtaAux3"
//--Principal
REDEFINE GET oData:EmpCod ID 600 OF oFld:aDialogs[1] WHEN .F.
REDEFINE GET oData:MayCod ID 601 OF oFld:aDialogs[1] WHEN lAdd
REDEFINE GET oData:CtaCod ID 602 OF oFld:aDialogs[1] WHEN lAdd
REDEFINE GET oData:CtaDes ID 603 OF oFld:aDialogs[1]
REDEFINE BUTTON ID 1 OF oDlg ACTION (oDlg:End(), lSave := .T. ) // OK
REDEFINE BUTTON ID 2 OF oDlg ACTION (oDlg:END(), lSave := .F. )
El texto en el fichero RC está definido de la siguiente forma
- Code: Select all Expand view
- CONTROL "Empresa", -1, "Static", 0x00000000, 8, 20, 28, 8, WS_EX_TRANSPARENT
FWH14.02 HB3.2.0 Bcc5.82
