Jutsifica texto no QRRichText

[Progr'amador 0]

Olá,

tenho o código abaixo que justifica texto no RichEdit, e queria adaptá-lo pra usar no QRRichText, e não estou conseguindo, se alguem conseguir posta ae! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

procedure TForm1.Justify(RichEdt: TRichEdit);const  WM_USER = $400;  EM_EXSETSEL = (WM_USER + 55);  EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202);  EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203);  TO_ADVANCEDTYPOGRAPHY = $1;  mZERO = $0;var  x : tparaformat;  L :LongInt;  cp :charrange;begin  x.cbSize := sizeof(x);  if RichEdt.SelLength = 0 then begin     cp.cpMin := 0;     cp.cpMax := length(RichEdt.Text);     SendMessage(RichEdt.Handle,EM_EXSETSEL,mZERO,LPARAM(@cp));  end;  L := SendMessageA(RichEdt.Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);  if L = 1 then begin     SendMessageA(RichEdt.Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);     SendMessage(RichEdt.Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x));     x.dwMask := PFM_ALIGNMENT;     x.wAlignment :=  PFA_JUSTIFY;          SendMessage(RichEdt.Handle, EM_SETPARAFORMAT, mZERO, lparam(@x));     cp.cpMin := 0;     cp.cpMax := 0;     SendMessage(RichEdt.Handle,EM_EXSETSEL,mZERO,lparam(@cp));     RichEdt.WordWrap := true;  end;end;

Abs. Progr'amador.

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Coloque um RichEdit no formulário do relatório, formate primeiro neste TRichEdit, e depois atribua o texto do TRichEdit no TQRRichText.

[Progr'amador 0]

Coloque um RichEdit no formulário do relatório, formate primeiro neste TRichEdit, e depois atribua o texto do TRichEdit no TQRRichText.

Olá marcio.theis,

 

Como seria esse "Atribuir".

Poderia dá uma exemplo prático?

 

VLW!!

 

Abs. Progr'amador.

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Passando o .Text de um RichEdit para outro.

[Progr'amador 0]

Passando o .Text de um RichEdit para outro.

Olá marcio.theis,

Não deu certo!

Ele copia o texto mas não justifica.

 

Abs. Progr'amador.

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Luiz_Eduardo 0]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Meu Brother,

Eu testei aqui e funcionou, basta você aplicar o procedimento no RichEdit e depois de justificar o texto, aí você chama o formulário do relatório, ligando-o QRRichedit pelo ParentRichEdit.

 

Se quiser o arquivo fonte, mande um e-mail para luiz_eduardo_as@yahoo.com.br

 

Boa sorte!!! :D