paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

richmemo: use RTFSaveStream, if provided

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3809 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz 2014-11-28 21:24:46 +00:00
parent 5f2a5fd8f8
commit 68f8a5e06c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/richmemo/richmemo.pas
View File

@ -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;