From fdd08738ef554fd195bcd0c7dd44ad8aff3d8afe Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 6 Mar 2015 14:04:42 +0000
Subject: [PATCH] richmemo: initialize font params structure SetTextAttributes
 method with TFont

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

diff --git a/components/richmemo/richmemo.pas b/components/richmemo/richmemo.pas
index 0aafc0dbb..225a7a393 100644
--- a/components/richmemo/richmemo.pas
+++ b/components/richmemo/richmemo.pas
@@ -444,6 +444,7 @@ procedure TCustomRichMemo.SetTextAttributes(TextStart, TextLen: Integer;
 var
   params  : TFontParams;
 begin
+  InitFontParams(params);
   params.Name := AFont.Name;
   params.Color := AFont.Color;
   params.Size := AFont.Size;