litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

fix: improved speed of shrink page content by changing order of shrink methods

Browse source
This commit is contained in:
Georgy Litvinov 2021-08-27 15:26:46 +02:00
parent 5dcf629d0d
commit 941ac1c9cc
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ePublishing/Books.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Books" script:language="StarBasic" script:moduleType="normal">Sub markBooks6 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Books" script:language="StarBasic" script:moduleType="normal">Sub markBooks7
End Sub End Sub
Sub setUniqPageStyles Sub setUniqPageStyles

12
ePublishing/journals.xba
View file

@ -1286,6 +1286,12 @@ Function shrinkPageContent() As Boolean
oViewCursor.jumpToStartOfPage() oViewCursor.jumpToStartOfPage()
startPosition = oViewCursor.Text.createTextCursorByRange(oViewCursor) startPosition = oViewCursor.Text.createTextCursorByRange(oViewCursor)
targetContent = selectContentToShrink(initPosition,startPosition) targetContent = selectContentToShrink(initPosition,startPosition)
For i = LBound(targetContent) To Ubound(targetContent)
shrinkContentSpacing(targetContent(i))
If isShrinkPageSucceded(initPosition, initPageNum) Then
Exit Function
EndIf
Next i
&apos;TODO: Уменьшая отступы каждого параграфа от и до следующего &apos;TODO: Уменьшая отступы каждого параграфа от и до следующего
&apos; а также уменьшая кернинг, межстрочное расстояние и кегль &apos; а также уменьшая кернинг, межстрочное расстояние и кегль
For j = 0 To rounds For j = 0 To rounds
@ -1301,12 +1307,6 @@ Function shrinkPageContent() As Boolean
EndIf EndIf
Next i Next i
Next j Next j
For i = LBound(targetContent) To Ubound(targetContent)
shrinkContentSpacing(targetContent(i))
If isShrinkPageSucceded(initPosition, initPageNum) Then
Exit Function
EndIf
Next i
For i = LBound(targetContent) To Ubound(targetContent) For i = LBound(targetContent) To Ubound(targetContent)
increaseContentCharHeight(targetContent(i), delta * rounds ) increaseContentCharHeight(targetContent(i), delta * rounds )
Next i Next i