Clipper On Line • Ver Tópico - como mudar a cor determinada de um linha nesse browse

como mudar a cor determinada de um linha nesse browse

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

como mudar a cor determinada de um linha nesse browse

Mensagempor juniorcamilo » 18 Mar 2020 14:08

Amigos nesse exemplo de codigo como mostrar a linha em outra cor se GRU->QTEGRU for menor ou igual 0?
//-------- Determinacao das Colunas do tBrowse-------
   Private aBrowse := {}, oBrowse
   oBrowse := tBrowseDb(07, 01, 20, 75)  && Cria Obj tBrowse
   oColuna := tbColumnNew(HB_ANSITOOEM('Código'),{|| GRU->CODGRU })
   oBrowse:addColumn(oColuna)
   oColuna := tbColumnNew(HB_ANSITOOEM('Descrição'),{|| GRU->DESGRU })
   oBrowse:addColumn(oColuna)
   oColuna := tbColumnNew('Quantidade',{|| trans(GRU->QTEGRU,"9999999") })
   oBrowse:addColumn(oColuna)
   oBrowse:HeadSep := chr(196)
   oBrowse:ColSep  := chr(179)
   oBrowse:Freeze  := 1
   oBrowse:RefreshAll()
//----------------------------------------------------
Windows(02, 05, 04, 70,'Procura')
Tela(06, 00, 21, 76,"Pesquisa de Grupos",x_cortteld,"w+/w")

DO WHILE .t.

   Sele GRU
   SetCursor(0)
   oBrowse:ForceStable() && Estabilizacao do Browse
   nTecla := Inkey(0)
   IF nTecla == K_ESC
        ................. linhas de codigo
   ELSE
      Brow(oBrowse,ntecla) && funcoes do browse de movimentacao etc
   ENDIF
   oBrowse:refreshAll()
enddo
Avatar de usuário

juniorcamilo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 10 Nov 2006 08:12
Cidade/Estado: Pará
Curtiu: 29 vezes
Mens.Curtidas: 2 vezes

como mudar a cor determinada de um linha nesse browse

Mensagempor juniorcamilo » 20 Mar 2020 15:36

achei isso !
Private aBrowse := {}, oBrowse
   oBrowse := tBrowseDb(07, 01, 20, 75)  && Cria Obj tBrowse
   oColuna := tbColumnNew(HB_ANSITOOEM('Código'),{|| GRU->CODGRU })
   oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) })  &&<----------------------
   oBrowse:addColumn(oColuna)                 &&"N/W,R+/B,N/N,N/N,R+/W"
   oColuna := tbColumnNew(HB_ANSITOOEM('Descrição'),{|| GRU->DESGRU })
   oBrowse:addColumn(oColuna)
   oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) })  &&<----------------------
   oColuna := tbColumnNew('Quantidade',{|| trans(GRU->QTEGRU,"9999999") })
   oBrowse:addColumn(oColuna)
   oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) }) &&<----------------------
   oBrowse:HeadSep := chr(196)
   oBrowse:ColSep  := chr(179)
   oBrowse:Freeze  := 1
   oBrowse:colorSpec := "00/07,15/03,14/07,15/06,01/07,15/01,02/07,15/02,05/07,15/05,00/07,15/00,08/07,08/07" &&<----------------------
   oBrowse:RefreshAll()

mas estou perdido nas cores ! oq siginifica esse padrao {05,14} , {1,2}
e esses "00/07,15/03,14/07,15/06,01/07,15/01,02/07,15/02,05/07,15/05,00/07,15/00,08/07,08/07" ?
Avatar de usuário

juniorcamilo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 10 Nov 2006 08:12
Cidade/Estado: Pará
Curtiu: 29 vezes
Mens.Curtidas: 2 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: malcarli e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro