litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Added configuration storage

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-05 20:23:54 +01:00
parent 4858e854b4
commit 1045e9c871
3 changed files with 41 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Redaction/Configuration.xba Normal file
View file

@ -0,0 +1,27 @@
<?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="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtenstionName As String = &quot;cleanAndValidate&quot;
Function initRedactionConfiguration()
On Error Goto exceptionHandler
Dim regFactory As Object
Dim reg As Object
Dim props(2) As New com.sun.star.beans.PropertyValue
regFactory = CreateUnoService(&quot;com.sun.star.ucb.Store&quot;)
reg = regFactory.createPropertySetRegistry(redactionExtenstionName)
redactionProps = reg.openPropertySet(redactionExtenstionName, TRUE)
redactionProps.addProperty(&quot;complexity&quot;, 128, &quot;user&quot;)
initConfigureation = redactionProps
exceptionHandler:
Resume Next
initRedactionConfiguration = redactionProps
End Function
Sub setRedactionComplexity(complexityLevel)
Dim config As Object
config = initRedactionConfiguration()
config.setPropertyValue(&quot;complexity&quot;, complexityLevel)
End Sub
</script:module>