paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 09:01:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_iPro: Add method SetHtmlFromFile (issue #37930, modified patch by Zaher Dirkey). Refactor SetHtmlFromStr.

Browse Source 
git-svn-id: trunk@64024 -
This commit is contained in:
wp 2020-10-16 09:17:49 +00:00
parent e2c618e262
commit 1159625e7b
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/turbopower_ipro/iphtml.pas
View File

@ -2818,6 +2818,7 @@ type
procedure SelectAll;
procedure DeselectAll;
procedure SetHtml(NewHtml : TIpHtml);
procedure SetHtmlFromFile(const AFileName: String);
procedure SetHtmlFromStr(NewHtml : string);
procedure SetHtmlFromStream(NewHtml : TStream);
procedure Stop;
@ -16063,16 +16064,28 @@ begin
end;
end;
procedure TIpHtmlCustomPanel.SetHtmlFromFile(const AFileName: String);
var
strm: TFileStream;
begin
strm := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone);
try
SetHtmlFromStream(strm);
finally
strm.Free;
end;
end;
procedure TIpHtmlCustomPanel.SetHtmlFromStr(NewHtml: string);
var
iphtml: TIpHtml;
strm: TStringStream;
strm: TStringStream;
begin
iphtml:= TIpHtml.Create;
strm:= TStringStream.Create(NewHtml);
iphtml.LoadFromStream(strm);
SetHtml(iphtml);
strm.Free;
strm:= TStringStream.Create(NewHtml);
try
SetHtmlFromStream(strm);
finally
strm.Free;
end;
end;
procedure TIpHtmlCustomPanel.SetHtmlFromStream(NewHtml: TStream);