From cd025065505d57ad4f6db96d7dd2bbb4384ccdf6 Mon Sep 17 00:00:00 2001 From: Matthias Seidel Date: Mon, 20 Aug 2018 22:37:02 +0000 Subject: Deleted whitespace, fixed missing paranthesis MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit (cherry picked from commit 3d3594a2c542fef7c78936f8528eba4595f2768e) Change-Id: I5fc099b7b2677a3615f92aff738ae6958744e64b Reviewed-on: https://gerrit.libreoffice.org/59381 Tested-by: Jenkins Reviewed-by: Caolán McNamara Tested-by: Caolán McNamara --- wizards/source/gimmicks/ReadDir.xba | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'wizards') diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index fdd725ba5a8c..b604695082b2 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba @@ -87,7 +87,7 @@ Dim FileNames() as String ToggleDialogControls(False) oProgressBar.ProgressValueMin = 0 oProgressBar.ProgressValueMax = 100 - bStartUpRun = True + bStartUpRun = True nOldHeight = 200 nOldY = SBPAGEY nOldX = SBPAGEX @@ -156,7 +156,7 @@ Dim FileNames() as String nOldLevel = iCurLevel Next i ToggleDialogControls(True) - DlgReadDir.Model.cmdGoOn.Enabled = False + DlgReadDir.Model.cmdGoOn.Enabled = False End Sub @@ -166,7 +166,7 @@ Dim aPoint As New com.sun.star.awt.Point aPoint.X = CalculateXPoint() aPoint.Y = nOldY + SBRELDIST * nOldHeight - nOldY = aPoint.Y + nOldY = aPoint.Y oTextShape = oDocument.createInstance("com.sun.star.drawing.TextShape") oTextShape.LineStyle = 1 @@ -177,7 +177,7 @@ Dim aPoint As New com.sun.star.awt.Point oTextShape.TextAutoGrowHeight = TRUE oTextShape.String = FileName - ' Configure Size And Position of the TextShape according to its Scripting + ' Configure Size And Position of the TextShape according to its Scripting aPoint.X = iLevelPos(iCurLevel,SBBASEX) oTextShape.Position = aPoint CreateTextShape() = oTextShape @@ -246,7 +246,7 @@ Dim MaxFileIndex as Integer m = m + 1 DirContent() = oUcbObject.GetFolderContents(Source,True) If Ubound(DirContent()) <> -1 Then - MaxFileIndex = Ubound(DirContent()) + MaxFileIndex = Ubound(DirContent()) For i = 0 to MaxFileIndex FileName = DirContent(i) FileNameList(n,0) = FileName @@ -274,16 +274,16 @@ Sub CloseDialog End Sub -Sub AdjustPageHeight(lShapeHeight, FileCount) +Sub AdjustPageHeight(lShapeHeight, FileCount) Dim lNecHeight as Long Dim lBorders as Long oDocument.LockControllers lBorders = oPage.BorderTop + oPage.BorderBottom lNecHeight = SBPAGEY + (FileCount * SBRELDIST * lShapeHeight) If lNecHeight > (oPage.Height - lBorders) Then - oPage.Height = lNecHeight + lBorders + 500 + oPage.Height = lNecHeight + lBorders + 500 End If - oDocument.UnlockControllers + oDocument.UnlockControllers End Sub -- cgit