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

richmemo: added loadrtffile function

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3770 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-24 07:53:27 +00:00
parent 2123114a7b
commit 6946c8309a
1 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/richmemo/richmemoutils.pas
View File

@ -23,7 +23,7 @@ interface
{$mode objfpc}{$h+} {$mode objfpc}{$h+}
uses uses
Types, RichMemo; Types, SysUtils, Classes, LazFileUtils, RichMemo;
const const
NoResize : TSize = ( cx: 0; cy : 0 ); NoResize : TSize = ( cx: 0; cy : 0 );
@ -48,6 +48,8 @@ var
function InsertImageFromFileNoResize (const ARichMemo: TCustomRichMemo; APos: Integer; function InsertImageFromFileNoResize (const ARichMemo: TCustomRichMemo; APos: Integer;
const FileNameUTF8: string): Boolean; const FileNameUTF8: string): Boolean;
procedure LoadRTFFile(const ARichMemo: TCustomRichMemo; const FileNameUTF8: string);
implementation implementation
function InsertImageFileDummy(const ARichMemo: TCustomRichMemo; APos: Integer; function InsertImageFileDummy(const ARichMemo: TCustomRichMemo; APos: Integer;
@ -63,6 +65,22 @@ begin
Result:=InsertImageFromFile(ARichMemo, APos, FileNameUTF8, NoResize); Result:=InsertImageFromFile(ARichMemo, APos, FileNameUTF8, NoResize);
end; end;
procedure LoadRTFFile(const ARichMemo: TCustomRichMemo; const FileNameUTF8: string);
var
fs : THandleStream;
h : THandle;
begin
if not Assigned(ARichMemo) then Exit;
h:= FileOpenUTF8(FileNameUTF8, fmShareDenyNone or fmOpenRead);
fs := THandleStream.Create( h );
try
ARichMemo.LoadRichText(fs);
finally
fs.Free;
end;
FileClose(h);
end;
initialization initialization
if not Assigned(InsertImageFromFile) then if not Assigned(InsertImageFromFile) then
InsertImageFromFile := @InsertImageFileDummy; InsertImageFromFile := @InsertImageFileDummy;