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

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

[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

[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 

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.