diff options
Diffstat (limited to 'wizards/source/importwizard')
| -rw-r--r-- | wizards/source/importwizard/Main.xba | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba index e0e7d7071c8b..8084fda702cb 100644 --- a/wizards/source/importwizard/Main.xba +++ b/wizards/source/importwizard/Main.xba @@ -8,6 +8,7 @@ Public ImportDialog as Object Public ImportDialogArea as Object Public oFactoryKey as Object Public bShowLogFile as Boolean +Public oBinFilterComp as Object ' If the ProgressPage ist already on Top The Dialog will be immediately closed when this flag is ' set to False @@ -43,7 +44,9 @@ Sub Main() ImportDialog.ImportPreview.BackGroundColor = RGB(0,60,126) ImportDialog.cmdGoOn.DefaultButton = True ImportDialogArea.GetControl("optMSDocuments").SetFocus() - ToggleCheckboxesWithBoolean(False) + oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" ) + ToggleCheckboxesWithBoolean(True) + RetValue = ImportDialogArea.Execute() If bShowLogFile=TRUE Then OpenDocument(sLogUrl, NoArgs()) @@ -125,6 +128,7 @@ Dim iCurStep as Integer FillStep_InputPaths(CurOffice, False) Else FillStep_Welcome() + ToggleCheckboxesWithBoolean(True) bDoKeepApplValues = True End If End Select @@ -206,7 +210,7 @@ Sub ToggleCheckboxes(oEvent as Object) Dim bMSEnable as Boolean WizardMode = oEvent.Source.Model.Tag bMSEnable = WizardMode = "MS" - ToggleCheckBoxesWithBoolean(bMSEnable) + ToggleCheckboxesWithBoolean(bMSEnable) End Sub @@ -219,10 +223,18 @@ Sub ToggleCheckboxesWithBoolean(bMSEnable as Boolean) MaxApplCount = 4 End If With ImportDialogArea - .GetControl("chkSOApplication1").Model.Enabled = Not bMSEnable - .GetControl("chkSOApplication2").Model.Enabled = Not bMSEnable - .GetControl("chkSOApplication3").Model.Enabled = Not bMSEnable - .GetControl("chkSOApplication4").Model.Enabled = Not bMSEnable + If (isNull(oBinFilterComp)) Then + .GetControl("optSODocuments").Visible = False + .GetControl("chkSOApplication1").Visible = False + .GetControl("chkSOApplication2").Visible = False + .GetControl("chkSOApplication3").Visible = False + .GetControl("chkSOApplication4").Visible = False + Else + .GetControl("chkSOApplication1").Model.Enabled = Not bMSEnable + .GetControl("chkSOApplication2").Model.Enabled = Not bMSEnable + .GetControl("chkSOApplication3").Model.Enabled = Not bMSEnable + .GetControl("chkSOApplication4").Model.Enabled = Not bMSEnable + End if .GetControl("chkMSApplication1").Model.Enabled = bMSEnable .GetControl("chkMSApplication2").Model.Enabled = bMSEnable .GetControl("chkMSApplication3").Model.Enabled = bMSEnable |