COLORES EN GROUP BOX

[karinha]

Buenas Amigos...

Por favor, una ayuda...

No consigo poner COLORES en un GROUPBOX.

Ya modifique el DIALOGO... Mas...
//
BROWSE_CADASTRO_BANCOS DIALOG 1, 20, 530, 275
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME
CAPTION "SCB - Gerenciamento do Cadastro de Bancos - Browse"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_PORTUGUESE, SUBLANG_PORTUGUESE_BRAZILIAN
{
EDITTEXT 20, 98, 33, 312, 12, WS_BORDER | WS_TABSTOP
CONTROL "", 101, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 3, 49, 523, 200
PUSHBUTTON "", 301, 120, 255, 70, 16
PUSHBUTTON "", 302, 193, 255, 70, 16
PUSHBUTTON "", 303, 266, 255, 70, 16
PUSHBUTTON "", 304, 340, 255, 70, 16
AUTORADIOBUTTON " &1 Por Nome", 201, 188, 13, 72, 12
AUTORADIOBUTTON " &2 Por Código", 202, 270, 13, 72, 12
LTEXT "Busca Rápida:", 402, 4, 33, 90, 12, NOT WS_GROUP
LTEXT "<- BackSpace Apaga", 403, 415, 33, 110, 12, NOT WS_GROUP
GROUPBOX "Escolha Índice da Pesquisa", 501, 177, 3, 176, 27, BS_GROUPBOX | WS_GROUP
LTEXT "<- Use ALT+1 ou ALT+2", 401, 360, 13, 110, 12, NOT WS_GROUP
}

//
REDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg ;
FONT oFnt TRANSPARENT
//

Ya modifique la classe GROUP.PRG, mas...

//

#define WM_UPDATEUISTATE 296 // 0x0128

//

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGroup

local nResult

if ::lDrag .and. nMsg == WM_NCHITTEST // To have a standard behavior on Clicks
return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )
endif

if nMsg == WM_UPDATEUISTATE // Groups and contained controls were erased when pressing ALT
nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
::oWnd:Refresh()
return nResult
endif

return Super:HandleEvent( nMsg, nWParam, nLParam )

//

METHOD Colors( hDC ) CLASS TGroup

DEFAULT ::nClrText := GetTextColor( hDC ),;
::nClrPane := GetBkColor( hDC ),;
::oBrush := TBrush():New( , ::nClrPane )

SetTextColor( hDC, ::nClrText )
SetBkColor( hDC, ::nClrPane )

if ::oBrush:hBitmap != nil
SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
endif

return ::oBrush:hBrush

//

Donde esta mi erro??

Muchas gracias.

Regards, saludos.

[Antonio Linares]

No uses la cláusula TRANSPARENT:

REDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg ;
FONT oFnt // TRANSPARENT

[karinha]

No uses la cláusula TRANSPARENT:

REDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg ;
FONT oFnt // TRANSPARENT

NO AMADO MAESTRO, SI NO USAR LA CLAUSULA TRANSPARENT, TODO EL DIALOGO, ASUME LA COLOR AMARILLO(CLR_AMARELO), E LOS SAYS Y GETS DESAPARECEN.

[Carlos Mora]

Karinha,

Si desaparecen es porque el Group está definido despues que el resto de los controles. Tienes que definir primero el group y luego los controles, y no vas a tener problemas de pintado.

Un saludo,

Carlos.

[karinha]

Karinha,

Si desaparecen es porque el Group está definido despues que el resto de los controles. Tienes que definir primero el group y luego los controles, y no vas a tener problemas de pintado.

Un saludo,

Carlos.

Gracias Carlos, mas no és esto.

El dialogo continua se pintando TODO, solo que ahora aparencen los GETS. Mui Estraño. Y el GROUP no cambia la COLOR.

Code: Select all  Expand view  RUN

DLG_CONTA_CORRENTE_MOTORISTAS DIALOG 3, 63, 520, 162
STYLE DS_ABSALIGN | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME
CAPTION "SGE - SISTEMA DE GERENCIAMENTO EMPRESARIAL - MOVIMENTO DA CONTA CORRENTE - MOTORISTAS"
FONT 8, "MS Sans Serif"


{
GROUPBOX "Sistema de Gerenciamento Empresarial - Movimento da Conta Corrente Motoristas", 501, 6, 18, 510, 117, BS_GROUPBOX
EDITTEXT 20, 200, 33, 80, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_TABSTOP
EDITTEXT 21, 200, 47, 80, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 22, 200, 61, 80, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_TABSTOP
EDITTEXT 23, 283, 62, 150, 12, ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER
CONTROL " ", 24, "EDIT", ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 75, 30, 12
CONTROL "0.00", 25, "EDIT", ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 89, 80, 12
CONTROL " ", 26, "EDIT", ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 103, 30, 12
EDITTEXT 27, 200, 117, 234, 12, ES_MULTILINE | WS_BORDER | WS_TABSTOP
PUSHBUTTON " ", 301, 178, 139, 80, 16
PUSHBUTTON " ", 302, 262, 139, 80, 16
EDITTEXT 28, 185, 3, 150, 12, ES_CENTER | ES_MULTILINE | NOT WS_TABSTOP | NOT WS_BORDER
CTEXT "Código do Movimento:", 401, 86, 33, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP
CTEXT "Data Movimento:", 402, 86, 47, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP
CTEXT "Código Transportadora:", 403, 86, 61, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP
CTEXT "Débito/Crédito <D/C>:", 404, 86, 75, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP
CTEXT "Valor:", 405, 86, 89, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP
CTEXT "Base IR <S/N>:", 406, 86, 103, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP
CTEXT "Histórico:", 407, 86, 117, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP
}


[Antonio Linares]

João,

Puedes mostrar unas imágenes de cómo se ve en ambos casos ? gracias

Usa www.imageshack.us

[karinha]

[/img]

[karinha]

[Alvaro Urdaneta]

Karinha,

prueba con:

REDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, oDlg:hDC OF oDlg FONT oFnt

[karinha]

Karinha,

prueba con:

REDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, oDlg:hDC OF oDlg FONT oFnt

[Antonio Linares]

Joao,

Este efecto en el título del groupbox está solucionado en versiones más recientes de FWH. Y no se puede cambiar solo el fondo de ese título. Si el groupbox es transparente, entonces también el título lo es.
Prueba a poner un SAY encima del texto del groupbox si lo que quieres es un color de fondo:

[/img]

[karinha]

Joao,

Este efecto en el título del groupbox está solucionado en versiones más recientes de FWH. Y no se puede cambiar solo el fondo de ese título. Si el groupbox es transparente, entonces también el título lo es.
Prueba a poner un SAY encima del texto del groupbox si lo que quieres es un color de fondo:

[/img]

Gracias Maestro.

No hay problemas. Esta bonito asi mismo.

I Love FiveWin.

Regards, saludos.