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

New code for pageConfig dialog

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-05 23:32:59 +02:00
parent 163cb7de47
commit 23f8834361
4 changed files with 32 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

34
ePublishing/PageStyles.xba
View file

@ -8,27 +8,47 @@
Dim pageStyles As Object
Dim pageStyleNames() As String
Dim imageURL As String
Dim pageStyle As Object
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
subShellSort(displayPageStyleNames)
dialog = CreateUnoDialog( DialogLibraries.ePublishing.PageConfig )
' Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
a = dialog.getControl("ImageControl1")
Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
imageURL = convertToURL(getExtensionPath() + "/images/panel.svg")
dialog.getControl("ImageControl1").model.imageURL = imageURL
dialog.getControl("description").setText(getTranslation("PageConfigDialogTranslations"))
dialog.getControl("pageHeight").setText("")
dialog.getControl("pageWidth").setText("")
dialog.getControl("leftPageMargin").setText("")
dialog.getControl("topPageMargin").setText("")
dialog.getControl("rightPageMargin").setText("")
dialog.getControl("bottomPageMargin").setText("")
dialog.getControl("headerHeight").setText("")
dialog.getControl("headerOffset").setText("")
dialog.getControl("footerHeight").setText("")
dialog.getControl("footerOffset").setText("")
dialog.getControl("footnoteAreaHeight").setText("")
dialog.getControl("footnoteAreaOffset").setText("")
dialog.getControl("Cancel").Label = getTranslation("PageConfigDialogCancelButton")
dialog.getControl("Ok").Label = getTranslation("PageConfigDialogOkButton")
listBox = dialog.getControl("pageStyles")
listBox.addItems(pageStyleNames , 0)
dialog.Title = getTranslation("batchChangePageStyleProperties")
listBox.addItems(displayPageStyleNames, 0)
dialog.Title = getTranslation("PageConfigDialogTitle")
dialog.Execute()
End Sub
Function getExtensionPath As String
Dim extensionIdentifier As String
Dim pip As Object
extensionIdentifier = "pro.litvinovg.Redaction"
extensionIdentifier = "pro.litvinovg.epublishing"
pip = GetDefaultContext.getByName("/singletons/com.sun.star.deployment.PackageInformationProvider")
getExtensionPath = pip.getPackageLocation(extensionIdentifier)
End Function