diff options
| author | andreas kainz <kainz.a@gmail.com> | 2018-02-11 00:43:03 +0100 |
|---|---|---|
| committer | Heiko Tietze <tietze.heiko@gmail.com> | 2018-02-18 14:38:41 +0100 |
| commit | 61bfc53ee710f9c79ac597888a6ee9dfee165ea4 (patch) | |
| tree | ce3495f4e1075ce5e9b04265aa3c392865279f39 /wizards | |
| parent | 7273bb3534264867e818c13baffcdf3862189cd2 (diff) | |
tdf#114817 new bitmap presets for Area Fill
Change-Id: Icc48efc2f6c085ccf0754620dc1cbf5132a7f824
Reviewed-on: https://gerrit.libreoffice.org/49551
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Heiko Tietze <tietze.heiko@gmail.com>
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 |