From 68f8a5e06c3fd31333e55481878ac071196e65d6 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 28 Nov 2014 21:24:46 +0000
Subject: [PATCH] richmemo: use RTFSaveStream, if provided

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

diff --git a/components/richmemo/richmemo.pas b/components/richmemo/richmemo.pas
index 06537fd6e..c776b0b8e 100644
--- a/components/richmemo/richmemo.pas
+++ b/components/richmemo/richmemo.pas
@@ -598,9 +598,11 @@ end;
 function TCustomRichMemo.SaveRichText(Dest: TStream): Boolean;
 begin
   if Assigned(Dest) and HandleAllocated then begin
-    Result := TWSCustomRichMemoClass(WidgetSetClass).SaveRichText(Self, Dest);
-    if not Result and Assigned(RTFSaveStream) then
-      Result:=RTFSaveStream(Self, Dest);
+
+    if Assigned(RTFSaveStream) then begin
+      Result := RTFSaveStream(Self, Dest)
+    end else
+      Result := TWSCustomRichMemoClass(WidgetSetClass).SaveRichText(Self, Dest);
   end else
     Result := false;
 end;