diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2016-12-25 18:04:59 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-01-12 11:40:49 +0100 |
| commit | de5222082f6652a0ff8715ad9e908b45e893db64 (patch) | |
| tree | 490f88cb6332cb18218266ec9bdfa2d89f0af37a /wizards | |
| parent | 92608b890928b6d10931f4aad3385bb87284181d (diff) | |
Access2Base - Recognize correctly formatted fields
New ImplementationName introduced in LO 5.1
Change-Id: Ifa181570575622aca27520397f2e88cbc9742d1e
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Control.xba | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba index f02b46cca644..9319895a50af 100644 --- a/wizards/source/access2base/Control.xba +++ b/wizards/source/access2base/Control.xba @@ -1169,6 +1169,7 @@ Dim sControlTypes() As Variant, i As Integer, vSplit() As Variant, sTrailer As S _ControlType = _ClassId If _SubType = CTLTEXTFIELD Then ' Formatted fields belong to the TextField family If _ImplementationName = "com.sun.star.comp.forms.OFormattedFieldWrapper" _ + Or _ImplementationName = "com.sun.star.comp.forms.OFormattedFieldWrapper_ForcedFormatted" _ Or _ImplementationName = "com.sun.star.form.component.FormattedField" Then ' When in datagrid _SubType = CTLFORMATTEDFIELD _ControlType = acFormattedField |