pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: change in the RTF property editor. If no text is specified - clear RTF property out.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4148 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-05-24 04:53:19 +00:00
parent 915ba50653
commit 14ca948efd
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/richmemo/richmemoregister.pas
View File

@ -38,8 +38,12 @@ begin
TheDialog :=TRTFEditDialog.Create(nil); TheDialog :=TRTFEditDialog.Create(nil);
try try
TheDialog.RichMemo1.Rtf:=GetStrValue; TheDialog.RichMemo1.Rtf:=GetStrValue;
if (TheDialog.ShowModal = mrOK) then if (TheDialog.ShowModal = mrOK) then begin
if TheDialog.RichMemo1.Text = '' then
SetStrValue( '' )
else
SetStrValue( TheDialog.RichMemo1.Rtf ); SetStrValue( TheDialog.RichMemo1.Rtf );
end;
finally finally
TheDialog.Free; TheDialog.Free;
end; end;