tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.1.4-patch2

This commit is contained in:
csh 2023-02-02 16:25:08 +08:00
parent 47e9ff9a46
commit 919c80f1b0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
funcext/TSOffice/TOfficeObj.tsf
View File

@ -1,5 +1,3 @@
// Version 1.1.4
Function TOfficeObj(n);
Begin
case lowercase(n) of
@ -12359,8 +12357,10 @@ Type TDocumentBody = Class(DocObject)
///[docx]: 可选参数，TSDocxFile对象，在TTextBox、TCell中调用需要传入文档对象
Function AddPicture(picture, posOpt, docx);
Begin
if ifObj(docx) then
if ifObj(docx) then Begin
zipfile_ := docx.Zip();
picture.Run.Drawing.WInline.ID := docx.GetDocPrId();
End;
if not ifBinary(picture.Image) or length(picture.Image)=0 then
raise 'Invalid Image Data.';
if not ifObj(zipfile_) then