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

richmemo: update the RichText loading script.

Browse Source 
added language conversion

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3738 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-17 19:10:40 +00:00
parent 6721996b7a
commit 73e1f3a793
6 changed files with 254 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/richmemo/richmemo.pas
View File

@ -381,6 +381,7 @@ end;
function TCustomRichMemo.LoadRichText(Source: TStream): Boolean;
begin
Result:=false;
if not HandleAllocated then HandleNeeded;
if Assigned(Source) and HandleAllocated then begin
if Assigned(RTFLoadStream) then begin
@ -394,8 +395,7 @@ begin
end;
if not Result then
Result := TWSCustomRichMemoClass(WidgetSetClass).LoadRichText(Self, Source);
end else
Result := false;
end;
end;
function TCustomRichMemo.SaveRichText(Dest: TStream): Boolean;