diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-29 11:16:56 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-29 11:16:56 +0200 |
| commit | b0e0059ab9f2f5cbd59915ba3be8681b9e033de1 (patch) | |
| tree | ae8b8771b737b1ad53ea01422c303314bfd02f6a /wizards/source/access2base/OptionGroup.xba | |
| parent | 00f4722032cd3abb02180d2df6b9cb580736cb7c (diff) | |
Access2Base - Consolidate classes processing
Introduce _This property in all classes and _Parent property where relevant
Accelerate processing of Item method in Collections
Enhance introspection
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
| -rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index 6eeac087a7eb..080fde83b7cb 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -85,9 +85,9 @@ Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String vPropertiesList = _PropertiesList() sObject = Utils._PCase(_Type) If IsMissing(pvIndex) Then - vProperty = PropertiesGet._Properties(sObject, _Name, vPropertiesList) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList) Else - vProperty = PropertiesGet._Properties(sObject, _Name, vPropertiesList, pvIndex) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex) vProperty._Value = _PropertyGet(vPropertiesList(pvIndex)) End If @@ -122,8 +122,7 @@ Dim ocControl As Variant, iArgNr As Integer, i As Integer Set oCounter = New Collect Set oCounter._This = oCounter oCounter._SubType = OBJCONTROL - oCounter._ParentType = OBJOPTIONGROUP - oCounter._ParentName = _Name + Set oCounter._Parent = _This oCounter._Count = _Count Set Controls = oCounter Goto Exit_Function |