PC Toledo

... 6
DisplayCount mostra apenas 6 mesmo expandindo(clicando na seta, pra baixo e não para o lado.) No caso um array poderá ter centenas de itens, porém, o numero máximo são 6 itens mostrado para baixo.
ListBox eu não uso prefiro o Browse(tbrowse) por ser mais completo.
O Browse uso para quase tudo.

Olá!

Itamar M. Lins Jr. escreveu: 13 Mai 2026 20:24 No mundo gráfico, muito conhecido como combobox

Não... este seria o ListBox. O Combo (Combined Box) é aquele que vem fechado e tem a seta à direita para expandir a lista.

No Harbour TUI (console) tem o e o

... cRDD )

IF oCon == NIL
alert("Erro ao conectar!")
RETURN( nil )
else
alert('Oracle conectado')
ENDIF


Ele conecta, tanto que traz no TBrowse os dados que estão fisicamente gravados no banco de dados Oracle, eu abro a tabela pelo Oracle SQL Developer e vejo as informações que gravei por ...

Fiz ajustes baseados nos teus códigos, e agora, quando incluo as informações via GET solicitado em tela, elas aparecem no TBrowse, ok, porém, mesmo após executar o INSERT INTO .... , não grava no banco, tem algum comando posterior que precisa ser acionado ?
OBS : Estou usando Oracle

Sim, consigo conectar, consigo fazer select, abrir a tabela e navegar usando TBrowse, perfeito, mas na hora de incluir, não funciona. Estou usando o Harbour nightly ( de 3 dias atrás ), todas as lib ok.

... palette tabs:
- Standard, Additional, Native, System, Dialogs
- Data Access (DBF, SQLite working, MySQL/PostgreSQL/etc. stubs)
- Data Controls (TBrowse, DBGrid, DBNavigator, DBEdit...)
- Internet, Threading, AI, ERP, Printing

IN-PROCESS DEBUGGER :
- Compile to .hrb bytecode (harbour -gh -b ...

... 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 ...