summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorTom Verbeek <tv@openoffice.org>2001-06-20 14:47:59 +0000
committerTom Verbeek <tv@openoffice.org>2001-06-20 14:47:59 +0000
commit5ea4391b8042d29a95f98b25528e98d1ec931b8f (patch)
tree4ece7cd3be1558369c64b9684b0709b8a264a7eb /wizards
parent0f65160a8b2495274f5e8ff8b295f6f6d33568e0 (diff)
#87606# last changes for formwizard dialog
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/formwizard/DlgFormDB.xdl6
-rw-r--r--wizards/source/formwizard/FormWizard.xba2
-rw-r--r--wizards/source/formwizard/Language.xba2
-rw-r--r--wizards/source/tools/ModuleControls.xba10
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 &amp; &quot;up.bmp&quot;
+ .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 &gt; 100 Then
iDlgHeight = 26
- oDialog.GetControl(&quot;imgTheme&quot;).Visible = False
+ oDialog.GetControl(&quot;imgTheme&quot;).visible = false
+ oDialog.GetControl(&quot;cmdSwitchHeight&quot;).Model.Label = CHR(9663)
+ oDialog.GetControl(&quot;cmdSwitchHeight&quot;).Model.HelpText = sHeightenDialog
Else
iDlgHeight = 210
- oDialog.GetControl(&quot;imgTheme&quot;).Visible = True
+ oDialog.GetControl(&quot;imgTheme&quot;).visible = true
+ oDialog.GetControl(&quot;cmdSwitchHeight&quot;).Model.Label = CHR(9653)
+ oDialog.GetControl(&quot;cmdSwitchHeight&quot;).Model.HelpText = sReduceDialog
End If
iYPos = iDlgHeight - 20
oDialogModel.cmdCancel.PositionY = iYPos