Jutsifica texto no QRRichText

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