CheckedObjects: IMetabaseObjectDescriptors;
CheckedObjects: Prognoz.Platform.Interop.ExtCtrls.IMetabaseObjectDescriptors;
The CheckedObjects property returns a collection of descriptions for objects which flags are selected in the component.
The property is relevant, if the Checkboxes property is set to True for the component.
Executing the example requires a form with the button named Button1 on it and the MetabaseListView component named MetabaseListView1. The Checkboxes property of the MetabaseListView1 component is set to True and any repository folder is selected in the Root property. Connect the Metabase system assembly.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Descs: IMetabaseObjectDescriptors;
Desc: IMetabaseObjectDescriptor;
Begin
Descs := MetabaseListView1.CheckedObjects;
For Each Desc In Descs Do
Debug.WriteLine(Desc.Name + " (" + Desc.Id + ')');
End For;
End Sub Button1OnClick;
Clicking the button displays information about object names and identifiers for which checkboxes are selected in the MetabaseListView1 component to the development environment console.
The requirements and result of the Fore.NET Example execution match with those in the Fore Example. Instead of the Fore components use Fore.NET analogs.
Imports Prognoz.Platform.Interop.Metabase;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Descs: IMetabaseObjectDescriptors;
Desc: IMetabaseObjectDescriptor;
Begin
Descs := MetabaseListViewNet1.CheckedObjects;
For Each Desc In Descs Do
System.Diagnostics.Debug.WriteLine(Desc.Name + " (" + Desc.Id + ')');
End For;
End Sub;
See also: