From 6946c8309ac133d473101f94f3fa85287eba8ff2 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 24 Nov 2014 07:53:27 +0000
Subject: [PATCH] richmemo: added loadrtffile function

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

diff --git a/components/richmemo/richmemoutils.pas b/components/richmemo/richmemoutils.pas
index f26577d3a..1c2b0c158 100644
--- a/components/richmemo/richmemoutils.pas
+++ b/components/richmemo/richmemoutils.pas
@@ -23,7 +23,7 @@ interface
 {$mode objfpc}{$h+}
 
 uses
-  Types, RichMemo;
+  Types, SysUtils, Classes, LazFileUtils, RichMemo;
 
 const
   NoResize : TSize = ( cx: 0; cy : 0 );
@@ -48,6 +48,8 @@ var
 function InsertImageFromFileNoResize (const ARichMemo: TCustomRichMemo; APos: Integer;
      const FileNameUTF8: string): Boolean;
 
+procedure LoadRTFFile(const ARichMemo: TCustomRichMemo; const FileNameUTF8: string);
+
 implementation
 
 function InsertImageFileDummy(const ARichMemo: TCustomRichMemo; APos: Integer;
@@ -63,6 +65,22 @@ begin
   Result:=InsertImageFromFile(ARichMemo, APos, FileNameUTF8, NoResize);
 end;
 
+procedure LoadRTFFile(const ARichMemo: TCustomRichMemo; const FileNameUTF8: string);
+var
+  fs : THandleStream;
+  h  : THandle;
+begin
+  if not Assigned(ARichMemo) then Exit;
+  h:= FileOpenUTF8(FileNameUTF8, fmShareDenyNone or fmOpenRead);
+  fs := THandleStream.Create( h );
+  try
+    ARichMemo.LoadRichText(fs);
+  finally
+    fs.Free;
+  end;
+  FileClose(h);
+end;
+
 initialization
   if not Assigned(InsertImageFromFile)  then
     InsertImageFromFile := @InsertImageFileDummy;