From 15d467d8940087601b3852463ea27888909771c1 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 21 Nov 2014 14:18:08 +0000
Subject: [PATCH] richmemo: fix ParaMetric initialization function

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3759 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/richmemo.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/richmemo/richmemo.pas b/components/richmemo/richmemo.pas
index f0fdaa54c..d0c38f657 100644
--- a/components/richmemo/richmemo.pas
+++ b/components/richmemo/richmemo.pas
@@ -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; Size: Integer; color: TColor; styles: TFontStyles): TFontParams; overload;
 
-procedure InitParaMatric(var m: TParaMetric);
+procedure InitParaMetric(var m: TParaMetric);
 procedure InitParaNumbering(var n: TParaNumbering);
 
 var
@@ -204,6 +204,7 @@ end;
 procedure InitParaMatric(var m: TParaMetric);
 begin
   FillChar(m, sizeof(m), 0);
+  m.LineSpacing:=1.0;
 end;
 
 procedure InitParaNumbering(var n: TParaNumbering);