diff options
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/formwizard/DlgFormDB.xdl | 6 | ||||
-rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 2 | ||||
-rw-r--r-- | wizards/source/formwizard/Language.xba | 2 | ||||
-rw-r--r-- | wizards/source/tools/ModuleControls.xba | 10 |
4 files changed, 12 insertions, 8 deletions
diff --git a/wizards/source/formwizard/DlgFormDB.xdl b/wizards/source/formwizard/DlgFormDB.xdl index 60a5fa6e56c1..ba49384e6029 100644 --- a/wizards/source/formwizard/DlgFormDB.xdl +++ b/wizards/source/formwizard/DlgFormDB.xdl @@ -3,7 +3,7 @@ <dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" dlg:id="DlgFormDB" dlg:style-id="0" dlg:left="96" dlg:top="28" dlg:width="270" dlg:height="210" dlg:page="1"> <dlg:styles> <dlg:style dlg:style-id="0"/> - <dlg:style dlg:style-id="1" dlg:text-color="0x80" dlg:font-name="StarMath" dlg:font-stylename="Standard" dlg:font-charset="symbol"/> + <dlg:style dlg:style-id="1" dlg:text-color="0x0" dlg:font-name="StarSymbol" dlg:font-height="18" dlg:font-stylename="Standard" dlg:font-charset="ansi" dlg:font-weight="150.0"/> </dlg:styles> <dlg:bulletinboard> <dlg:text dlg:style-id="0" dlg:id="lblSelFields" dlg:tab-index="0" dlg:left="154" dlg:top="96" dlg:width="110" dlg:height="8" dlg:page="1" dlg:value="lblSelFields"/> @@ -66,7 +66,7 @@ <dlg:event dlg:listener-type="com.sun.star.awt.XItemListener" dlg:event-method="itemStateChanged" dlg:script-type="StarBasic" dlg:script-code="FormWizard.tools.ImportStyles"/> </dlg:menulist> <dlg:fixedline dlg:style-id="0" dlg:id="hlnBinaries" dlg:tab-index="23" dlg:left="154" dlg:top="51" dlg:width="110" dlg:height="8" dlg:page="1" dlg:value="hlnBinaries"/> - <dlg:button dlg:style-id="1" dlg:id="cmdSwitchHeight" dlg:tab-index="24" dlg:left="122" dlg:top="191" dlg:width="25" dlg:height="14"> + <dlg:button dlg:style-id="1" dlg:id="cmdSwitchHeight" dlg:tab-index="24" dlg:left="122" dlg:top="190" dlg:width="25" dlg:height="14"> <dlg:event dlg:listener-type="com.sun.star.awt.XActionListener" dlg:event-method="actionPerformed" dlg:script-type="StarBasic" dlg:script-code="FormWizard.FormWizard.SwitchDialogHeight"/> </dlg:button> <dlg:fixedline dlg:style-id="0" dlg:id="FixedLine1" dlg:tab-index="25" dlg:left="154" dlg:top="84" dlg:width="110" dlg:height="8" dlg:page="1"/> @@ -106,4 +106,4 @@ <dlg:event dlg:listener-type="com.sun.star.awt.XActionListener" dlg:event-method="actionPerformed" dlg:script-type="StarBasic" dlg:script-code="FormWizard.Layouter.ChangeLabelAlignments"/> </dlg:button> </dlg:bulletinboard> -</dlg:window> +</dlg:window>
\ No newline at end of file diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index b43b785267b1..bcf9c049ff01 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -218,7 +218,7 @@ End Sub Sub SwitchDialogHeight() - SwitchWizardDialogHeight(DlgFormDB, FormPath) + SwitchWizardDialogHeight(DlgFormDB, sReduceDialog, sHeightenDialog) End Sub diff --git a/wizards/source/formwizard/Language.xba b/wizards/source/formwizard/Language.xba index aaa0313c8e68..22d41c8b6387 100644 --- a/wizards/source/formwizard/Language.xba +++ b/wizards/source/formwizard/Language.xba @@ -129,7 +129,7 @@ Sub SetDialogLanguage () sReduceDialog = GetResText(RID_FORM + 65) .cmdSwitchHeight.HelpText = sReduceDialog - .cmdSwitchHeight.ImageURL = FormPath & "up.bmp" + .cmdSwitchHeight.Label = CHR(9653) End With End Sub diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba index a9892122e022..678e07ecf7c3 100644 --- a/wizards/source/tools/ModuleControls.xba +++ b/wizards/source/tools/ModuleControls.xba @@ -157,17 +157,21 @@ Dim oRuntimeDialog as Object End Function -Sub SwitchWizardDialogHeight(oDialog as Object) +Sub SwitchWizardDialogHeight(oDialog as Object, sReduceDialog as String, sHeightenDialog as String) Dim oDialogModel as Object Dim iDlgHeight as Integer Dim iYPos as Integer oDialogModel = oDialog.Model If oDialogModel.Height > 100 Then iDlgHeight = 26 - oDialog.GetControl("imgTheme").Visible = False + oDialog.GetControl("imgTheme").visible = false + oDialog.GetControl("cmdSwitchHeight").Model.Label = CHR(9663) + oDialog.GetControl("cmdSwitchHeight").Model.HelpText = sHeightenDialog Else iDlgHeight = 210 - oDialog.GetControl("imgTheme").Visible = True + oDialog.GetControl("imgTheme").visible = true + oDialog.GetControl("cmdSwitchHeight").Model.Label = CHR(9653) + oDialog.GetControl("cmdSwitchHeight").Model.HelpText = sReduceDialog End If iYPos = iDlgHeight - 20 oDialogModel.cmdCancel.PositionY = iYPos |