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 wrote:No uses la cláusula TRANSPARENT:

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

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.

Carlos Mora wrote: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.

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
}

João,

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

Usa www.imageshack.us

Karinha,

prueba con:

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

Alvaro Urdaneta wrote:Karinha,

prueba con:

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

Antonio Linares wrote: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]