paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 11:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add content to download anchor

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-28 22:43:05 +02:00
parent 8802cf610b
commit dc418b3fea
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/zenfs/zenfsutils.pas
View File

@ -749,6 +749,7 @@ Function CreateDownLoadFromFile(const aFileName,aMimeType : string; aParent : TJ
begin
Result:=TJSHTMLAnchorElement(Document.createElement('a'));
Result.AppendChild(aLinkContent);
Result.href:=CreateDataURL(aFileName,aMimetype);
Result.Download:=ExtractFileName(aFileName);
aParent.AppendChild(Result);