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

v1.1.6

Browse Source
This commit is contained in:
csh
2023-02-13 15:10:31 +08:00
parent 3af1d35304
commit 780d9ecb6d
49 changed files with 107 additions and 1017 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Demo/wordHelp.tsl
+4 -6
View File
@@ -257,8 +257,8 @@ Begin
_AddTitle(docx, '插入图像案例', 2);
picture := TOfficeObj('TPicture');
picture.Descr := '插入图像案例';
readfile(rwbinary(), '', docx.GetPath() + '\\funcext\\TSOffice\\template\\tinysoft.gif', 0, 1024*1024, data);
picture.Image := data;
picture.Image := TOfficeTemplate('tinysoft.gif',true);
if ifnil(picture.Image) then return;
p := docx.AddPicture(picture, -1);
//添加图像外边框
p.Format.Ln.SolidFill.SchemeClr.Val := 'accent1';
@@ -1125,10 +1125,8 @@ Begin
_PrintMsg('FAQ');
_AddTitle(docx, '附注二：FAQ', 1); //附注FAQ标题
[err,fh] := io_open( _ReplaceFileName(docx.GetPath() + '\\funcext\\TSOffice\\template\\faq.txt') );
if err then return t;
[err, data] := io_read(fh);
io_close(fh);
data := TOfficeTemplate('faq.txt');
if ifnil(data) then return;
lines := str2array(string(data), '\n');
numId := docx.NumberingObject().NumberId('bullet', 1); //项目编号
for i:=0 to length(lines)-1 do Begin