paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add as="script" attribute to link, to silence warning in chrome

Browse Source 
git-svn-id: trunk@43320 -
This commit is contained in:
michael 2019-10-27 19:39:49 +00:00
parent b7f58dd8c8
commit 0e70a6d900
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/pas2jshtmlresources.pp
View File

@ -50,7 +50,7 @@ end;
function THTMLResourceLinkHandler.CreateDataLink(const aResourceName, aFormat, aData: String): String; function THTMLResourceLinkHandler.CreateDataLink(const aResourceName, aFormat, aData: String): String;
begin begin
Result:=Format('<link rel="%s" id="%s-%s" data-unit="%s" href="data:%s;base64,%s" />',[linkType,IDPrefix,aResourceName,CurrentUnitName,aFormat,aData]); Result:=Format('<link rel="%s" as="script" id="%s-%s" data-unit="%s" href="data:%s;base64,%s" />',[linkType,IDPrefix,aResourceName,CurrentUnitName,aFormat,aData]);
end; end;
procedure THTMLResourceLinkHandler.HandleResource(aFileName: string; Options: TStrings); procedure THTMLResourceLinkHandler.HandleResource(aFileName: string; Options: TStrings);