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

richmemo: clarification of rules on line spacing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3767 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-22 08:39:39 +00:00
parent 9dba703693
commit 592e08affc
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/richmemo/richmemo.pas
View File

@ -41,8 +41,14 @@ type
HeadIndent : Double; // in points
SpaceBefore : Double; // in points
SpaceAfter : Double; // in points
LineSpacing : Double; // multi
LineSpacing : Double; // multiplier - matching CSS line-height by percentage/em
// note, that normal LineSpacing is 1.2, not 1.0
end;
const
DefLineSpacing = 1.2;
type
TParaNumStyle = (pnNone, pnBullet, pnNumber, pnLowLetter
, pnLowRoman, pnUpLetter, pnUpRoman, pnCustomChar);
@ -54,6 +60,8 @@ type
TTextModifyMask = set of (tmm_Color, tmm_Name, tmm_Size, tmm_Styles);
type
TRichMemoObject = class(TObject);
{ TCustomRichMemo }
@ -205,7 +213,7 @@ end;
procedure InitParaMetric(var m: TParaMetric);
begin
FillChar(m, sizeof(m), 0);
m.LineSpacing:=1.0;
m.LineSpacing:=DefLineSpacing;
end;
procedure InitParaNumbering(var n: TParaNumbering);