litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

Help text for page config dialog

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-06 19:22:33 +02:00
parent ef395bc973
commit f0badee775
6 changed files with 99 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
ePublishing/PageStyles.xba
View file

@ -25,6 +25,7 @@ Sub pageStylesDialog
pDialog.getControl("ImageControl1").model.imageURL = imageURL
pDialog.getControl("description").setText(getTranslation("PageConfigDialogTranslations"))
cleanPageSettings()
setHelpText()
pDialog.getControl("Cancel").Label = getTranslation("PageConfigDialogCancelButton")
pDialog.getControl("Ok").Label = getTranslation("PageConfigDialogOkButton")
listBox = pDialog.getControl("pageStyles")
@ -104,9 +105,25 @@ Sub cleanPageSettings()
pDialog.getControl("footnoteAreaHeight").setText("")
pDialog.getControl("footnoteAreaOffset").setText("")
pDialog.getControl("textToLine").setText("")
'Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
End Sub
Sub setHelpText
pDialog.getControl("pageHeight").Model.HelpText = getTranslation("PageConfigPageHeight")
pDialog.getControl("pageWidth").Model.HelpText = getTranslation("PageConfigPageWidth")
pDialog.getControl("leftPageMargin").Model.HelpText = getTranslation("PageConfigLeftPageMargin")
pDialog.getControl("topPageMargin").Model.HelpText = getTranslation("PageConfigTopPageMargin")
pDialog.getControl("rightPageMargin").Model.HelpText = getTranslation("PageConfigRightPageMargin")
pDialog.getControl("bottomPageMargin").Model.HelpText = getTranslation("PageConfigBottomPageMargin")
pDialog.getControl("headerHeight").Model.HelpText = getTranslation("PageConfigHeaderHeight")
pDialog.getControl("headerOffset").Model.HelpText = getTranslation("PageConfigHeaderOffset")
pDialog.getControl("footerHeight").Model.HelpText = getTranslation("PageConfigFooterHeight")
pDialog.getControl("footerOffset").Model.HelpText = getTranslation("PageConfigFooterOffset")
pDialog.getControl("footnoteAreaHeight").Model.HelpText = getTranslation("PageConfigFootnoteAreaHeight")
pDialog.getControl("footnoteAreaOffset").Model.HelpText = getTranslation("PageConfigFootnoteAreaOffset")
pDialog.getControl("textToLine").Model.HelpText = getTranslation("PageConfigTextToLine")
End Sub
Function noPageSettings() As Boolean
Dim setting As String
noPageSettings = true