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

Translations

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-04 14:28:39 +02:00
parent 597df6dab5
commit a4ca08b952
5 changed files with 223 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

25
Redaction/Configuration.xba
View file

@ -48,7 +48,7 @@ Private Sub configurationDialog
Dim dialog As Object
DialogLibraries.LoadLibrary("Redaction")
dialog = CreateUnoDialog(DialogLibraries.Redaction.ConfigDialog)
loadConfigToDialog(dialog)
loadConfigToDialog(dialog)
dialog.setVisible(true)
Select Case dialog.Execute()
Case 1
@ -61,22 +61,19 @@ Private Sub configurationDialog
End Sub
Private Sub quietStartDialog
Globalscope.BasicLibraries.LoadLibrary( "Tools" )
Dim dialog As Object
DialogLibraries.LoadLibrary("Redaction")
dialog = CreateUnoDialog(DialogLibraries.Redaction.StartQuietCleaning)
Dim lang As String
lang = GetStarOfficeLocale().Language
Dim description As String
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")
description = getTranslation("startQuietCleaningDescription")
buttonNameOk = getTranslation("buttonYes")
buttonNameStop = getTranslation("buttonStop")
buttonNameLoad = getTranslation("buttonLoad")
dialogTitle = getTranslation("quietStartCleaningTitle")
dialog.Title = dialogTitle
dialog.getControl("Description").setText(description)
dialog.getControl("buttonOk").Label = buttonNameOk
@ -101,16 +98,14 @@ Private Sub noStylesFileDialog
Dim dialog As Object
DialogLibraries.LoadLibrary("Redaction")
dialog = CreateUnoDialog(DialogLibraries.Redaction.NoStyleFile)
Dim lang As String
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")
dialogTitle = getTranslation("noStylesFileDialogTitle")
description = getTranslation("noFileWithStylesFound")
buttonName = getTranslation("buttonNameToSelectFileWithStyles")
buttonTemplateNotFoundSkip = getTranslation("buttonTemplateNotFoundSkip")
dialog.Title = dialogTitle
dialog.getControl("Description").setText(description)
dialog.getControl("FileSelection").Label = buttonName