tbrowse zebrado

por **JoséQuintas** » 03 Nov 2020 15:52

Isso não é possível em Harbour?

No FOR/NEXT interno do tbrowse usa variável própria, então não dá pra usar no bloco de cores.
Também usa DispBegin()/DispEnd(), o que talvez atrapalhe Row() atual.
E também ao apertar teclas rapidamente, otimiza, pra não perder tempo atualizando tela, o que deixa colunas sem repintar.

É isso mesmo, ou isso é só no Harbour 3.4?

por **frazato** » 03 Nov 2020 16:32

Utilizo desta maneira com o xharbour!
Frazato

por **janio** » 03 Nov 2020 16:32

oBrw := TBrowseDB( nLin1, nCol1 + 1, nLin2 - 1, nCol2 - 1 )
oBrw:headsep := chr (194) + chr (196)
oBrw:ColSep := chr( 179 )
oBrw:FootSep := chr (193) + chr (196)

for n := 1 to Len( aCampos )
oCol := TBColumnNew( aCabecalho[n], &( "{||" + aCAMPOS[n] + "}" ) )
oCol:Picture := aPict[n]
oBrw:AddColumn(oCol)
oBrw:GetColumn(n):ColorBlock := { || { Iif(OrdKeyNo()%2==0,4,3),2 } } // Aqui fica zebrado
next

por **JoséQuintas** » 03 Nov 2020 17:29

Valeu.
Só alterei um pouquinho, porque o array interno confunde.

{ || iif( OrdKeyNo() % 2 == 0, { 4, 2 }, { 3, 2 } ) }

e em ADO:

{ || iif( cnSQL:AbsolutePosition() % 2 == 0, { 4, 2 }, { 3, 2 } ) }

por **JoséQuintas** » 03 Nov 2020 17:53

O ruim do console é o limite da palette de cores.
Só nessa brincadeira, foram 4 das 16 disponíveis.
2 pra zebrado, e 2 pra posição atual
Corrigindo: 6 cores, branco e preto pra letra e as 4 pro fundo.
Ou 7, se considerar a cor da linha divisória, ou 8 se considerar o título.
De 16, sobram 8.....

por **JoséQuintas** » 03 Nov 2020 18:22

Melhorou o "buraco", trocando pra traço duplo.
E até dá pra ver o traço agora kkkk

por **JoséQuintas** » 03 Nov 2020 18:32

A propósito....
Essa opção de escolher cor das barras separadoras... só tem aqui no meu.
Tá pendente no Harbour 3.2 desde março/2019.
Tá faltando alguém clicar lá no OK e aceitar o meu pull request.

https://github.com/harbour/core/pull/185

por **JoséQuintas** » 03 Nov 2020 21:30

É....
Depois vou mudar toda minha tabela de cores...
Na falta de ícone.... vai Chr() mesmo kkkkk

por **JoséQuintas** » 03 Nov 2020 23:11

Fonte branco com fundo escuro... ou.... fonte preto com fundo claro....
Difícil dizer qual é mais limpo, porque infelizmente na GTWVG os fontes ficam muito juntos.

por **deividdjs** » 21 Set 2023 20:55

boa noite amigos ..

converti meu sistema de GTWVG para GTWVW + VISUALLIB ... e as linhas separadora no TBROWSER funcionava perfeitamente agora não aparece mais .. será q é um problema com a LIB WVW ?? alguem já teve esse problema ?

Segue o codigo ...

*----------------------------------------------------------------*
 function DB_CLIENTE( aCab, aCamp, aPict, cAlias, nOrdem, Regra )
*----------------------------------------------------------------*
local oTAB, oCol, nKey, nRow, nCol, cTela, cArea
local OLDREC, OBROWSE, OCOLUNA, PESQUISA, v_atraso

select( cAlias )
set order to nOrdem
go top

setcursor(0)
cArea := savescreen( 00, 00, 24, 79 )

X:=aCamp[2]
oTab           := TBrowseDB( 05, 02, 21, 77 ) // GERA UM TBROWSE
oTab:colsep    := CHR(179)
oTab:headsep   := CHR(196)+CHR(194)+CHR(196)
oTab:footsep   := CHR(196)+CHR(193)+CHR(196) 
oTab:ColorSpec := "N/W*, W+/B+, R+/W*, R+/N+, GR+/N, B+*/W, R+*/W, GR*/W*"

for i = 1 TO len(aCamp)
   if valtype(aCamp[I]) == "B"
       oCol:=TBcolumnNew( aCab[I], ( aCamp[I] ) )
       oCol:Picture:=aPict[I]
   else
      oCol:=TBcolumnNew( aCab[I], FIELDWBLOCK( aCamp[I], SELECT()))
      oCol:Picture:=aPict[I]
   endif
   If Regra # Nil
      oCol:ColorBlock:={|X| If(&(Regra),{3,4},{1,2})}
   EndIf
   oTab:addColumn( oCol )

/* // muda de cor somente a coluna conforme a situa‡Æo
   if i = 4
       oCol:COLORBLOCK :={|X| IIF ( CC_FJ = "F" , {6,2} ,;
                              IIF ( CC_FJ = "J" , {8,2},{1,2} ))} 
   endif                               
*/
next

nCol_Reg := (oTab:nRight-oTab:nLeft+2) / len(aCamp) // Para iluminar o TBrowser

oTab:Freeze := 2 // Definindo Coluna fixa
oTab:ColPos := 1

Abraço!

Quem está online