diff options
author | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-27 16:59:30 +0000 |
---|---|---|
committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-27 16:59:30 +0000 |
commit | 6652c8336ff201af224d6c0b787f5d79ec4f1810 (patch) | |
tree | 794890c79560e699edb06e59868357a5a5f68da0 /wizards/source/formwizard/Language.xba | |
parent | 0f757610e5cb4de88a9ef20a7563f9da2973f6ee (diff) |
MWS_SRX644: migrate branch mws_srx644 -> HEAD
Diffstat (limited to 'wizards/source/formwizard/Language.xba')
-rw-r--r-- | wizards/source/formwizard/Language.xba | 69 |
1 files changed, 48 insertions, 21 deletions
diff --git a/wizards/source/formwizard/Language.xba b/wizards/source/formwizard/Language.xba index e51e88aa0835..110b87a7074b 100644 --- a/wizards/source/formwizard/Language.xba +++ b/wizards/source/formwizard/Language.xba @@ -35,6 +35,9 @@ Public sMsgNoConnection as String Public sWriterFilterName as String Public XPixelFactor as Long Public YPixelFactor as Long +Public sSelectDatasource as String +Public sSelectDBTable as String + Sub LoadLanguage () @@ -61,11 +64,17 @@ End Sub Sub SetDialogLanguage () +Dim i as Integer +Dim ButtonHelpText as String +Dim CmdButton as Object +Dim IDArray as Variant +Dim FNameAddOn as String +Dim slblSelFields as String +Dim slblFields as String + DlgFormDB = LoadDialog("FormWizard", "DlgFormDB") DialogModel = DlgFormDB.Model - Dim FNameAddOn as String - With DialogModel .cmdCancel.Label = GetResText(RID_COMMON + 1) .cmdBack.Label = GetResText(RID_COMMON + 2) @@ -75,8 +84,10 @@ Sub SetDialogLanguage () .lblDatabases.Label = GetResText(RID_FORM + 11) .lblTables.Label = GetResText(RID_FORM + 6) - .lblFields.Label = GetResText(RID_FORM + 12) - .lblSelFields.Label = GetResText(RID_FORM + 13) + slblFields = GetResText(RID_FORM + 12) + slblSelFields = GetResText(RID_FORM + 13) + .lblFields.Label = slblFields + .lblSelFields.Label = slblSelFields .lblStyles.Label = GetResText(RID_FORM + 21) .hlnBorderLayout.Label = GetResText(RID_FORM + 28) @@ -105,25 +116,41 @@ Sub SetDialogLanguage () .optAlign0.State = 1 FNameAddOn = "" - If isHighContrast(DlgFormDB.getPeer) Then FNameAddOn = "_hc" - - .cmdArrange1.ImageURL = FormPath & "Arrange_1" & FNameAddOn & ".gif" - .cmdArrange1.HelpText = GetResText(RID_FORM + 36) - - .cmdArrange2.ImageURL = FormPath & "Arrange_2" & FNameAddOn & ".gif" - .cmdArrange2.HelpText = GetResText(RID_FORM + 37) - - .cmdArrange3.ImageURL = FormPath & "Arrange_3" & FNameAddOn & ".gif" - .cmdArrange3.HelpText = GetResText(RID_FORM + 40) - - .cmdArrange4.ImageURL = FormPath & "Arrange_4" & FNameAddOn & ".gif" - .cmdArrange4.HelpText = GetResText(RID_FORM + 38) - - .cmdArrange5.ImageURL = FormPath & "Arrange_5" & FNameAddOn & ".gif" - .cmdArrange5.HelpText = GetResText(RID_FORM + 39) - + If isHighContrast(DlgFormDB.getPeer) Then FNameAddOn = "_hc" + + IDArray = Array(36, 37, 40, 38, 39) + For i = 1 To 5 + ButtonHelpText = GetResText(RID_FORM + IDArray(i-1) + cmdButton = DlgFormDB.getControl("cmdArrange" & i) + cmdButton.Model.ImageURL = FormPath & "Arrange_" & i & FNameAddOn & ".gif" + cmdButton.Model.HelpText = ButtonHelpText + cmdButton.getPeer().setProperty("AccessibleName", ButtonHelpText) + Next i +' .cmdArrange1.ImageURL = FormPath & "Arrange_1" & FNameAddOn & ".gif" +' .cmdArrange1.HelpText = GetResText(RID_FORM + 36) +' +' .cmdArrange2.ImageURL = FormPath & "Arrange_2" & FNameAddOn & ".gif" +' .cmdArrange2.HelpText = GetResText(RID_FORM + 37) +' +' .cmdArrange3.ImageURL = FormPath & "Arrange_3" & FNameAddOn & ".gif" +' .cmdArrange3.HelpText = GetResText(RID_FORM + 40) +' +' .cmdArrange4.ImageURL = FormPath & "Arrange_4" & FNameAddOn & ".gif" +' .cmdArrange4.HelpText = GetResText(RID_FORM + 38) +' +' .cmdArrange5.ImageURL = FormPath & "Arrange_5" & FNameAddOn & ".gif" +' .cmdArrange5.HelpText = GetResText(RID_FORM + 39) sWriterFilterName = GetResText(RID_FORM + 70) End With + DlgFormDB.GetControl("cmdMoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 39) + DlgFormDB.GetControl("cmdRemoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 40) + DlgFormDB.GetControl("cmdMoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 41) + DlgFormDB.GetControl("cmdRemoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 42) + DlgFormDB.getControl("lstFields").getPeer().setProperty("AccessibleName", DeleteStr(slblFields, "~")) + DlgFormDB.getControl("lstSelFields").getPeer().setProperty("AccessibleName", DeleteStr(slblSelFields, "~")) + + sSelectDatasource = GetResText(RID_COMMON + 37) + sSelectDBTable = GetResText(RID_COMMON + 38) End Sub |