STYLE ES_MULTILINE com MAXLENGTH

[Luciano Bonfim]

Caros,

Quando uso num GET o STYLE ES_MULTILINE, o GET passa a ignorar o MAXLENGTH deixando eu digitar uma quantidade maior do que eu realmente preciso, tentei contornar usando PICTURE repl("X",60) mas tb nao funcionou 100%, nesse caso o GET é truncado com 60 caracteres mas mesmo assim eu consigo digitar quantos eu quiser.

Tem alguma maneira de fazer isso?

Muito Obrigado

Luciano Bonfim de Azevedo

[esbasso]

BASTA usar a imaginação e a logica


@ 19,220 GET oMemo1 VAR vMemo1 SIZE 219,98 ;
STYLE ES_MULTILINE +ES_WANTRETURN +ES_AUTOVSCROLL +WS_VSCROLL ;
TOOLTIP "" ;
ON KEYDOWN {|This, nKeyPress| oMemo1_onKeyDown( This, nKeyPress ) }


STATIC FUNCTION oMemo1_onKeyDown
Parameters This, nKeyPress

if (nkeypress = 32.or.(nKeypress > 64 .and. nkeypress < 220)) .and. len(this:caption) >= 10
msginfo('Maximo de 10 caracters')
this:caption := left(this:caption,10)
keyb_event(VK_END)

endif
return .t.

[esbasso]

O GET EDITBOX agora aceita MAXLENGTH com o STYLE ES_MULTILINE.
Somente será considerado um campo tipo memo se contiver STYLE ES_MULTILINE + ES_WANTRETURN sendo que neste caso o MAXLENTH será ignorado.

[Luciano Bonfim]

blz vou implementar no meu sistema

Muito Obrigado

[sygecom]

Muito bom, vou atualizar minha LIB hoje a noite e já testar, Grande Basso, vlw....