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

Fixes

Browse source
This commit is contained in:
Georgy Litvinov 2020-04-23 14:33:18 +02:00
parent 75fd6c8192
commit eca9f9f41b
6 changed files with 37 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Redaction/Configuration.xba
View file

@ -71,10 +71,13 @@ Private Sub quietStartDialog
Dim buttonNameOk As String
Dim buttonNameStop As String
Dim buttonNameLoad As String
Dim dialogTitle As String
description = getTranslation(lang,"startQuietCleaningDescription")
buttonNameOk = getTranslation(lang,"buttonOk")
buttonNameStop = getTranslation(lang,"buttonStop")
buttonNameLoad = getTranslation(lang,"buttonLoad")
dialogTitle = getTranslation(lang,"quietStartCleaningTitle")
dialog.Title = dialogTitle
dialog.getControl("Description").setText(description)
dialog.getControl("buttonOk").Label = buttonNameOk
dialog.getControl("buttonStop").Label = buttonNameStop
@ -102,14 +105,20 @@ Private Sub noStylesFileDialog
lang = GetStarOfficeLocale().Language
Dim description As String
Dim buttonName As String
Dim dialogTitle As String
Dim buttonTemplateNotFoundSkip As String
dialogTitle = getTranslation(lang,"noStylesFileDialogTitle")
description = getTranslation(lang,"noFileWithStylesFound")
buttonName = getTranslation(lang,"buttonNameToSelectFileWithStyles")
buttonTemplateNotFoundSkip = getTranslation(lang,"buttonTemplateNotFoundSkip")
dialog.Title = dialogTitle
dialog.getControl("Description").setText(description)
dialog.getControl("FileSelection").Label = buttonName
dialog.setVisible(true)
dialog.getControl("buttonOk").Label = buttonTemplateNotFoundSkip
dialog.setVisible(true)
Select Case dialog.Execute()
Case 1
setDeafultTemplate(selectedTemplate)
setDeafultTemplate()
Case 0
End Select
@ -123,9 +132,10 @@ End Sub
Sub setDeafultTemplate()
Dim selectedTemplate As String
selectedTemplate = getFileURLDialog()
If IsEmpty(selectedTemplate) Then
Exit sub
EndIf
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
If NOT (oSimpleFileAccess.exists( selectedTemplate ) AND NOT oSimpleFileAccess.isFolder( selectedTemplate ) ) Then
Exit sub
End If
Dim fileName As String
Dim config As Object
config = initRedactionConfiguration()