diff options
| author | Tom Verbeek <tv@openoffice.org> | 2001-04-25 09:10:51 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2001-04-25 09:10:51 +0000 |
| commit | 374faa1fe260c75d507dc59553a6b4be53d94247 (patch) | |
| tree | 280a3620cc7223cbdf0f992554a0231caf59b703 /wizards/source/gimmicks | |
| parent | a73f0bfad51f25f370e9e52c11b5074e8fcc35f5 (diff) | |
changed 'LoadLibrary' to 'BasicLibraries.LoadLibrary'
Diffstat (limited to 'wizards/source/gimmicks')
| -rw-r--r-- | wizards/source/gimmicks/AutoText.xba | 14 | ||||
| -rw-r--r-- | wizards/source/gimmicks/ChangeAllChars.xba | 20 | ||||
| -rw-r--r-- | wizards/source/gimmicks/GetTexts.xba | 62 | ||||
| -rw-r--r-- | wizards/source/gimmicks/ReadDir.xba | 48 | ||||
| -rw-r--r-- | wizards/source/gimmicks/Userfields.xba | 18 |
5 files changed, 81 insertions, 81 deletions
diff --git a/wizards/source/gimmicks/AutoText.xba b/wizards/source/gimmicks/AutoText.xba index e40a3f8a7c75..ee97d0a6084d 100644 --- a/wizards/source/gimmicks/AutoText.xba +++ b/wizards/source/gimmicks/AutoText.xba @@ -11,27 +11,27 @@ Dim oAutoTextContainer, oAutogroup, oAutoText as Object Dim oCharStyles, oContentStyle, oHeaderStyle, oGroupTitleStyle as Object Dim n, m, iAutoCount as Integer - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") LoadLanguage(StarDesktop.ISOLocale.Language) - ' Open a new empty document + ' Open a new empty document oDocument = StarDesktop.LoadComponentFromURL("staroffice:factory/swriter","_blank",0,NoArgs) oDocuText = oDocument.Text ' Create The Character-templates oCharStyles = oDocument.StyleFamilies.GetByName("CharacterStyles") - + ' The Characterstyle for the Header that describes the Title of Autotextgroups oGroupTitleStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle") - oGroupTitleStyle.charWeight = com.sun.star.awt.FontWeight.BOLD + oGroupTitleStyle.charWeight = com.sun.star.awt.FontWeight.BOLD oGroupTitleStyle.CharHeight = 14 oCharStyles.InsertbyName("AutoTextGroupTitle", oGroupTitleStyle) ' The Characterstyle for the Header that describes the Title of Autotextgroups oHeaderStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle") - oHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD + oHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD oCharStyles.InsertbyName("AutoTextHeading", oHeaderStyle) - + ' "Ordinary" Table Content oContentStyle = oDocument.createInstance("com.sun.star.style.CharacterStyle") oCharStyles.InsertbyName("TableContent", oContentStyle) @@ -80,4 +80,4 @@ Dim oCellCursor as Object oCellCursor = oCell.CreateTextCursor() oCellCursor.CharStyle = sCellStyle oCell.Text.insertString(oCellCursor,sCellString,False) -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> diff --git a/wizards/source/gimmicks/ChangeAllChars.xba b/wizards/source/gimmicks/ChangeAllChars.xba index 69dcd32b12c3..a7a769de9ff6 100644 --- a/wizards/source/gimmicks/ChangeAllChars.xba +++ b/wizards/source/gimmicks/ChangeAllChars.xba @@ -15,7 +15,7 @@ Dim i as Integer Const MBYES = 6 Const MBABORT = 2 Const MBNO = 7 - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") Call SetLanguage On Local Error GoTo NODOCUMENT @@ -26,13 +26,13 @@ Const MBNO = 7 Exit Sub End If On Local Error Goto 0 - + sDocType = GetDocumentType(oDocument) If oDocument.IsModified And oDocument.Url <> "" Then Status = MsgBox(NOTSAVEDTEXT, 3+32, MSGBOXTITLE) Select Case Status - Case MBYES + Case MBYES oDocument.Store Case MBABORT, MBNO End @@ -46,15 +46,15 @@ Const MBNO = 7 Select Case sDocType Case "sWriter" - ReplaceAllStrings(oDocument) + ReplaceAllStrings(oDocument) Case Else - Msgbox("This Macro only works with Writer-Documents!", 16, "StarOffice 5.2") + Msgbox("This Macro only works with Writer-Documents!", 16, "StarOffice 5.2") End Select End Sub -Sub ReplaceAllStrings(oContainer as Object) +Sub ReplaceAllStrings(oContainer as Object) ReplaceStrings(oContainer, "[a-z]", LOWERREPLACECHAR) ReplaceStrings(oContainer, "[à-þ]", LOWERREPLACECHAR) ReplaceStrings(oContainer, "[A-Z]", UPPERREPLACECHAR) @@ -69,7 +69,7 @@ Sub ReplaceStrings(oContainer as Object, sSearchString, sReplaceString as Strin oReplaceDesc.SearchRegularExpression = True oReplaceDesc.Searchstring = sSearchString oReplaceDesc.ReplaceString = sReplaceString - oReplCount = oContainer.ReplaceAll(oReplaceDesc) + oReplCount = oContainer.ReplaceAll(oReplaceDesc) End Sub @@ -87,12 +87,12 @@ Dim ISOLanguage as String Case "fr" MSGBOXTITLE = "Remplacer tous les caractères par '" & UPPERREPLACECHAR & "'" NOTSAVEDTEXT = "Le document a été modifé, la macro remplacera tous les caractères par '" & UPPERREPLACECHAR & "'. Enregistrer avant de procéder?" - WARNING = "La macro remplacera tous les caractères et nombres par '" & UPPERREPLACECHAR & "' dans le document." + WARNING = "La macro remplacera tous les caractères et nombres par '" & UPPERREPLACECHAR & "' dans le document." Case "it" MSGBOXTITLE = "Sostituire tutti i caratteri '" & UPPERREPLACECHAR & "'" NOTSAVEDTEXT = "Il documento è stato modificato, la macro sostituerà tutti i caratteri con '" & UPPERREPLACECHAR & "'. Salvare il documento prima di procedere?" - WARNING = "La macro sostituirà tutti i caratteri e numeri con '" & UPPERREPLACECHAR & "' nel documento attivo." + WARNING = "La macro sostituirà tutti i caratteri e numeri con '" & UPPERREPLACECHAR & "' nel documento attivo." Case "es" MSGBOXTITLE = "Sustituir todos los caracteres por '" & UPPERREPLACECHAR & "'" @@ -127,4 +127,4 @@ Dim ISOLanguage as String WARNING = "This macro changes all characters and numbers to an '" & UPPERREPLACECHAR & "' in this document." End Select End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index 0788bec81f50..eb0fdb442e8f 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -11,7 +11,7 @@ ' Namen von Notizenseiten mit Peter durchsprechen ' Macro-Description: -' This Macro extracts the Strings out of the currently activated document und inserts them into a logdocument +' This Macro extracts the Strings out of the currently activated document und inserts them into a logdocument ' The aim of the macro is to provide the programmer an insight into the StarOffice API ' It focusses on how document-Objects are accessed. ' Therefor not only texts of the document-body are retrieved but also Texts of general @@ -28,7 +28,7 @@ Dim sDocType as String Dim oHyperCursor as Object Dim oCharStyles as Object - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") On Local Error GoTo NODOCUMENT oDocument = StarDesktop.ActiveFrame.Controller.Model @@ -40,22 +40,22 @@ Dim oCharStyles as Object Exit Sub End If On Local Error Goto 0 - + ' Open a new document where all the texts are inserted - oLogDocument = StarDesktop.LoadComponentFromURL( "staroffice:factory/swriter","_blank",0,NoArgs()) + oLogDocument = StarDesktop.LoadComponentFromURL( "staroffice:factory/swriter","_blank",0,NoArgs()) oLogText = oLogDocument.Text ' create and define the character styles of the Log-document oCharStyles = oLogDocument.StyleFamilies.GetByName("CharacterStyles") oLogHeaderStyle = oLogDocument.createInstance("com.sun.star.style.CharacterStyle") - oLogHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD + oLogHeaderStyle.charWeight = com.sun.star.awt.FontWeight.BOLD oLogBodyTextStyle = oLogDocument.createInstance("com.sun.star.style.CharacterStyle") oCharStyles.InsertbyName("LogHeading", oLogHeaderStyle) oCharStyles.InsertbyName("LogBodyText", oLogBodyTextStyle) ' Insert the title of the activated document as a hyperlink oHyperCursor = oLogText.createTextCursor() - oHyperCursor.charWeight = com.sun.star.awt.FontWeight.BOLD + oHyperCursor.charWeight = com.sun.star.awt.FontWeight.BOLD oHyperCursor.gotoStart(False) oHyperCursor.HyperLinkURL = oDocument.URL oHyperCursor.HyperLinkTarget = oDocument.URL @@ -84,7 +84,7 @@ Dim oCharStyles as Object Case "sDraw" GetDrawStrings() Case Else - Msgbox("This Macro only works with Writer-, Calc or Draw/Impress-Documents!", 16, "StarOffice 5.2") + Msgbox("This Macro only works with Writer-, Calc or Draw/Impress-Documents!", 16, "StarOffice 5.2") End Select End Sub @@ -92,7 +92,7 @@ End Sub ' ***********************************************Calc-Documents************************************************** -Sub GetCalcStrings() +Sub GetCalcStrings() Dim i, n as integer Dim oSheet as Object Dim SheetName as String @@ -117,7 +117,7 @@ Dim oSheets as Object GetChartStrings(oSheet, "Charts of '" & SheetName & "'") - GetControlStrings(oSheet.DrawPage, "Controls of '" & SheetName & "'") + GetControlStrings(oSheet.DrawPage, "Controls of '" & SheetName & "'") Next ' Pictures @@ -127,10 +127,10 @@ Dim oSheets as Object End Sub -Sub GetCellTexts(oSheet as Object) +Sub GetCellTexts(oSheet as Object) Dim BigRange, BigEnum, oCell as Object BigRange = oDocument.CreateInstance("com.sun.star.sheet.SheetCellRanges") - BigRange.InsertbyName("",oSheet) + BigRange.InsertbyName("",oSheet) BigEnum = BigRange.GetCells.CreateEnumeration While BigEnum.hasmoreElements oCell = BigEnum.NextElement @@ -147,7 +147,7 @@ Dim n as Integer oNotes = oSheet.getAnnotations If oNotes.hasElements() then MakeLogHeadLine(HeaderLine) - For n = 0 to oNotes.Count-1 + For n = 0 to oNotes.Count-1 WriteStringtoLogFile(oNotes.GetbyIndex(n).String) Next End if @@ -185,7 +185,7 @@ Dim i as integer Dim oCellNames() Dim oCell as Object - MakeLogHeadLine(HeadLine) + MakeLogHeadLine(HeadLine) ParaEnum = oParaObject.Text.CreateEnumeration While ParaEnum.HasMoreElements @@ -220,7 +220,7 @@ Dim i as Integer Dim aChartObject as Object Dim aChartDiagram as Object - MakeLogHeadLine(HeaderLine) + MakeLogHeadLine(HeaderLine) For i = 0 to oSheet.Charts.Count-1 aChartObject = oSheet.Charts.GetByIndex(i).EmbeddedObject @@ -263,7 +263,7 @@ Dim oFrameTextPort as Object oTextFrame = oDocument.TextFrames.GetbyIndex(i) WriteStringToLogFile(oTextFrame.Name) - ' Is the frame bound to the Page + ' Is the frame bound to the Page If oTextFrame.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE Then GetParagraphTexts(oTextFrame, "Textframe Content") End If @@ -338,14 +338,14 @@ End Sub Sub GetWriterStrings() GetParagraphTexts(oDocument, "Document Body") - GetGraphicNames() + GetGraphicNames() GetStyles() - GetControlStrings(oDocument.DrawPage, "Controls") + GetControlStrings(oDocument.DrawPage, "Controls") GetTextFieldStrings() GetSectionNames() GetFrameTexts() GetHyperLinks - GetLinkedFileNames() + GetLinkedFileNames() End Sub @@ -363,9 +363,9 @@ Dim oPage as Object ' Get the Name of the NotesPage (only relevant for Impress-Documents) If oDocument.supportsService("com.sun.star.presentation.PresentationDocument") then WriteStringtoLogFile(oPage.NotesPage.Name) - End If + End If End If - Next + Next End Sub @@ -401,7 +401,7 @@ Dim oDPages, oMPages as Object GetDrawPageTitles(oDPages) GetDrawPageTitles(oMPages) - MakeLogHeadLine("Document Body") + MakeLogHeadLine("Document Body") GetPageStrings(oDPages) GetPageStrings(oMPages) End Sub @@ -467,7 +467,7 @@ End Sub Sub GetStyles() Dim m,n as integer MakeLogHeadLine("Userdefined Templates") - + ' Check all StyleFamilies(i.e. PageStyles, ParagraphStyles, CharacterStyles, cellStyles) For n = 0 to oDocument.StyleFamilies.Count - 1 For m = 0 to oDocument.StyleFamilies.getbyIndex(n).Count-1 @@ -482,7 +482,7 @@ End Sub Sub GetControlStrings(oDPage as Object, HeaderLine as String) Dim aForm as Object Dim m,n as integer - MakeLogHeadLine(HeaderLine) + MakeLogHeadLine(HeaderLine) 'SearchFor all possible Controls For n = 0 to oDPage.Forms.Count - 1 aForm = oDPage.Forms(n) @@ -541,12 +541,12 @@ End Sub 'Dim LeaveLoop as Boolean ' oSearchDesc = oDocument.createSearchDescriptor() -' oSearchDesc.SearchRegularExpression = True -' oSearchDesc.Searchstring = SearchString & """" & "*" & """" -' oFoundall = oDocument.FindAll(oSearchDesc) +' oSearchDesc.SearchRegularExpression = True +' oSearchDesc.Searchstring = SearchString & """" & "*" & """" +' oFoundall = oDocument.FindAll(oSearchDesc) ' For i = 0 to oFoundAll.Count-1 -' oFound = oFoundall(i) +' oFound = oFoundall(i) ' oTextCursor = oDocument.text.CreateTextCursorbyRange(oFound) ' oTextCursor.GotoNextWord(false) ' oTextCursor.GotoStartofWord(True) @@ -555,7 +555,7 @@ End Sub ' If Left(TTString,1) = """" Then ' LeaveLoop = False ' oTextCursor.GoRight(1,True) -' Do +' Do ' oTextCursor.GoRight(1,True) ' TTString = TTString + Right(oTextCursor.String,1) ' If Right(oTextCursor.String,1) = """" Then @@ -579,7 +579,7 @@ End Sub ' FileProperties(0).Value = "swriter: TEXT" ' FilePath = oDocument.URL ' oDocument.Dispose -' +' ' oDocument = OpenDocument(FilePath,FileProperties(),StarDesktop) '!!!!!!! ' ' MakeLogHeadLine("Alternativtexte") @@ -606,7 +606,7 @@ Dim oDisp as Object oUrl.Complete = "slot:6517" oTrans.parsestrict(oUrl) - oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) + oDisp = StarDesktop.currentFrame.queryDispatch(oUrl, "_self", 0) oDisp.dispatch(oUrl, oArg()) End Sub -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba index 806188cc45fb..60863caf5723 100644 --- a/wizards/source/gimmicks/ReadDir.xba +++ b/wizards/source/gimmicks/ReadDir.xba @@ -38,8 +38,8 @@ Public oOldArrivingLine As Object Sub Main - LoadLibrary("tools") - LoadLibrary("template") + BasicLibraries.LoadLibrary("Tools") + BasicLibraries.LoadLibrary("Template") ReadDirDlg.Load ReadDirDlg.Show End Sub @@ -54,7 +54,7 @@ Dim oPage As Object Dim oOldPage As Object Dim i, n, s as Integer Dim bStartUpRun As Boolean -Dim FileNames(600,2) as String +Dim FileNames(600,2) as String Dim CurFile as String Dim BaseLevel as Integer Dim oController as Object @@ -67,25 +67,25 @@ Dim oStatusline as Object nOldX = SBPAGEX nOldWidth = SBPAGEX iCurPage = 0 - + oDesktop = createUnoService("com.sun.star.frame.Desktop") oDocument = StarDesktop.ActiveFrame.Controller.Model oPage = oDocument.DrawPages(iCurPage) oStatusline = oDocument.GetCurrentController.GetFrame.GetStatusIndicator oStatusLine.Start("Fortschritt:",100) oController = oDocument.GetCurrentController - Source = ConvertToURL(ReadDirdlg.Textbox1.Text) + Source = ConvertToURL(ReadDirdlg.Textbox1.Text) BaseLevel = CountCharsInString(Source, "/", 1) - oStatusline.SetValue(2) + oStatusline.SetValue(2) FileNames() = ReadSourceDirectory(Source) oStatusline.SetValue(8) FileNames() = BubbleSortList(FileNames()) oStatusline.SetValue(10) - + FileCount = Val(FileNames(0,0)) For i = 1 To FileCount - oStatusLine.SetValue(10 + i/FileCount * 90) + oStatusLine.SetValue(10 + i/FileCount * 90) CurFile = FileNames(i,1) iCurLevel= CountCharsInString(FileNames(i,0), "/", 1) - BaseLevel If iCurLevel <> 0 Then @@ -117,11 +117,11 @@ REM ck SBNEWENDX, SBNEWENDY) REM The Current TextShape has To be connected with a TextShape REM one Level higher -REM - except For a TextShape In Level 0 +REM - except For a TextShape In Level 0 REM Line Coordinates - If Not bStartUpRun Then - + If Not bStartUpRun Then + REM A leaving Line Is only drawn when level is not 0 If iCurLevel<> 0 Then REM Determine the Coordinates of the arriving Line @@ -137,7 +137,7 @@ REM Determine the End-Coordinates of the last leaving Line iLevelPos(nConnectLevel,SBNEWENDX) = iLevelPos(nConnectLevel,SBNEWSTARTX) iLevelPos(nConnectLevel,SBNEWENDY) = oCurTextShape.Position.Y + 0.5 * oCurTextShape.Size.Height Else -REM On Level 0 the last Leaving Line's endpoint +REM On Level 0 the last Leaving Line's endpoint REM is the upper edge of the textShape iLevelPos(nConnectLevel,SBNEWENDY) = oCurTextShape.Position.Y iLevelPos(nConnectLevel,SBNEWENDX) = iLevelPos(nConnectLevel,SBNEWSTARTX) @@ -152,7 +152,7 @@ REM StartingPoint of the leaving edge REM Determine the beginning Coordinates of the leaving Line iLevelPos(iCurLevel,SBNEWSTARTX) = iLevelPos(iCurLevel,SBBASEX) + 0.5 * oCurTextShape.Size.Width iLevelPos(iCurLevel,SBNEWSTARTY) = iLevelPos(iCurLevel,SBBASEY) + oCurTextShape.Size.Height - + REM Save the values For the Next run nOldHeight = oCurTextShape.Size.Height nOldX = oCurTextShape.Position.X @@ -174,11 +174,11 @@ Dim PageWidth, BaseX, TextWidth Dim aPoint As New com.sun.star.awt.Point Dim aSize As New com.sun.star.awt.Size - aSize.Width = SBBASEWIDTH - aSize.Height = SBBASEHEIGHT + aSize.Width = SBBASEWIDTH + aSize.Height = SBBASEHEIGHT aPoint.x = CalculateXPoint() - aPoint.y = nOldY + SBRELDIST * nOldHeight + aPoint.y = nOldY + SBRELDIST * nOldHeight nOldY = aPoint.y oTextShape = oDocument.createInstance("com.sun.star.drawing.TextShape") @@ -187,7 +187,7 @@ Dim aSize As New com.sun.star.awt.Size oPage.add(oTextShape) oTextShape.LineStyle = 1 - oTextShape.Charheight = SBBASECHARHEIGHT + oTextShape.Charheight = SBBASECHARHEIGHT oTextShape.TextAutoGrowWidth = TRUE oTextShape.TextAutoGrowHeight = TRUE oTextShape.String = FileName @@ -206,7 +206,7 @@ REM Configure Size And Position of the TextShape according to its Scripting End If oTextShape.Size = aSize iLevelPos(iCurLevel,SBBASEY) = oTextShape.Position.Y - CreateTextShape = oTextShape + CreateTextShape = oTextShape End Function @@ -227,7 +227,7 @@ End Function -Function DrawLine(nLevel, nStartX, nStartY, nEndX, nEndY As Integer, oPage as Object) +Function DrawLine(nLevel, nStartX, nStartY, nEndX, nEndY As Integer, oPage as Object) Dim oConnect As Object aPoint.X = iLevelPos(nLevel,nStartX) @@ -262,14 +262,14 @@ Dim FileName as string Dim FileNameList(2000,1) as String Dim DirList(200) as String Dim oUCBobject as Object - + oUcbobject = createUnoService("com.sun.star.ucb.SimpleFileAccess") 'isfolder m = 0 s = 1 DirList(0) = Source - FileNameList(1,0) = Source - FileNameList(1,1) = GetFileNameoutofPath(Source) + FileNameList(1,0) = Source + FileNameList(1,1) = GetFileNameoutofPath(Source) n = 2 Do Source = DirList(m) @@ -282,7 +282,7 @@ Dim oUCBobject as Object For i = 0 to FilecountinDir -1 FileName = DirContent(i) FilenameList(n,0) = FileName - FileNameList(n,1) = GetFileNameOutofPath(FileName) + FileNameList(n,1) = GetFileNameOutofPath(FileName) n = n + 1 If oUcbObject.IsFolder(FileName) Then DirList(s) = FileName @@ -295,4 +295,4 @@ Dim oUCBobject as Object FileNameList(0,0) = n - 1 ReadSourceDirectory = FileNameList() End Function -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/gimmicks/Userfields.xba b/wizards/source/gimmicks/Userfields.xba index de7f789d7009..c9fd0e374475 100644 --- a/wizards/source/gimmicks/Userfields.xba +++ b/wizards/source/gimmicks/Userfields.xba @@ -17,7 +17,7 @@ Sub StartChangesUserfields Dim a as Integer Dim CurElement, TFMaster as Object - LoadLibrary("tools") + BasicLibraries.LoadLibrary("Tools") LoadLanguage(StarDesktop.ISOLocale.Language) ScrollBarValue = 0 UserFieldDatatype(0) = "COMPANY" @@ -32,9 +32,9 @@ Dim CurElement, TFMaster as Object UserFieldDatatype(9) = "POSITION" UserFieldDatatype(10) = "PHONE_PRIVATE" UserFieldDatatype(11) = "PHONE_COMPANY" - UserFieldDatatype(12) = "FAX" - UserFieldDatatype(13) = "EMAIL" - UserFieldDatatype(14) = "STATE" + UserFieldDatatype(12) = "FAX" + UserFieldDatatype(13) = "EMAIL" + UserFieldDatatype(14) = "STATE" On Local Error GoTo NODOCUMENT oDocument = StarDesktop.ActiveFrame.Controller.Model @@ -45,7 +45,7 @@ Dim CurElement, TFMaster as Object Exit Sub End If On Local Error Goto 0 - + ' Define TextFields aTextfield = oDocument.getTextfields aTextFieldEnum = aTextField.CreateEnumeration @@ -111,14 +111,14 @@ End Sub Sub Dlg_Scroll(ScrollValue) Call ChangeArray(ScrollBarValue) - ScrollBarValue = UserfieldDlg.VScrollbar.Value + ScrollBarValue = UserfieldDlg.VScrollbar.Value If (ScrollBarValue + MaxFieldCount) > iUserFieldCount Then ScrollBarValue = iUserFieldCount - MaxFieldCount End If For a = 1 To MaxFieldCount LabelArray(a).Caption = UserFieldName(a + ScrollBarValue) - EditArray(a).Text = UserFieldValue(a + ScrollBarValue) + EditArray(a).Text = UserFieldValue(a + ScrollBarValue) Next a End Sub @@ -191,6 +191,6 @@ Sub SetDialogText UserfieldDlg.caption = HeaderLabel UserfieldDlg.HeaderLabel.Caption = HeaderLabel UserfieldDlg.CancelChanges.Caption = CancelButton - UserfieldDlg.SaveChanges.Caption = SaveButton + UserfieldDlg.SaveChanges.Caption = SaveButton End Sub -</script:module>
\ No newline at end of file +</script:module> |