diff options
| author | Andrea Gelmini <andrea.gelmini@gelma.net> | 2021-02-03 11:44:13 +0100 |
|---|---|---|
| committer | Julien Nabet <serval2412@yahoo.fr> | 2021-02-03 21:03:16 +0100 |
| commit | 4ab47c811f96846f9192fc94429bf8070a0cef9f (patch) | |
| tree | 2012db229b67c8b119b8072c358a58036e177f5c /wizards | |
| parent | 183c06fc02a50fb117bb6162e4d6e56cdd34fad1 (diff) | |
Fix typos
Change-Id: I322b1176c02b33336e4e393e565ad66f43eb42a0
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/110343
Tested-by: Jenkins
Reviewed-by: Julien Nabet <serval2412@yahoo.fr>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/sfdocuments/SF_FormControl.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/sfdocuments/SF_FormControl.xba b/wizards/source/sfdocuments/SF_FormControl.xba index d136cb21769b..242f2c0e6405 100644 --- a/wizards/source/sfdocuments/SF_FormControl.xba +++ b/wizards/source/sfdocuments/SF_FormControl.xba @@ -1089,7 +1089,7 @@ End Sub ' SFDocuments.SF_FormControl._Initialize REM ----------------------------------------------------------------------------- Private Function _ListboxBound() As Boolean -''' Return True if te actual control, which is a listbox, has a bound column +''' Return True if the actual control, which is a listbox, has a bound column ''' Called before setting the value of a listbox, i.e. the value to be rewritten in the underlying table data ''' The existence of a bound column is derived from the comparison between StringItemList and ValueItemList ''' String ... : the strings displayed in the list box @@ -1426,7 +1426,7 @@ Const cstSubArgs = "" If oSession.HasUnoProperty(_ControlModel, "StringItemList") And oSession.HasUnoProperty(_ControlModel, "SelectedItems") _ And oSession.HasUnoProperty(_ControlModel, "MultiSelection") Then vSelection = _ControlModel.SelectedItems - ' The list of allowed values depends on the exisence of a bound column + ' The list of allowed values depends on the existence of a bound column If _ListBoxBound() Then vList = _ControlModel.ValueItemList Else vList = _ControlModel.StringItemList If _ControlModel.MultiSelection Then vValues = Array() For i = 0 To UBound(vSelection) @@ -1745,7 +1745,7 @@ Const cstSubArgs = "Value" If oSession.HasUnoProperty(_ControlModel, "StringItemList") And oSession.HasUnoProperty(_ControlModel, "SelectedItems") Then ' Setting the value on a listbox is allowed only if single value and value in the list If Not ScriptForge.SF_Utils._Validate(pvValue, "Value", Array(V_STRING, ScriptForge.V_NUMERIC)) Then GoTo Finally - ' The list of allowed values depends on the exisence of a bound column + ' The list of allowed values depends on the existence of a bound column If _ListboxBound() Then vList = _ControlModel.ValueItemList Else vList = _ControlModel.StringItemList If Not ScriptForge.SF_Utils._Validate(pvValue, "Value", , vList) Then GoTo Finally _ControlModel.SelectedItems = Array(ScriptForge.SF_Array.IndexOf(vList, pvValue, CaseSensitive := True)) |