Page 1 of 1
Título listbox
Posted: Thu Nov 09, 2023 8:20 pm
by jpcavagnaro
Hola gente, tengo definido este listbox
REDEFINE LISTBOX oLbx FIELDS ;
str( oRSRub:Fields( "rubro" ):Value, 3 ), ;
oemtoansi( oRSRub:Fields( "descri" ):Value ) ;
HEADERS oemtoansi( "N£mero" ), oemtoansi( "Descripci¢n" ) ; // ON dblCLICK (editrubro(olbx,.F.), olbx:Refresh());
ID 181 OF oDlg ;
font ofont1
oLbx:nClrBackHead:=nRgb(0,130,250)
oLbx:nClrForeHead:=nRgb(0,0,0)
oLbx:nClrBackFocus:=nRgb(0,100,255)
oLbx:nClrForeFocus:=nRgb(255,255,255)
porque no me cambia el color de los títulos
Re: Título listbox
Posted: Thu Nov 09, 2023 9:32 pm
by cmsoft
Jorge, puede ser porque esta en un recurso.
Probá poner esas propiedades en el on init del dialogo que lo contiene
Re: Título listbox
Posted: Thu Nov 09, 2023 10:45 pm
by jpcavagnaro
Hola Cesar, gracias por responder, no funciono....
Re: Título listbox
Posted: Fri Nov 10, 2023 12:46 pm
by karinha
Code: Select all | Expand
#Define CLR_LGRAY nRGB( 230, 230, 230 )
#Define CLR_LGREEN nRGB( 190, 215, 190 )
REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto
REDEFINE LISTBOX oLbx FIELDS ;
( cAlias )->PROPOCOD , ;
( cAlias )->CONTRCOD , ;
XPADL( ALLTRIM( STR( ( cAlias )->CLIENCOD,12,0 ) ), 12 ) , ;
( cAlias )->CLIENTE , ;
( cAlias )->APROVADO , ;
SPACE(01) ;
HEADERS ( OemToAnsi( "PROPOSTA:" ) ) , ;
( OemToAnsi( "CONTRATO:" ) ) , ;
( OemToAnsi( "CLIENTE N§:" ) ) , ;
( OemToAnsi( "CLIENTE NOME:" ) ) , ;
( OemToAnsi( "APROVADO:" ) ) , ;
( OemToAnsi( " - " ) ) ;
FIELDSIZES 90, 90, 120, 400, 90, 01 ;
COLOR CLR_BROWN, CLR_LGREEN FONT oFnt UPDATE ID 101 OF oDlg
//-----------------------------------------------------------------------//
oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabecalho
oLbx:nClrText := {|| nRGB( 000, 000, 000 ) } // Cor do Fundo do Cabecalho
oLbx:nClrBackFocus := CLR_WHITE // Cor do Cursor Em Cima do Ötem
oLbx:nClrForeFocus := CLR_HRED // Cor da letra da barra ativa
oLbx:nClrForeHead := CLR_BLACK // Cor nos Headers - Cabe‡alhos
// Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando
oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ;
CLR_WHITE, CLR_LGRAY ) }
oLbx:nColAct := 4 // Onde o Cursor Vai Iniciar na coluna
oLbx:nLineStyle := 3 // Estilo das linhas nos dados da Browse
oLbx:lCellStyle := .T. // Somente pinta a celula em que o cursor esta no momento
// Justifica o Cabecalho: .F. = Esquerda .T. = Centro
oLbx:aJustify := { .T., .T., .T., .F., .F., .F., .F., .F., .F., .F., .F., ;
.F., .F. }
oLbx:lMChange := .F. // Desabilita Mousemove - Movimentos do Mouse Congelam.
oLbx:SetFocus() // Refocus on The Browse - Ativa o Foco na ListBox(Browse)
oLbx:Refresh() // Estabiliza o Browse/Listbox - Refresca os Dados.
Regards, saludos.
Re: Título listbox
Posted: Fri Nov 10, 2023 2:38 pm
by jpcavagnaro
Hola gracias por responder, lo solucione quitando la carpeta manifiest del archivo .res
No puede entender cual es el problema, pero ahora colorea bien.
Gracias
Re: Título listbox
Posted: Fri Nov 10, 2023 3:09 pm
by karinha
Hago asi:
Code: Select all | Expand
// XPLOOK.RC
// Add this to your resources RC file
#ifdef __FLAT__
1 24 "C:\AMBIENTY\Windows10.Manifest"
#endif
USER 10 "User.png"
CLIENTES 10 "Clientes.png"
TIPOCLIEN 10 "Tipoclien.png"
ETIQUETAS 10 "Etiquetas.png"
RELATORIO 10 "Relatorio.png"
REGIONAL 10 "Regional.png"
COMISSOES 10 "Comissoes.png"
TRANSPORTES 10 "Transportes.png"
CADASTRO 10 "Cadastro.png"
MOVIMENTO 10 "Movimento.png"
HISTORICO 10 "Historico.png"
COTASFUND 10 "Cotasfund.png"
LIVROCAIXA 10 "Livrocaixa.png"
Sauldos.