Working on page styles

ePublishing/PageStyles.xba

@@ -7,20 +7,31 @@
 	Dim oStyles As Object
 	Dim pageStyles As Object
 	Dim pageStyleNames() As String
+	Dim imageURL As String
 	oStyles = ThisComponent.StyleFamilies
     pageStyles = oStyles.getByName(oStyles.elementNames(2))
 	pageStyleNames = pageStyles.getElementNames
-	'Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
-    'MRI pageStyles
-
-    
+   
     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.addItems(pageStyleNames , 0)
     dialog.Title = getTranslation("batchChangePageStyleProperties")
     dialog.Execute()
 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

ePublishing/journals.xba

@@ -1,6 +1,6 @@
 <?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="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
 
 Dim templateName As String