Título listbox

Título listbox

Postby jpcavagnaro » Thu Nov 09, 2023 8:20 pm

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
Jorge
Saludos.
jpcavagnaro
 
Posts: 155
Joined: Tue Oct 11, 2016 1:02 pm
Location: Luján, bs. as.

Re: Título listbox

Postby cmsoft » Thu Nov 09, 2023 9:32 pm

Jorge, puede ser porque esta en un recurso.
Probá poner esas propiedades en el on init del dialogo que lo contiene
User avatar
cmsoft
 
Posts: 1285
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Título listbox

Postby jpcavagnaro » Thu Nov 09, 2023 10:45 pm

Hola Cesar, gracias por responder, no funciono....
Jorge
Saludos.
jpcavagnaro
 
Posts: 155
Joined: Tue Oct 11, 2016 1:02 pm
Location: Luján, bs. as.

Re: Título listbox

Postby karinha » Fri Nov 10, 2023 12:46 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Título listbox

Postby jpcavagnaro » Fri Nov 10, 2023 2:38 pm

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
Jorge
Saludos.
jpcavagnaro
 
Posts: 155
Joined: Tue Oct 11, 2016 1:02 pm
Location: Luján, bs. as.

Re: Título listbox

Postby karinha » Fri Nov 10, 2023 3:09 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 42 guests