Página 1 de 1
tbrowse zebrado
Enviado: 03 Nov 2020 15:52
por JoséQuintas
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?
tbrowse zebrado
Enviado: 03 Nov 2020 16:32
por frazato
Utilizo desta maneira com o xharbour!
Frazato
tbrowse zebrado
Enviado: 03 Nov 2020 16:32
por janio
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
tbrowse zebrado
Enviado: 03 Nov 2020 17:29
por JoséQuintas
Valeu.
Só alterei um pouquinho, porque o array interno confunde.
e em ADO:
Código: Selecionar todos
{ || iif( cnSQL:AbsolutePosition() % 2 == 0, { 4, 2 }, { 3, 2 } ) }
tbrowse zebrado
Enviado: 03 Nov 2020 17:53
por JoséQuintas
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.....
tbrowse zebrado
Enviado: 03 Nov 2020 18:22
por JoséQuintas
Melhorou o "buraco", trocando pra traço duplo.
E até dá pra ver o traço agora kkkk
tbrowse zebrado
Enviado: 03 Nov 2020 18:32
por JoséQuintas
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
tbrowse zebrado
Enviado: 03 Nov 2020 21:30
por JoséQuintas
É....
Depois vou mudar toda minha tabela de cores...
Na falta de ícone.... vai Chr() mesmo kkkkk
tbrowse zebrado
Enviado: 03 Nov 2020 23:11
por JoséQuintas
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.
tbrowse zebrado
Enviado: 21 Set 2023 20:55
por deividdjs
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 ...
Código: Selecionar todos
*----------------------------------------------------------------*
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!
tbrowse zebrado
Enviado: 06 Jun 2024 14:47
por deividdjs
tarde amigos!!
uma duvida .. como eu faria uma função pratica e enxuta em um tbrowser de cadastro de clientes ... que fique em vermelho o cliente caso ele encontre em uma outra base de dados de contas a receber contas vencidas ... fiz uma função porem fica muito lento o browse..
Saludos,
DJS