Comportamento de um campo memo.

[Itamar M. Lins Jr.]

Olá!
Se um campo caractere(Type="C") é criado na Hwgui cObs:="" -> Nenhum espaço , ele tem tamanho ilimitado na edição.
Mas se é definido com tamanho = space(1), mesmo que seja aceito a digitação de mais caracteres, só armazena 1 caractere.

Código: Selecionar todos

cObs := ""
@ 10,10 get oObs var cObs size 500,110 style ES_MULTILINE + ES_AUTOVSCROLL + WS_VXCROLL + ES_WANTRETURN

Vai mostra TUDO que for digitado.

Mesmo aceitando digitar neste caso abaixo, mais de 1 caractere, só fica 1 na hora que vc consulta.

Código: Selecionar todos

cObs := space(1)
@ 10,10 get oObs var cObs size 500,110 style ES_MULTILINE + ES_AUTOVSCROLL + WS_VXCROLL + ES_WANTRETURN

Código: Selecionar todos

hwg_msgInfo(cObs) // só mostra 1 caractere. 

len() retorna 1

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Não sei se o erro foi no post ou no fonte, acho que WS_VXCROLL está errado, provável erro de digitação se considerar que X e S estão perto.

Olhando o fonte de hedit.prg só encontrei limitação se existir picture, ou se for definido maxlength.
A exceção é se definir bSetGet.

[Itamar M. Lins Jr.]

Olá!
Erro de digitação.
STYLE ES_MULTILINE +ES_AUTOVSCROLL + WS_VSCROLL + ES_WANTRETURN

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Eu ainda não tirei da cabeça a minha última alteração.
À primeira vista está tudo funcionando.

Mas havia retorno eventual de -1, e não existe mais.
Tudo bem que parece tudo funcionar, mas é de se imaginar que o -1 poderia ter alguma utilidade.
Ainda mais que encontrei isso em outras teclas.
Vou olhar mais a rotina, quem sabe esse -1 poderia ser usado pra atualizar alguma coisa.

[alxsts]

Olá!

Do que está falando?

[JoséQuintas]

Essa alteração.
Antes tinha um retorno -1 no final, e outros retornos internamente.

Revisei outra vez.
Parece que de qualquer jeito nunca chegava no -1, então não faz falta.

[Itamar M. Lins Jr.]

Olá!
Esse comportamento(Aceitar, mas não aumentar o campo memo) já tinha , antes dessa modificação.

Saudações,
Itamar M. Lins Jr.