Página 1 de 1
Como jogar itens para escolher para cima
Enviado: 13 Mai 2026 16:10
por porter
Olá pessoal,
Gostaria de saber, em uma lista de itens para escolher, se tem como fazer, de
aparecer nesse caso, trêz itens, se teclar seta para baixo e entrar no quarto item,
jogar os itens anteriores para cima.
@ 1,10 to 5,20
tenho esses quatro itens:
Cadastro 1
Cadastro 2
Cadastro 3
Cadastro 4
Vai entrar assim:
Cadastro 1
Cadastro 2
Cadastro 3
Percorrendo os itens, teclando seta para baixo e entrar no quarto item, fica assim, mas mostrar sempre trêz itens:
Cadastro 2
Cadastro 3
Cadastro 4
Espero ter conseguido explicar, obrigado.
Harbour 3.2
Re: Como jogar itens para escolher para cima
Enviado: 13 Mai 2026 19:17
por Itamar M. Lins Jr.
Olá!
O browse faz isso.
Re: Como jogar itens para escolher para cima
Enviado: 13 Mai 2026 20:18
por alxsts
Olá!
Além do Browse, AChoice() também faz. É só definir uma janela com quantidade de linhas inferior à quantidade de itens da lista...
Código: Selecionar todos
#include "box.ch"
PROCEDURE Main()
LOCAL acMenuItems[4], nPos
acMenuItems[1] := " Cadastro 1 "
acMenuItems[2] := " Cadastro 2 "
acMenuItems[3] := " Cadastro 3 "
acMenuItems[4] := " Cadastro 4 "
CLS
DispBox( 9, 9, 13, 20 )
nPos := ACHOICE( 10, 10, 12, 21, acMenuItems, .T. )
? "Opção selecionada: " nPos
RETURN
Re: Como jogar itens para escolher para cima
Enviado: 13 Mai 2026 20:24
por Itamar M. Lins Jr.
Olá!
No mundo gráfico, muito conhecido como combobox
Re: Como jogar itens para escolher para cima
Enviado: 13 Mai 2026 22:40
por alxsts
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
Re: Como jogar itens para escolher para cima
Enviado: 14 Mai 2026 09:40
por porter
Obrigado pessoal,
Achei que com o comando Prompt, daria para fazer o que eu quero,
a solução vai ser com Achoice mesmo.
Obrigado.
Re: Como jogar itens para escolher para cima
Enviado: 14 Mai 2026 15:04
por alxsts
Olá!
Pequenas correções no código que postei acima:
Código: Selecionar todos
#include "box.ch"
PROCEDURE Main()
LOCAL acMenuItems[4], nPos
acMenuItems[1] := " Cadastro 1 "
acMenuItems[2] := " Cadastro 2 "
acMenuItems[3] := " Cadastro 3 "
acMenuItems[4] := " Cadastro 4 "
CLS
DispBox( 9, 9, 13, 20, B_SINGLE )
nPos := ACHOICE( 10, 10, 12, 21, acMenuItems, .T. )
? "Opção selecionada: ", nPos
RETURN
Re: Como jogar itens para escolher para cima
Enviado: 14 Mai 2026 18:11
por Itamar M. Lins Jr.
Olá!
Não... este seria o ListBox. O Combo (Combined Box) é aquele que vem fechado e tem a seta à direita para expandir a lista.
Sim. O ComboBox que eu uso, faz da forma que descrevi.
Código: Selecionar todos
@ 010,010 get ComboBox oEq03 VAR cEq03 ITEMS aEspecie TEXT SIZE 70,20 DisplayCount 6
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.