You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@openoffice.apache.org by ms...@apache.org on 2018/08/20 22:37:02 UTC
svn commit: r1838508 -
/openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba
Author: mseidel
Date: Mon Aug 20 22:37:02 2018
New Revision: 1838508
URL: http://svn.apache.org/viewvc?rev=1838508&view=rev
Log:
Deleted whitespace, fixed missing paranthesis
Modified:
openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba
Modified: openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba
URL: http://svn.apache.org/viewvc/openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba?rev=1838508&r1=1838507&r2=1838508&view=diff
==============================================================================
--- openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba (original)
+++ openoffice/trunk/main/wizards/source/gimmicks/ReadDir.xba Mon Aug 20 22:37:02 2018
@@ -90,7 +90,7 @@ Dim FileNames() as String
ToggleDialogControls(False)
oProgressBar.ProgressValueMin = 0
oProgressBar.ProgressValueMax = 100
- bStartUpRun = True
+ bStartUpRun = True
nOldHeight = 200
nOldY = SBPAGEY
nOldX = SBPAGEX
@@ -159,7 +159,7 @@ Dim FileNames() as String
nOldLevel = iCurLevel
Next i
ToggleDialogControls(True)
- DlgReadDir.Model.cmdGoOn.Enabled = False
+ DlgReadDir.Model.cmdGoOn.Enabled = False
End Sub
@@ -169,7 +169,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
@@ -180,7 +180,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
@@ -249,7 +249,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
@@ -266,7 +266,7 @@ Dim MaxFileIndex as Integer
End If
Next i
End If
- Loop Until m > Ubound(DirList()
+ Loop Until m > Ubound(DirList())
ReDim Preserve FileNameList(n-1,1) as String
ReadSourceDirectory() = FileNameList()
End Function
@@ -277,16 +277,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