Browse Source

* Add content to download anchor

Michaël Van Canneyt 11 months ago
parent
commit
dc418b3fea
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/zenfs/zenfsutils.pas

+ 1 - 0
packages/zenfs/zenfsutils.pas

@@ -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);