From 14ca948efda4e199ff7ccbc062b33d64a362e2fd Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 24 May 2015 04:53:19 +0000
Subject: [PATCH] richmemo: change in the RTF property editor. If no text is
 specified - clear RTF property out.

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

diff --git a/components/richmemo/richmemoregister.pas b/components/richmemo/richmemoregister.pas
index 88009c012..9ceccdc4e 100644
--- a/components/richmemo/richmemoregister.pas
+++ b/components/richmemo/richmemoregister.pas
@@ -38,8 +38,12 @@ begin
   TheDialog :=TRTFEditDialog.Create(nil);
   try
     TheDialog.RichMemo1.Rtf:=GetStrValue;
-    if (TheDialog.ShowModal = mrOK) then
-      SetStrValue( TheDialog.RichMemo1.Rtf );
+    if (TheDialog.ShowModal = mrOK) then begin
+      if TheDialog.RichMemo1.Text = '' then
+        SetStrValue( '' )
+      else
+        SetStrValue( TheDialog.RichMemo1.Rtf );
+    end;
   finally
     TheDialog.Free;
   end;