Update version, translation fixes

This commit is contained in:
Georgy Litvinov 2020-05-18 17:16:20 +02:00
parent ba938c7ef4
commit a8f91c44c4
8 changed files with 81 additions and 42 deletions

View file

@ -13,6 +13,7 @@ Function initRedactionConfiguration()
reg = regFactory.createPropertySetRegistry(redactionExtensionName)
redactionProps = reg.openPropertySet(redactionExtensionName, TRUE)
redactionProps.addProperty("fixes_russian_iph", 128, "true")
redactionProps.addProperty("complexity", 128, "user")
exceptionHandler:
Resume Next
@ -26,11 +27,19 @@ End Function
Private Sub setConfigFromDialog(dialog As Object)
Dim config As Object
config = initRedactionConfiguration()
If dialog.getControl("CB_complexity").state = 1 Then
config.setPropertyValue("complexity", "makerUp")
Else
config.setPropertyValue("complexity", "user")
EndIf
If dialog.getControl("cb_russian_fixes_iph").state = 1 Then
config.setPropertyValue("fixes_russian_iph", "true")
Else
config.setPropertyValue("fixes_russian_iph", "false")
EndIf
End Sub
Private Sub loadConfigToDialog(dialog As Object)
@ -41,6 +50,13 @@ Private Sub loadConfigToDialog(dialog As Object)
Else
dialog.getControl("CB_complexity").state = 0
EndIf
If config.getPropertyValue("fixes_russian_iph") = "true" Then
dialog.getControl("cb_russian_fixes_iph").state = 1
Else
dialog.getControl("cb_russian_fixes_iph").state = 0
EndIf
End Sub
@ -50,6 +66,7 @@ Private Sub configurationDialog
dialog = CreateUnoDialog(DialogLibraries.Redaction.ConfigDialog)
loadConfigToDialog(dialog)
dialog.getControl("CB_complexity").Label = getTranslation("dialogConfigComplexity")
dialog.getControl("cb_russian_fixes_iph").Label = getTranslation("dialogRussianFixesIPH")
dialog.Title = getTranslation("dialogConfigTitle")
dialog.getControl("OK").Label = getTranslation("buttonYes")
dialog.getControl("CANCEL").Label = getTranslation("buttonStop")