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

Translations and load template dialog

Browse source
This commit is contained in:
Georgy Litvinov 2020-04-23 14:15:18 +02:00
parent bd3b7706d8
commit 75fd6c8192
11 changed files with 221 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

67
Redaction/Translations.xba Normal file
View file

@ -0,0 +1,67 @@
<?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="Translations" script:language="StarBasic" script:moduleType="normal">
Function getTranslation(lang As String, identifier As String) As String
Select Case lang
Case &quot;ru&quot;
getTranslation = getRussian(identifier)
Exit Function
Case Else
getTranslation = getEnglish(identifier)
Exit Function
End Select
End Function
Function getRussian(identifier As String) As String
Select Case identifier
Case &quot;noFileWithStylesFound&quot;
getRussian = &quot;Файл-шаблон, содержащий стили для загрузки в документ не был задан. &quot; &amp; chr(10) &amp;&quot;Вы можете выбрать новый файл-шаблон. &quot; &amp; chr(10) &amp; &quot;Если файл-шаблон не будет выбран, то данный этап чистки будет пропущен.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getRussian = &quot;Вы хотите запустить чистку документа? &quot; &amp; chr(10) &amp; &quot;Здесь Вы можете также указать новый файл-шаблон.&quot; &amp; chr(10) &amp; &quot;Стили из шаблона будут загружены в документ.&quot;
Exit Function
Case &quot;buttonOk&quot;
getRussian = &quot;Да&quot;
Exit Function
Case &quot;buttonStop&quot;
getRussian = &quot;Нет&quot;
Exit Function
Case &quot;buttonLoad&quot;
getRussian = &quot;Указать шаблон&quot;
Exit Function
Case &quot;buttonNameToSelectFileWithStyles&quot;
getRussian = &quot;Указать файл&quot;
Exit Function
Case Else
getRussian = getEnglish(identifier)
End Select
End Function
Function getEnglish(identifier As String) As String
Select Case identifier
Case &quot;noFileWithStylesFound&quot;
getEnglish = &quot;Template with styles wasn&apos;t found. You can choose template on your computer. This stage of cleaning will be skipped if no file chosen.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getEnglish = &quot;Do you want to start document cleaning?&quot; &amp; chr(10) &amp; &quot;You can choose template with styles to load them in process of the cleaning.&quot;
Exit Function
Case &quot;buttonOk&quot;
getEnglish = &quot;Ok&quot;
Exit Function
Case &quot;buttonStop&quot;
getEnglish = &quot;Cancel&quot;
Exit Function
Case &quot;buttonLoad&quot;
getEnglish = &quot;Set template&quot;
Exit Function
Case &quot;buttonNameToSelectFileWithStyles&quot;
getEnglish = &quot;Select file&quot;
Exit Function
Case Else
getEnglish = &quot;No translation&quot;
End Select
End Function
</script:module>