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 :D

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

Código: Selecionar todos

@x,y Get var LISTBOX
e o

Código: Selecionar todos

@x,y Get var TBROWSE

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.