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

richmemo: support for paragraph formatting

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7299 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2020-01-18 20:25:33 +00:00
parent 89db2544c5
commit 8724ce88e4
1 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/richmemo/richmemortf.pas
View File

@ -70,6 +70,7 @@ type
prev : TRTFParams;
constructor Create(aprev: TRTFParams);
procedure ResetDefault;
end;
TRTFMemoParser = class(TRTFParser)
@ -271,6 +272,19 @@ begin
end;
end;
procedure TRTFParams.ResetDefault;
begin
// default values are taken from RTF specs
// see section "Paragraph Formatting Properties"
pa:=paLeft;
pm.FirstLine:=0;
pm.HeadIndent:=0;
pm.TailIndent:=0;
pm.SpaceBefore:=0;
pm.SpaceAfter:=0;
pm.LineSpacing:=0;
end;
{ TRTFMemoParserr }
procedure TRTFMemoParser.AddText(const atext: string);
@ -401,9 +415,7 @@ end;
procedure TRTFMemoParser.doChangePara(aminor, aparam: Integer);
begin
case aminor of
rtfParDef:begin
prm.pa:=paLeft;
end;
rtfParDef: prm.ResetDefault; // reset clear formatting
rtfQuadLeft: prm.pa:=paLeft;
rtfQuadRight: prm.pa:=paRight;
rtfQuadJust: prm.pa:=paJustify;
@ -602,6 +614,7 @@ begin
prm:=TRTFParams.Create(nil);
prm.fnt.Size:=12; //\fsN Font size in half-points (the default is 24).
prm.fnum:=0;
prm.ResetDefault;
inherited StartReading;
PushText;