diff options
| author | Matthias Seidel <mseidel@apache.org> | 2018-08-20 22:37:02 +0000 |
|---|---|---|
| committer | Caolán McNamara <caolanm@redhat.com> | 2018-08-21 14:58:09 +0200 |
| commit | cd025065505d57ad4f6db96d7dd2bbb4384ccdf6 (patch) | |
| tree | 87e10d993b59b0a2e2ce84b53105d6fc8a15cb38 /wizards | |
| parent | 29140ebaa7226ddab129010bd16306ffeeb13efc (diff) | |
Deleted whitespace, fixed missing paranthesis
(cherry picked from commit 3d3594a2c542fef7c78936f8528eba4595f2768e)
Change-Id: I5fc099b7b2677a3615f92aff738ae6958744e64b
Reviewed-on: https://gerrit.libreoffice.org/59381
Tested-by: Jenkins
Reviewed-by: Caolán McNamara <caolanm@redhat.com>
Tested-by: Caolán McNamara <caolanm@redhat.com>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/gimmicks/ReadDir.xba | 16 |
1 files changed, 8 insertions, 8 deletions
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 |