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

richmemo: fix ParaMetric initialization function

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3759 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-21 14:18:08 +00:00
parent faea171374
commit 15d467d894
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/richmemo/richmemo.pas
View File

@ -160,7 +160,7 @@ function GetFontParams(color: TColor; styles: TFontStyles): TFontParams; overloa
function GetFontParams(const Name: String; color: TColor; styles: TFontStyles): TFontParams; overload; function GetFontParams(const Name: String; color: TColor; styles: TFontStyles): TFontParams; overload;
function GetFontParams(const Name: String; Size: Integer; color: TColor; styles: TFontStyles): TFontParams; overload; function GetFontParams(const Name: String; Size: Integer; color: TColor; styles: TFontStyles): TFontParams; overload;
procedure InitParaMatric(var m: TParaMetric); procedure InitParaMetric(var m: TParaMetric);
procedure InitParaNumbering(var n: TParaNumbering); procedure InitParaNumbering(var n: TParaNumbering);
var var
@ -204,6 +204,7 @@ end;
procedure InitParaMatric(var m: TParaMetric); procedure InitParaMatric(var m: TParaMetric);
begin begin
FillChar(m, sizeof(m), 0); FillChar(m, sizeof(m), 0);
m.LineSpacing:=1.0;
end; end;
procedure InitParaNumbering(var n: TParaNumbering); procedure InitParaNumbering(var n: TParaNumbering);