diff options
Diffstat (limited to 'wizards/source/gimmicks/Userfields.xba')
| -rw-r--r-- | wizards/source/gimmicks/Userfields.xba | 18 |
1 files changed, 9 insertions, 9 deletions
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> |