alex2002 Posted May 25, 2004 Report Share Posted May 25, 2004 Olá Galera, Gostaria de saber se existe uma função para que eu possa limitar um campo MEMO a não ultrapassar uma quantia de caracteres por linha. Alguém faz idéia? Lembro que esta questão seria só na Edição do campo, pois para ler posteriormente existe a memoline(). Um abraço, Alexandre Pereira Quote Link to comment Share on other sites More sharing options...
vagner Posted May 25, 2004 Report Share Posted May 25, 2004 Aà Ale, Blz ? @ 016,045 Get oPLObserv Var cPLObserv Memo When (cQual_Cli#"Exc") Pixel Size 124,22 On Change TestaTam(cPLObserv) Font oFon_Cli Of oFld:aDialogs[4] /*---- Funcao para Testar Tamanho da Observacao ----*/ Static Func TestaTam(cCod) Local nTama := Len(oPLObserv:cText()) If nTama > 400 MsgAlert("A Mensagem já Alcançou o Tamanho Limite."+CRLF+"o Sistema Não Reconhece acima de 400 Caracteres","Atenção !!") Endif Retu("") Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
alex2002 Posted May 26, 2004 Author Report Share Posted May 26, 2004 E ai Wirts, Obrigado, Tentei montar uma função com os parametros que vc me passou mas iria demorar muito. Então usei o seguinte (acho que todo mundo já usa assim): Dentro do get coloco uma fonte fixa (Courier New) e desenho no WS o tamanho que eu quero nas linhas. De qualquer forma obrigado pela preciosa atenção. Um abraço, Alexandre Pereira Ps. Viu né, R$ 1,00 o chopp. hehehe Quote Link to comment Share on other sites More sharing options...
vagner Posted May 26, 2004 Report Share Posted May 26, 2004 É và sim Desse jeito vou ter q dá um pulo em BH, para tomar umas e outras (hehehehehe) Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.