Talvez o que vc precisa esteja nessa dica, então: * http://www.swissdelphicenter.ch/torry/showcode.php?id=1655
Ou caso queira outras dicas de RichEdit pesquise em http://www.swissdelphicenter.ch/ por 'RichEdit'. Sds, Ricardo. Eduardo Suruagy <[EMAIL PROTECTED]> escreveu: Vou testar o código mas eu esqueci de mencionar q eu estou usando o TRichEdit. Na verdade eu queria justificar um texto selecionado. Muito obrigado pela dica... Em 01/11/07, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu: > > Realmente isso é um bom truque. > > Mas pelo que pude ler no código (não testei) ele não leva em conta a > integridade das palavras, leva? > > Me parece que essa rotina pode separar uma palavra de forma inadequada... > > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em nome de > Ricardo César Cardoso > Enviada em: quinta-feira, 1 de novembro de 2007 12:20 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Assunto: Re: [delphi-br] Memo Justificado > > > Extraido do Dicas e Truques de Delphi v2.8: > > 303 - Justificar Texto > function Justifica(mCad:string;mMAx:integer):string; > var > mPos,mPont,mTam,mNr,mCont:integer; > mStr:string; > begin > mTam:=Length(mCad); > if mTam>=mMax then > Result:=copy(mCad,1,mMax) > else > mStr:=''; > mCont:=0; > mPont:=1; > mNr:=mMax-mTam; > while mCont<mNr do > begin > mPos:=pos(mStr,copy(mCad,mPont,100)); > if mPos=0 then > begin > mStr:=mStr+' '; > mPont:=1; > continue; > end > else > begin > mCont:=mCont+1; > Insert(' ',mCad,mPos+mPont); > mPont:=mPont+mPos+length(mStr); > end; > Result:=mCad; > end; > end; > > EX.: > Memo1.lines[i]:=justifica(memo1.lines[i]{String},60 {Nº de caracteres > possiveis da linha}); > > Sds, > Ricardo. > > Leonardo Quinino <[EMAIL PROTECTED]<leonardo.quinino%40gmail.com><mailto: > leonardo.quinino%40gmail.com> > escreveu: Boa Pergunta..... Essa eu também > queria saber. > > Em 01/11/07, Eduardo Suruagy <[EMAIL > PROTECTED]<eduardosuruagy%40gmail.com><mailto: > eduardosuruagy%40gmail.com> > escreveu: > > > > Pessoal, como faço pra colocar um memo justificado igual ao word? > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > Leonardo Quinino > > [As partes desta mensagem que não continham texto foram removidas] > > _ > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] _ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
