asıl kod

[youutek]

asıl kod parçasını verdim bunu çalıştıra bilen varmı bu program richedit i iki yana yaslamak için kullanılacak teşekkür ederim

function TForm1.IkiYanaYasla(Nesne: 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 Nesne.SelLength = 0 then
begin
cp.cpMin := 0;
cp.cpMax := length(Text);
SendMessage(Nesne.Handle,EM_EXSETSEL,mZERO,LPARAM(@cp));
end;
L := SendMessageA(Nesne.Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
if L = 1 then
begin
SendMessageA(Nesne.Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);
SendMessage(Nesne.Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x));
x.dwMask := PFM_ALIGNMENT;
x.wAlignment := PFA_JUSTIFY;
SendMessage(Nesne.Handle, EM_SETPARAFORMAT, mZERO, lparam(@x));
end;
cp.cpMin := 0;
cp.cpMax := 0;
SendMessage(Nesne.Handle,EM_EXSETSEL,mZERO,lparam(@cp));
Nesne.WordWrap := true;
end;

[asilpol]

Bu sadece prosedur tek başına işe yaramaz proseduru oluşturduktan sonra buton altına
RichEdit1.SelectAll;
IkiYanaYasla(RichEdit1);
QRReport.QRRichText1.Lines.Text := RichEdit1.Text;
QRReport.QRRichText1.ParentRichEdit := RichEdit1;

bu şekilde yazıp Qreporta gönderdin mi işlem tamam