get maior que o campo disponível na tela

[rosalvo rosa]

Amigos do forum, boa tarde.

Estou precisando colocar dois get´s na mesma linha, e os dois são maiores que 80 caracteres. Esta situação nunca havia
me ocorrido.

Ex:
cGet1:= space(45)
cGet2:= space(45)

@ 02,02 Say " bla " Get cGet1
@ 02,42 Say " blabla " Get cGet2
Read

Como ficaria para que enquanto o usuario estiver digitando o cGet1, o campo do mesmo não subscreva o campo do cGet2 ?

Obrigado a quem colaborar.

Rosalvo

[alxsts]

Olá!

Rosalvo: esta é simples:

use os recursos da cláusula PICTURE do Get System:

Código: Selecionar todos

   LOCAL cCampo1, cCampo2

   cCampo1 := Space(45)
   cCampo2 := Space(45)

   @10,05 Say "Campo 1:" Get cCampo1 Pict "@S20"
   @10,35 Say "Campo 2:" Get cCampo2 Pict "@S20"

   READ

O parâmetro S do template informa ao Get System que´ele deve fazer Scroll no campo e o 20 informa a quantidade de bytes que devem ser exibidos antes de fazer o Scroll (coloquei 20 mas você pode ajustar para a sua necessidade).

[rosalvo rosa]

Obrigado alxsts !

É que eu nunca tinha usado.

Um abraço.

Rosalvo