Unordered collection of component pairs typically used to associate objects with each other
Dictionary collections are an unordered sequence of key-value component pairs with no duplicates of the key. A dictionary collection is keyed by an instance of an object type, giving each collection item a unique identifier.
Defining a dictionary collection. This collection stores instances of layout items identified by a control.
Define_Com Class(#Prim_dcol<#Prim_tblo #Prim_ctrl>) Name(#LayoutItems)
Collection items can be created by assigning them to an existing reference or creating a new one as below.
#LayoutItems<#Button1> <= (*New #Prim_TBLO)
Collection items can be accessed using any object type that inherits from the class specified as the key.
#LayoutItems<#Button1>.Manage <= #Button1
All collection items can be addressed as follows. Here, all the layout items are being assigned a parent.
#LayoutItems<>.Parent <= #LayoutManager
The FOR command can also be used to iterate over the collection contents. The items will be returned in the order of the key value, which in this case is effectively the memory address of the key.
For each(#LayoutItem) in (#Layoutitems) ... Endfor
To monitor for an event from any instance in the collection, <> can be appended to an EVTROUTINE. The COM_SENDER parameter will provide access to the instance firing the event. In this example, the closing event on a collection of forms is monitored and an event recorded.
Evtroutine Handling(#Forms<>.Closing) Com_Sender(#Sender) #Com_owner.AddEvent(("&1 closed").Substitute(#Sender.Caption)) Endroutine
|AllowsDuplicates indicates whether the collection allows duplicates Inherited from Collection (PRIM_COLL)
|The class of object to be collected
|ComponentClassName is the name of the component's class. Inherited from Object (PRIM_OBJT)
|ComponentMembers provides access to all the member components of this component Inherited from Object (PRIM_OBJT)
|ComponentPatternName is used to qualify the class of the component. Inherited from Object (PRIM_OBJT)
|Generic space allowing a value to be stored for the instance Inherited from Object (PRIM_OBJT)
|ComponentType gives you access to the type information about the component Inherited from Object (PRIM_OBJT)
|ComponentTypeName is the fully qualified name of the component's class. Inherited from Object (PRIM_OBJT)
|IsEmpty indicates whether the collection contains any items. Inherited from Collection (PRIM_COLL)
|IsOrdered indicates whether the collection is ordered. Inherited from Collection (PRIM_COLL)
|Provides access to a particular item in a collection
|ItemCount is the number of items in a collection Inherited from Collection (PRIM_COLL)
|KeyedBy specifies the field used to identify a form instance
|KeyOf returns the key of an item in a collection
|Name identifies the component Inherited from Object (PRIM_OBJT)
|Owner owns this component Inherited from Object (PRIM_OBJT)
|The component instance to which this instance is attached. The visual container for a control or the collector of a set of child instances Inherited from Object (PRIM_OBJT)
|CreateInstance is signalled when an instance of a component is created Inherited from Object (PRIM_OBJT)
|DestroyInstance is signalled when an instance of a component is about to be destroyed Inherited from Object (PRIM_OBJT)
|Hash is triggered when an integer value needs to be determined to organize the collection
|Fired whenever the collection needs to compare two items
Object, Subject, Equal
|CalculateHash calculates a hash value Inherited from Collection (PRIM_COLL)
|Does the supplied instance exist in the collection?
|ContainsItem looks for an item in a collection
|CreateAccessor creates an accessor component that provides read-only access to the collection
|CreateIterator method creates an iterator component that enables iteration through the collection
|Find method returns a reference to a item in a collection
|Insert adds an item to a collection
Result, Item, Key
|Remove method removes an item
|RemoveAll removes all items in the collection
LANSA Version 15, April 2020