Achoice() no Xharbour: "Erro de Limite: acesso de array"

[lugab]

Olá, pessoal...
Ao usar a função Achoice() no Xharbour, em vez de fazer o esperado que é "seta pra cima" ou "seta pra baixo", o usuário (claro) usou "seta pra esquerda" e "seta pra direita" e aí deu o erro: "Erro de Limite: acesso de array"

Como impedir isso, evitar q ele use as setas erradas ou simplesmente: como evitar a ocorrência desse erro ?
Grato

Código: Selecionar todos

Public nPrn:= 1 
Public aPrn:= GetPrinters()
nPrn:=ACHOICE(12,11,16,69, aPrn,.T.,,nPrn)

[Daniel]

Voce pode usar uma função para isso

Código: Selecionar todos

           nPos := ACHOICE( 10, 10, 13, 15, acMenuItems,.T., "cUserFunction" )

           DO CASE
           CASE nPos == 1
              //  Put ADD routine here
           CASE nPos == 2
              //  Put EDIT routine here
           CASE nPos == 3
              //  Put DELETE routine here
           CASE nPos ==4
              //  Put UPDATE routine here
           ENDCASE

        RETURN


 FUNCTION cUserFunction( nMode, nCurElement, nRowPos )

           LOCAL nRetVal := AC_CONT     // Default, Continue
           LOCAL nKey := LASTKEY()
              DO CASE
              CASE nKey == K_RETURN         // If RETURN key, select
                 nRetVal := AC_SELECT
              CASE nKey == K_ESC            // If ESCAPE key, abort
                 nRetVal := AC_ABORT
              OTHERWISE
                    nRetVal := AC_GOTO      // Otherwise, go to item
              ENDCASE
           ENDCASE

        RETURN nRetVal

[lugab]

Legal, Daniel. gostei de saber disso, mas a questão que trato nesse post é outra...

O Achoice() está preparado pra receber <esc>,<enter> ,<seta abaixo> e <seta acima> porém, as vezes, os usuários usam <seta a direita"> e <seta a esquerda> e isso está provocando o erro citado acima e cancelamento do programa...

O que eu quero é prever e evitar esse cancelamento qdo o usuário teclar errado de novo, entendeu

[JoséQuintas]

Provavelmente é o ESC.
Esqueceu de tratar quando o usuário quer abandonar a impressão e tecla ESC.
Retorna com zero, e não dá pra selecionar nenhuma impressora.

[lugab]

Não, Quintas, o <esc> ta funcionando.

É quando eles teclam <seta direita> ou <seta esquerda> que da o erro

[JoséQuintas]

Crie sua própria rotina pra isso, crie uma rotina intermediária, ou desative as teclas.

Por exemplo:

Código: Selecionar todos

FUNCTION MyAchoice( ... )

   LOCAL xReturn
   
   SetasOn()
   xReturn := Achoice( ... )
   SetasOff()
   RETURN xReturn

FUNCTION SetasOn()

SET KEY K_RIGHT TO DisableKey
SET KEY K_LEFT TO DisableKey

RETURN NIL

FUNCTION SetaOff()

SET KEY K_RIGHT TO
SET KEY K_LEFT TO
RETURN NIL

FUNCTION DisableKey()

   KEYBOARD Chr(255)
   Inkey(0)
  RETURN NIL

Nota: No Harbour, usar "..." pra especificar parâmetros é válido.

[ANDRIL]

Olá! Tenta assim:

Código: Selecionar todos

nPrn:=ACHOICE(12,11,16,69, aPrn,.T.,"MYACHOICEUDF",nPrn)

Código: Selecionar todos

function MYACHOICEUDF()
PARAMETERS modo, num_sel, posicao

if lastkey()=13
    return 1
elseif lastkey()=27
    return 0
elseif modo=1  .or.  modo=2
    tone(1000,1)
    return 2
else
    return 2
endif

[lugab]

Caramba, que fartura...

As dicas do Quiintas e do Andril funcionaram uma belezura...

Obrigado aos dois e ao Daniel também. )