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

richmemo: making load function compatible with earlier version of lazarus

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3775 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-25 04:04:40 +00:00
parent 4567c1925d
commit d17987e01b
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/richmemo/richmemoutils.pas
View File

@ -65,6 +65,7 @@ begin
Result:=InsertImageFromFile(ARichMemo, APos, FileNameUTF8, NoResize); Result:=InsertImageFromFile(ARichMemo, APos, FileNameUTF8, NoResize);
end; end;
{$IFDEF USELCLUtf8}
procedure LoadRTFFile(const ARichMemo: TCustomRichMemo; const FileNameUTF8: string); procedure LoadRTFFile(const ARichMemo: TCustomRichMemo; const FileNameUTF8: string);
var var
fs : THandleStream; fs : THandleStream;
@ -80,6 +81,21 @@ begin
end; end;
FileClose(h); FileClose(h);
end; end;
{$ENDIF}
procedure LoadRTFFile(const ARichMemo: TCustomRichMemo; const FileNameUTF8: string);
var
fs : TFileStream;
begin
if not Assigned(ARichMemo) then Exit;
fs:= TFileStream.Create( UTF8Decode(FileNameUTF8), fmShareDenyNone or fmOpenRead);
try
ARichMemo.LoadRichText(fs);
finally
fs.Free;
end;
end;
initialization initialization
if not Assigned(InsertImageFromFile) then if not Assigned(InsertImageFromFile) then