diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba index a7cfa16651b0..35a2436e2cf7 100644 --- a/wizards/source/formwizard/tools.xba +++ b/wizards/source/formwizard/tools.xba @@ -22,7 +22,7 @@ Option Explicit Public Const SBMAXTEXTSIZE = 50 -Function SetProgressValue(iValue as Integer) +Function SetProgressValue(iValue as Integer) If iValue = 0 Then oProgressbar.End End If @@ -84,7 +84,7 @@ Dim NullValue Else oControl.Model.EffectiveValue = oControl.Model.EffectiveMax End If - GetPeerSize() = oPeer.PreferredSize() + GetPeerSize() = oPeer.PreferredSize() oControl.Model.EffectiveValue = NullValue ElseIf Not IsMissing(LocText) Then oControl.Text = LocText @@ -106,7 +106,7 @@ Dim NullValue oControl.Text = Mid(SBSIZETEXT,1, SBMAXTEXTSIZE) Else oControl.Text = Mid(SBSIZETEXT,1, oControl.MaxTextLen) - End If + End If GetPeerSize() = oPeer.PreferredSize() oControl.Text = "" End If @@ -140,7 +140,7 @@ Function PixelTo100thMMY(oControl as Object) as long oPeer = oControl.GetPeer() PixelTo100mmX = Clng(Peer.GetInfo.PixelPerMeterY/100000) -' PixelTo100thMM = nValue * 28 ' not an exact calculation +' PixelTo100thMM = nValue * 28 ' not an exact calculation End function @@ -167,25 +167,25 @@ Dim OldIndex as Integer End If OldIndex = CurIndex CurIndex = GetCurIndex(DialogModel.lstStyles, Styles(),8) - If CurIndex <> OldIndex Then + If CurIndex <> OldIndex Then ToggleLayoutPage(False) Dim sImportPath as String sImportPath = Styles(CurIndex, 8) bWithBackGraphic = LoadNewStyles(oDocument, DialogModel, CurIndex, sImportPath, Styles(), TexturePath) ControlCaptionsToStandardLayout() - ToggleLayoutPage(True, "lstStyles") + ToggleLayoutPage(True, "lstStyles") End If WIZARDERROR: - If Err <> 0 Then + If Err <> 0 Then Msgbox(sMsgErrMsg, 16, GetProductName()) Resume LOCERROR - LOCERROR: + LOCERROR: End If End Sub -Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Object +Function SetNumerics(ByVal oLocObject as Object, iLocFieldType as Integer) as Object If CurControlType = cNumericBox Then oLocObject.TreatAsNumber = True Select Case iLocFieldType @@ -325,7 +325,7 @@ Function GetFormWizardPaths() as Boolean If FormPath <> "" Then WizardPath = GetOfficeSubPath("Template","wizard/") If Wizardpath <> "" Then - TexturePath = GetOfficeSubPath("Gallery", "www-back/") + TexturePath = GetOfficeSubPath("Gallery", "backgrounds/") If TexturePath <> "" Then WorkPath = GetPathSettings("Work") If WorkPath <> "" Then |