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

Page styles config working

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-06 16:20:51 +02:00
parent 23f8834361
commit c3f28049e7
6 changed files with 1665 additions and 1557 deletions
Download patch file Download diff file Expand all files Collapse all files

317
ePublishing/PageStyles.xba
View file

@ -1,14 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="PageStyles" script:language="StarBasic" script:moduleType="normal">Sub pageStylesDialog
DialogLibraries.LoadLibrary(&quot;ePublishing&quot;)
Dim dialog As Object
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="PageStyles" script:language="StarBasic" script:moduleType="normal"> Dim pDialog As Object
Sub pageStylesDialog
Dim listBox As Object
Dim oStyles As Object
Dim pageStyles As Object
Dim pageStyleNames() As String
Dim imageURL As String
Dim pageStyle As Object
Dim i As Integer
oStyles = ThisComponent.StyleFamilies
pageStyles = oStyles.getByName(oStyles.elementNames(2))
pageStyleNames = pageStyles.getElementNames
@ -18,31 +19,19 @@
displayPageStyleNames(i) = pageStyle.displayName
Next i
subShellSort(displayPageStyleNames)
dialog = CreateUnoDialog( DialogLibraries.ePublishing.PageConfig )
Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
DialogLibraries.LoadLibrary(&quot;ePublishing&quot;)
pDialog = CreateUnoDialog( DialogLibraries.ePublishing.PageConfig )
imageURL = convertToURL(getExtensionPath() + &quot;/images/panel.svg&quot;)
dialog.getControl(&quot;ImageControl1&quot;).model.imageURL = imageURL
dialog.getControl(&quot;description&quot;).setText(getTranslation(&quot;PageConfigDialogTranslations&quot;))
dialog.getControl(&quot;pageHeight&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;pageWidth&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;leftPageMargin&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;topPageMargin&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;rightPageMargin&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;bottomPageMargin&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;headerHeight&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;headerOffset&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;footerHeight&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;footerOffset&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;footnoteAreaHeight&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;footnoteAreaOffset&quot;).setText(&quot;&quot;)
dialog.getControl(&quot;Cancel&quot;).Label = getTranslation(&quot;PageConfigDialogCancelButton&quot;)
dialog.getControl(&quot;Ok&quot;).Label = getTranslation(&quot;PageConfigDialogOkButton&quot;)
listBox = dialog.getControl(&quot;pageStyles&quot;)
pDialog.getControl(&quot;ImageControl1&quot;).model.imageURL = imageURL
pDialog.getControl(&quot;description&quot;).setText(getTranslation(&quot;PageConfigDialogTranslations&quot;))
cleanPageSettings()
pDialog.getControl(&quot;Cancel&quot;).Label = getTranslation(&quot;PageConfigDialogCancelButton&quot;)
pDialog.getControl(&quot;Ok&quot;).Label = getTranslation(&quot;PageConfigDialogOkButton&quot;)
listBox = pDialog.getControl(&quot;pageStyles&quot;)
listBox.addItems(displayPageStyleNames, 0)
dialog.Title = getTranslation(&quot;PageConfigDialogTitle&quot;)
dialog.Execute()
pDialog.Title = getTranslation(&quot;PageConfigDialogTitle&quot;)
pDialog.Execute()
pDialog.dispose()
End Sub
Function getExtensionPath As String
@ -54,7 +43,128 @@ Function getExtensionPath As String
End Function
Sub setDimensions
Sub applyPageStyleConfiguration()
Dim styles As Object
Dim selectedItems() As String
Dim oStyles As Object
Dim pageStyles As Object
Dim pageStyleNames() As String
Dim pageStyleName As String
Dim pageStyleDisplayName As String
Dim pageStyle As Object
Dim style As Object
Dim i As Integer
Dim foundIndex As Integer
pDialog.getControl(&quot;Ok&quot;).Model.State = 0
styles = pDialog.getControl(&quot;pageStyles&quot;)
&apos;Mri styles
selectedItems = styles.getSelectedItems
If Ubound(selectedItems) &lt; 0 Then
MsgBox getTranslation(&quot;pageStylesNoStyleSelected&quot;)
Exit sub
EndIf
If noPageSettings() Then
MsgBox getTranslation(&quot;pageStylesNoSettingsSet&quot;)
Exit sub
EndIf
oStyles = ThisComponent.StyleFamilies
pageStyles = oStyles.getByName(oStyles.elementNames(2))
pageStyleNames = pageStyles.getElementNames
Dim displayPageStyleNames(Ubound(pageStyleNames))
For i = LBound(displayPageStyleNames) To Ubound(displayPageStyleNames)
pageStyle = pageStyles.getByName(pageStyleNames(i))
displayPageStyleNames(i) = pageStyle.displayName
Next i
For i = LBound(selectedItems) To Ubound(selectedItems)
pageStyleDisplayName = selectedItems(i)
foundIndex = getIndex(displayPageStyleNames, pageStyleDisplayName)
pageStyleName = pageStyleNames(foundIndex)
pageStyle = pageStyles.getByName(pageStyleName)
applyPageSettings(pageStyle)
Next i
MsgBox getTranslation(&quot;PageConfigSettingsApplied&quot;)
cleanPageSettings()
End Sub
Sub cleanPageSettings()
pDialog.getControl(&quot;pageHeight&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;pageWidth&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;leftPageMargin&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;topPageMargin&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;rightPageMargin&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;bottomPageMargin&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;headerHeight&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;headerOffset&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;footerHeight&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;footerOffset&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;footnoteAreaHeight&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;footnoteAreaOffset&quot;).setText(&quot;&quot;)
pDialog.getControl(&quot;textToLine&quot;).setText(&quot;&quot;)
&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
End Sub
Function noPageSettings() As Boolean
Dim setting As String
noPageSettings = true
setting = pDialog.getControl(&quot;pageHeight&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;pageWidth&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;leftPageMargin&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;topPageMargin&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;rightPageMargin&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;bottomPageMargin&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;headerHeight&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;headerOffset&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;footerHeight&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;footerOffset&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;footnoteAreaHeight&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;footnoteAreaOffset&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
setting = pDialog.getControl(&quot;textToLine&quot;).getText()
If Len(setting) &gt; 0 Then
noPageSettings = false
EndIf
End Function
Sub applyPageSettings(targetStyle As Object)
Dim oStyles As Object
Dim curStyle As Object
Dim inputHeight As String
@ -66,6 +176,9 @@ Sub setDimensions
Dim inputFooterBodyDistance As String
Dim inputFootnoteLineDistance As String
Dim inputFootnoteLineTextDistance As String
Dim inputFooterHeight As String
Dim inputHeaderHeight As String
Dim inputFootnoteArea As String
Dim newWidth As Long
Dim newHeight As Long
@ -81,85 +194,112 @@ Sub setDimensions
Dim footnoteLineTextDistance As Long
oStyles = ThisComponent.StyleFamilies.getByName(&quot;PageStyles&quot;)
inputWidth = InputBox(&quot;Введите ширину страниц (в мм):&quot;, &quot;Установка ширины всех страниц документа&quot;, &quot;&quot;)
inputHeight = InputBox(&quot;Введите высоту страниц (в мм):&quot;, &quot;Установка высоты всех страниц документа&quot;, &quot;&quot;)
inputTopMargin = InputBox(&quot;Введите размер верхнего поля (в мм):&quot;, &quot;Установка размера верхнего поля для всех страниц&quot;, &quot;&quot;)
inputBottomMargin = InputBox(&quot;Введите резмер нижнего поля (в мм):&quot;, &quot;Установка размера нижнего поля для всех страниц&quot;, &quot;&quot;)
inputLeftMargin = InputBox(&quot;Введите размер левого поля (в мм):&quot;, &quot;Установка размера левого поля для всех страниц&quot;, &quot;&quot;)
inputRightMargin = InputBox(&quot;Введите размер правого поля (в мм):&quot;, &quot;Установка размера правого поля для всех страниц&quot;, &quot;&quot;)
inputHeaderBodyDistance = InputBox(&quot;Введите расстояние от верхнего колонтитула до текста (в сотых долях мм):&quot;, &quot;Установка расстояния от верхнего колонтитула до текста&quot;, &quot;&quot;)
inputFooterBodyDistance = InputBox(&quot;Введите расстояние от нижнего колонтитула до текста (в сотых долях мм):&quot;, &quot;Установка расстояния от нижнего колонтитула до текста &quot;, &quot;&quot;)
inputFootnoteLineTextDistance = InputBox(&quot;Введите расстояние от текста страницы до линии сноски (в сотых долях мм):&quot;, &quot;Установка расстояния от текста страницы до линии сноски &quot;, &quot;&quot;)
inputFootnoteLineDistance = InputBox(&quot;Введите расстояние от линии сноски до текста сноски (в сотых долях мм):&quot;, &quot;Установка расстояния от линии сноски до текста сноски &quot;, &quot;&quot;)
inputWidth = pDialog.getControl(&quot;pageWidth&quot;).getText()
inputHeight = pDialog.getControl(&quot;pageHeight&quot;).getText()
inputTopMargin = pDialog.getControl(&quot;topPageMargin&quot;).getText()
inputBottomMargin = pDialog.getControl(&quot;bottomPageMargin&quot;).getText()
inputLeftMargin = pDialog.getControl(&quot;leftPageMargin&quot;).getText()
inputRightMargin = pDialog.getControl(&quot;rightPageMargin&quot;).getText()
inputHeaderBodyDistance = pDialog.getControl(&quot;headerOffset&quot;).getText()
inputFooterBodyDistance = pDialog.getControl(&quot;footerOffset&quot;).getText()
inputFooterHeight = pDialog.getControl(&quot;footerHeight&quot;).getText()
inputHeaderHeight = pDialog.getControl(&quot;headerHeight&quot;).getText()
inputFootnoteArea = pDialog.getControl(&quot;footnoteAreaHeight&quot;).getText()
For i = 0 to oStyles.Count - 1
curStyle = oStyles.getByIndex(i)
inputFootnoteLineTextDistance = pDialog.getControl(&quot;textToLine&quot;).getText()
&apos;InputBox(&quot;Введите расстояние от текста страницы до линии сноски (в сотых долях мм):&quot;, &quot;Установка расстояния от текста страницы до линии сноски &quot;, &quot;&quot;)
inputFootnoteLineDistance = pDialog.getControl(&quot;footnoteAreaOffset&quot;).getText()
&apos;InputBox(&quot;Введите расстояние от линии сноски до текста сноски (в сотых долях мм):&quot;, &quot;Установка расстояния от линии сноски до текста сноски &quot;, &quot;&quot;)
curStyle = targetStyle
&apos;Mri curStyle
newWidth = curStyle.Width
newHeight = curStyle.height
newTopMargin = curStyle.TopMargin
newBottomMargin = curStyle.BottomMargin
newLeftMargin = curStyle.LeftMargin
newRightMargin = curStyle.RightMargin
If covertMMtoLong(inputFootnoteArea) &gt; 0 Then
Dim footnoteArea As Long
footnoteArea = covertMMtoLong(inputFootnoteArea)
curStyle.FootnoteHeight = footnoteArea
EndIf
If CLng(inputHeaderBodyDistance) &gt; 0 Then
headerBodyDistance = CLng(inputHeaderBodyDistance)
If covertMMtoLong(inputHeaderBodyDistance) &gt; 0 Then
headerBodyDistance = covertMMtoLong(inputHeaderBodyDistance)
curStyle.HeaderBodyDistance = headerBodyDistance
EndIf
If CLng(inputFooterBodyDistance) &gt; 0 Then
footerBodyDistance = CLng(inputFooterBodyDistance)
If covertMMtoLong(inputFooterBodyDistance) &gt; 0 Then
footerBodyDistance = covertMMtoLong(inputFooterBodyDistance)
curStyle.FooterBodyDistance = footerBodyDistance
EndIf
If CLng(inputFootnoteLineDistance) &gt; 0 Then
footnoteLineDistance = CLng(inputFootnoteLineDistance)
If covertMMtoLong(inputFootnoteLineDistance) &gt; 0 Then
footnoteLineDistance = covertMMtoLong(inputFootnoteLineDistance)
curStyle.FootnoteLineDistance = footnoteLineDistance
EndIf
If CLng(inputFootnoteLineTextDistance) &gt; 0 Then
footnoteLineTextDistance = CLng(inputFootnoteLineTextDistance)
If covertMMtoLong(inputFootnoteLineTextDistance) &gt; 0 Then
footnoteLineTextDistance = covertMMtoLong(inputFootnoteLineTextDistance)
curStyle.FootnoteLineTextDistance = footnoteLineTextDistance
EndIf
&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
&apos;Mri curStyle
If covertMMtoLong(inputFooterHeight) &gt; 0 Then
Dim footerHeight As Long
footerHeight = covertMMtoLong(inputFooterHeight)
curStyle.FooterIsOn = true
curStyle.FooterIsDynamicHeight = false
curStyle.FooterHeight = footerHeight + curStyle.FooterBodyDistance
EndIf
If covertMMtoLong(inputHeaderHeight) &gt; 0 Then
Dim headerHeight As Long
headerHeight = covertMMtoLong(inputHeaderHeight)
curStyle.HeaderIsOn = true
curStyle.HeaderIsDynamicHeight = false
curStyle.HeaderHeight = headerHeight + curStyle.HeaderBodyDistance
EndIf
If curstyle.IsLandscape Then
If CLng(inputHeight) &gt; 0 Then
newWidth = CLng(inputHeight + &quot;00&quot;)
If covertMMtoLong(inputHeight) &gt; 0 Then
newWidth = covertMMtoLong(inputHeight)
EndIf
If CLng(inputWidth) &gt; 0 Then
newHeight = CLng(inputWidth + &quot;00&quot;)
If covertMMtoLong(inputWidth) &gt; 0 Then
newHeight = covertMMtoLong(inputWidth)
EndIf
If CLng(inputLeftMargin) &gt; 0 Then
newTopMargin = CLng(inputLeftMargin + &quot;00&quot;)
If covertMMtoLong(inputLeftMargin) &gt; 0 Then
newTopMargin = covertMMtoLong(inputLeftMargin)
EndIf
If CLng(inputRightMargin) &gt; 0 Then
newBottomMargin = CLng(inputRightMargin + &quot;00&quot;)
If covertMMtoLong(inputRightMargin) &gt; 0 Then
newBottomMargin = covertMMtoLong(inputRightMargin)
EndIf
If CLng(inputTopMargin) &gt; 0 Then
newLeftMargin = CLng(inputTopMargin + &quot;00&quot;)
If covertMMtoLong(inputTopMargin) &gt; 0 Then
newLeftMargin = covertMMtoLong(inputTopMargin)
EndIf
If CLng(inputBottomMargin) &gt; 0 Then
newRightMargin = CLng(inputBottomMargin + &quot;00&quot;)
If covertMMtoLong(inputBottomMargin) &gt; 0 Then
newRightMargin = covertMMtoLong(inputBottomMargin)
EndIf
Else
If CLng(inputWidth) &gt; 0 Then
newWidth = CLng(inputWidth + &quot;00&quot;)
If covertMMtoLong(inputWidth) &gt; 0 Then
newWidth = covertMMtoLong(inputWidth)
EndIf
If CLng(inputHeight) &gt; 0 Then
newHeight = CLng(inputHeight + &quot;00&quot;)
If covertMMtoLong(inputHeight) &gt; 0 Then
newHeight = covertMMtoLong(inputHeight)
EndIf
If CLng(inputTopMargin) &gt; 0 Then
newTopMargin = CLng(inputTopMargin + &quot;00&quot;)
If covertMMtoLong(inputTopMargin) &gt; 0 Then
newTopMargin = covertMMtoLong(inputTopMargin)
EndIf
If CLng(inputBottomMargin) &gt; 0 Then
newBottomMargin = CLng(inputBottomMargin + &quot;00&quot;)
If covertMMtoLong(inputBottomMargin) &gt; 0 Then
newBottomMargin = covertMMtoLong(inputBottomMargin)
EndIf
If CLng(inputLeftMargin) &gt; 0 Then
newLeftMargin = CLng(inputLeftMargin + &quot;00&quot;)
If covertMMtoLong(inputLeftMargin) &gt; 0 Then
newLeftMargin = covertMMtoLong(inputLeftMargin)
EndIf
If CLng(inputRightMargin) &gt; 0 Then
newRightMargin = CLng(inputRightMargin + &quot;00&quot;)
If covertMMtoLong(inputRightMargin) &gt; 0 Then
newRightMargin = covertMMtoLong(inputRightMargin)
EndIf
End If
textFieldWidth = newWidth - newLeftMargin - newRightMargin
@ -175,8 +315,35 @@ Sub setDimensions
curStyle.TopMargin = newTopMargin
curStyle.BottomMargin = newBottomMargin
EndIf
Next
Exit Sub
End Sub
Function covertMMtoLong(dimension As String) As Long
If Len(dimension) &lt; 1 Then
convertMMtoLong = -1
Exit Function
EndIf
dimension = customReplace(dimension, &quot;,&quot;, &quot;.&quot;)
If Not IsNumeric(dimension) Then
convertMMtoLong = -1
Exit Function
EndIf
Dim value As Double
value = CDbl(dimension)
If value &lt; 0 Then
convertMMtoLong = -1
Exit Function
EndIf
value = value * 100
covertMMtoLong = CLng(value)
End Function
Function customReplace(Source As String, Search As String, NewPart As String) As String
Dim Result As String
Result = join(split(Source, Search), NewPart)
customReplace = Result
End Function
</script:module>