ICompoundSelection.IsDisplayCompound

Syntax

IsDisplayCompound: Boolean;

Description

The IsDisplayCompound property determines whether private dimensions are displayed as a composite dictionary.

Comments

Available values:

True. Private dimensions are displayed as a composite dictionary.
False. Private dimensions are not displayed as a composite dictionary.

Example

Executing the example requires a form containing the CheckBox component named CheckBox1, the ErAnalyzerDimPanel component named ErAnalyzerDimPanel1 and the UiErAnalyzer component named UiErAnalyzer1 which is a data source for the ErAnalyzerDimPanel1 component. Specify the express report created by several sources as a data source for the UiErAnalyzer1 component.

The CheckBox1 component is identical to the As a Composite Dimension checkbox displayed on the Private Dimensions tab of the Selection panel of express report.

The example is a handler of the OnCreate event for the form and the OnChange event for the CheckBox1 component.

Add links to the Metabase, Dimensions, Cubes, Pivot system assemblies.

Class TESTForm: Form
    UiErAnalyzer1: UiErAnalyzer;
    CheckBox1: CheckBox;
    Analyzer: IEaxAnalyzer;
    CompoundSel: ICompoundSelection;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Var
        Pivot: IPivot;
        VirtualCube: IVirtualCube;
        CompoundDimKey: Integer;
    Begin
        Analyzer := UiErAnalyzer1.ErAnalyzer;
        Pivot := Analyzer.Pivot;
        VirtualCube := (Pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;
        CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;
        CompoundSel := Pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;
        CheckBox1.Checked := CompoundSel.IsDisplayCompound;
    End Sub TESTFormOnCreate;

    Sub CheckBox1OnChange(Sender: Object; Args: IEventArgs);
    Var
        Pivot: IPivot;
        VirtualCube: IVirtualCube;
        CompoundDimKey: Integer;
    Begin
        CompoundSel.IsDisplayCompound := CheckBox1.Checked;
        Self.Text := CompoundSel.IsDisplayCompound.ToString;
        Analyzer.DataSources.Refresh(False);
        Pivot := Analyzer.Pivot;
        VirtualCube := (Pivot.DataSource As ICubeInstanceDestination).Cube.Cube As IVirtualCube;
        CompoundDimKey := (VirtualCube.FactDimension As IMetabaseObjectDescriptor).Key;
        CompoundSel := Pivot.Selection.FindByKey(CompoundDimKey) As ICompoundSelection;
    End Sub CheckBox1OnChange;
End Class TESTForm;

After executing the example on selecting checkbox private dimensions will be displayed as composite dictionary consisting of elements of data sources private dimensions. In this case, the form title will display the True value.