PC Toledo

... alterações do outro endereço

Pena que não dá pra fazer o mesmo entre harbour 3.2 e 3.4
Só dá pra fazer no meu fork, porque alterei apenas GTWVG e TBROWSE, e os fontes continuam compatíveis.
No 3.4 os fontes mudaram tanto, que só fazendo ajuste manual de cada fonte, automático não consegue atualizar ...

... e outras.
Atualizo alguns quando possível.

https://github.com/JoseQuintas/harbour32_fork

harbour 3.2
Tem recurso de escolher cor das barras do tbrowse
Tem recurso na gtwvg de redimensionar imagens nos buttons na GTWVG
Tem alguns controles a mais na GTWVG
Alterado gtwvg.hbc pra não incluir ...

... forum/viewtopic.php?f=4&t=9575

#pragma -w0
#pragma -es0

#xtrans :data => :cargo\[1]
#xtrans :recno => :cargo\[2]

#include "GAS.ch"
#include "TBrowse.ch"
#include "inkey.ch"

Function RTP_RetGet(cCodigo, cDia, cMes, cUo, cTipo, cCredor, cNome, cFr, cEstorno)
Local mRetorno := .f., aCab ...

... forum/viewtopic.php?f=4&t=9575

#pragma -w0
#pragma -es0

#xtrans :data => :cargo\[1]
#xtrans :recno => :cargo\[2]

#include "GAS.ch"
#include "TBrowse.ch"
#include "inkey.ch"

Function RTP_RetGet(cCodigo, cDia, cMes, cUo, cTipo, cCredor, cNome, cFr, cEstorno)
Local mRetorno := .f., aCab ...

... é só o que tenho aqui, que vém dos fontes do harbour.

Só não é o original.
Diferente do original:
- Aqui posso escolher a cor para as barras do tbrowse - ainda uso na GTWVG
- GTWVG.HBC alterado pra não dar conflito com outras LIBs
- Adicionei mais controles pra GTWVG
- Copiei a parte de PNG do ...

... xindice,0)
if wsize>10
wsize:=10
endif
// botões
publi wLinBt := waltTit+waltTit+wespacoGet+wespacolin
publ waltBt := 3*waltget
publ waltBrowse := WalturaPrincipal -(13*waltget) // altura do browse
publ WlinBtBase := WalturaPrincipal - (4*waltget) // linha botao da base
xindice := round ...

... dbGoBottom()
dbGoTop()
DO WHILE !Eof()
...
dbSkip()
ENDDO
dbCloseArea()
dbCloseAll()


Basicamente vai usar o que já usa atualmente, tbrowse, get, @ say, impressão, validação, fórmulas, etc...

4) Como atualizar o banco de dados:
rddInfo( RDDI_EXECUTE, "UPDATE %s SET %s WHERE %s ...

... O comando acima funciona no xHarbour também.

o que substitui o XBROWSER() no Harbour?

Esta função pertence a alguma biblioteca gráfica. No ambiente Harbour, que é console, corresponde à Classe TBrowse.

Obs: para assuntos diferentes do tópico corrente, abra um novo. Evite desvio de assunto.

tbrowse.png

Só lembrando:
Meu tbrowse tem uma cor a mais: a cor das barras
Tá como pull request pendente no harbour 3.2 há vários anos, então, só eu tenho.

ficou assim o default:

FUNCTION SetBrowse( oTBrowse, oBrowse )

LOCAL oElement, oThisColumn

oBrowse:HeadSep := Chr(196)
oBrowse:FootSep ...

Respondi pra mim mesmo, de novo kkkkk

Mas ainda acertando aqui.

Voltei nisso hoje, não estou conseguindo acertar a cor do header.
O que define as cores é esta função.

FUNCTION SetColorTbrowse()

LOCAL cSetColorFocus

cSetColorFocus := SetColorFocus()

// row, selected, header, footer, others
RETURN "7/1," + cSetColorFocus + ",0/7,0/7,0/7,7/8,12/1,14/1,3/1 ...

... Se mexeu na posição de (1), vai ter que atualizar (3) o browse geral oBrowse:RefreshAll()

Ainda estou tentando entender bem a classe TBrowse. A maior parte deste código é cópia do código que vc postou tempos atrás, e muita coisa eu não sei explicar bem. Mas funciona.
Entendi o que vc ...

... endif
return 1
endif
return 0


function novaconsado(sql,or,modo,coluna,prov,nTop1,nTop2,nBottom1,nBottom2,cRodape,func_usuario)
#include "tbrowse.ch"
LOCAL retorno, oColumn, nProvAqui, nLen, nLen2, nFieldlen, I // I está em fields(i) abaixo, não sei do que se trata
local nCursor ...

... em mais um linguição..

Penso que você deveria explicar melhor o que precisa, postando um exemplo do código usado.

Com ADO ou sem ADO, TBrowse navega pelos registros de forma sequencial. Então não resolve fazer SEEK ou FIND sem tratamento...

Mesmo sem ver o teu código, penso que a ...

... Referenced, missing, but unknown function(s): FBTEST(),
ECADUNID(), PESQ_UN(), EMSEMMOV(), EDITA_DESC_SEL(), APLICA_DESCTO(),
COPIA_PRECO(), TBROWSENEW(), TBROWSE(), UEXP_MAGENTO(),
CARGA_UCONFOTI(), HABILITA_CONFIG_PAINEL(), RET_CONTEUDO(),
FILTRO_ROTINAS(), UCONFOTI_FRETE(), EDIT_CONTEUDO ...