Como jogar itens para escolher para cima

[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

[Itamar M. Lins Jr.]

Olá!
O browse faz isso.

[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

[Itamar M. Lins Jr.]

Olá!
No mundo gráfico, muito conhecido como combobox

[alxsts]

Olá!

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