Access2Base new release - V1.1.0

Access2Base library can be run to access a database defined in any form stored
in any AOO/LibO document. Now CurrentDb method may be associated with a form
object, not only with the root class.The OpenDatabase method allows any
AOO/LibO document to get access to tables stored in any database.
RunSQL, OpenSQL, database functions have been extended to be run from
a database object, not only as a command. The CopyObject (new) action copies
query definitions and/or table definitions and data.
Creation of table and fields without SQL with the CreateTableDef, CreateField
and Append methods. The Description property of a TableDef is writable.
New GetHiddenAttribute and SetHiddenAttribute actions hide or show any
AOO/LibO or Base object. SelectObject scope has been extended accordingly.
Addition of the SelStart, SelLength and SelText properties for text controls.

Change-Id: I163f3bcb0f63dc346e1bd23729356ebe556c6592
Reviewed-on: https://gerrit.libreoffice.org/9303
Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu>
Tested-by: Lionel Elie Mamane <lionel@mamane.lu>

1 files changed, 37 insertions, 1 deletions

diff --git a/wizards/source/access2base/PropertiesSet.xba b/wizards/source/access2base/PropertiesSet.xba
index 58a3eeaa1952..bdd6dbf76ba3 100644
--- a/wizards/source/access2base/PropertiesSet.xba
+++ b/wizards/source/access2base/PropertiesSet.xba
@@ -96,6 +96,12 @@ Public Function setDefaultValue(Optional pvObject As Variant, ByVal Optional pvV
 End Function		'	setDefaultValue
 
 REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setDescription(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
+	If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments("setDescription")
+	setDescription = PropertiesSet._setProperty(pvObject, "Description", pvValue)
+End Function		'	setDescription
+
+REM -----------------------------------------------------------------------------------------------------------------------
 Public Function setEnabled(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 	If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments("setEnabled")
 	setEnabled = PropertiesSet._setProperty(pvObject, "Enabled", pvValue)
@@ -243,6 +249,24 @@ Public Function setSelected(Optional pvObject As Variant, ByVal Optional pvValue
 End Function		'	setSelected
 
 REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setSelLength(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
+	If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments("setSelLength")
+	setSelLength = PropertiesSet._setProperty(pvObject, "SelLength", pvValue)
+End Function		'	setSelLength
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setSelStart(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
+	If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments("setSelStart")
+	setSelStart = PropertiesSet._setProperty(pvObject, "SelStart", pvValue)
+End Function		'	setSelStart
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setSelText(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
+	If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments("setSelText")
+	setSelText = PropertiesSet._setProperty(pvObject, "SelText", pvValue)
+End Function		'	setSelText
+
+REM -----------------------------------------------------------------------------------------------------------------------
 Public Function setSpecialEffect(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 	If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments("setSpecialEffect")
 	setSpecialEffect = PropertiesSet._setProperty(pvObject, "SpecialEffect", pvValue)
@@ -390,7 +414,10 @@ Dim ocButton As Variant, iRadioIndex As Integer
 			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 			pvItem.Default = pvValue
 		Case UCase("DefaultValue")
-			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
+			If Not Utils._CheckArgument(pvItem, 1, Array(OBJCONTROL, OBJFIELD)) Then Goto Exit_Function
+			pvItem.DefaultValue = pvValue
+		Case UCase("Description")
+			If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
 			pvItem.DefaultValue = pvValue
 		Case UCase("Enabled")
 			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
@@ -455,6 +482,15 @@ Dim ocButton As Variant, iRadioIndex As Integer
 		Case UCase("Selected")
 			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 			If IsMissing(pvIndex) Then pvItem.Selected = pvValue Else pvItem.SelectedI(pvValue, pvIndex)
+		Case UCase("SelLength")
+			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
+			pvItem.SelLength = pvValue
+		Case UCase("SelStart")
+			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
+			pvItem.SelStart = pvValue
+		Case UCase("SelText")
+			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
+			pvItem.SelText = pvValue
 		Case UCase("SpecialEffect")
 			If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 			pvItem.SpecialEffect = pvValue