pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: saving rtf paragraph metric

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3797 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-27 06:36:54 +00:00
parent f9e3db6342
commit 154442eeab
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/richmemo/richmemortf.pas
View File

@ -589,6 +589,8 @@ var
isuline : Boolean;
isColor : integer;
pm : TParaMetric;
procedure WriteOut(const s: string);
begin
write(s);
@ -691,6 +693,21 @@ begin
while i<=length(u) do begin
if isNewPara then begin
//todo: WriteOut() paragraph info
ARich.GetParaMetric(i+rng.textStart, pm);
WriteOut('\pard');
case ARich.GetParaAlignment(i+rng.TextStart) of
paRight: WriteOut('\qr');
paCenter: WriteOut('\qc');
paJustify: WriteOut('\qj');
else
end;
WriteOut('\li'+IntToStr(round(pm.HeadIndent*20)));
if pm.FirstLine-pm.HeadIndent<>0 then
WriteOut('\fi'+IntToStr(round((pm.FirstLine-pm.HeadIndent)*20)));
if pm.TailIndent<>0 then WriteOut('\ri'+IntToStr(round(pm.TailIndent*20)));
if pm.SpaceAfter<>0 then WriteOut('\sa'+IntToStr(round(pm.SpaceAfter*20)));
if pm.SpaceBefore<>0 then WriteOut('\sb'+IntToStr(round(pm.SpaceBefore*20)));
WriteOut(' ');
end;
s:=GetRTFWriteText(u, i, isnewpara);
WriteOut(s);