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

Working on page styles

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-05 22:49:46 +02:00
parent 37c469c866
commit 163cb7de47
2 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
ePublishing/PageStyles.xba
View file

@ -7,20 +7,31 @@
Dim oStyles As Object Dim oStyles As Object
Dim pageStyles As Object Dim pageStyles As Object
Dim pageStyleNames() As String Dim pageStyleNames() As String
Dim imageURL As String
oStyles = ThisComponent.StyleFamilies oStyles = ThisComponent.StyleFamilies
pageStyles = oStyles.getByName(oStyles.elementNames(2)) pageStyles = oStyles.getByName(oStyles.elementNames(2))
pageStyleNames = pageStyles.getElementNames pageStyleNames = pageStyles.getElementNames
'Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
'MRI pageStyles
dialog = CreateUnoDialog( DialogLibraries.ePublishing.PageConfig ) dialog = CreateUnoDialog( DialogLibraries.ePublishing.PageConfig )
' Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
a = dialog.getControl("ImageControl1")
imageURL = convertToURL(getExtensionPath() + "/images/panel.svg")
dialog.getControl("ImageControl1").model.imageURL = imageURL
listBox = dialog.getControl("pageStyles") listBox = dialog.getControl("pageStyles")
listBox.addItems(pageStyleNames , 0) listBox.addItems(pageStyleNames , 0)
dialog.Title = getTranslation("batchChangePageStyleProperties") dialog.Title = getTranslation("batchChangePageStyleProperties")
dialog.Execute() dialog.Execute()
End Sub End Sub
Function getExtensionPath As String
Dim extensionIdentifier As String
Dim pip As Object
extensionIdentifier = "pro.litvinovg.Redaction"
pip = GetDefaultContext.getByName("/singletons/com.sun.star.deployment.PackageInformationProvider")
getExtensionPath = pip.getPackageLocation(extensionIdentifier)
End Function
Sub setDimensions Sub setDimensions

2
ePublishing/journals.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="journals" script:language="StarBasic">Private sub journalsMark14 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark15
End sub End sub
Dim templateName As String Dim templateName As String