Título listbox

[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

[cmsoft]

Jorge, puede ser porque esta en un recurso.
Probá poner esas propiedades en el on init del dialogo que lo contiene

[jpcavagnaro]

Hola Cesar, gracias por responder, no funciono....

[karinha]

Code: Select all  Expand view

#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.

[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

[karinha]

Hago asi:

Code: Select all  Expand view

// 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.