Visible: Boolean;
Visible: System.Boolean;
The Visible property determines whether it is possible to place headers of grouped data in a separate column.
The property can be set to:
True. By default. It is available to place headers of grouped data in a separate column. The Show Group In Separate Column checkbox is selected and drop-down hierarchy selection is available. The drop-down hierarchy is determined by the IPrxTableIslandGrouping.Hierarchical property.
False. It is unavailable to place headers of grouped data in a separate column. The Show Group In Separate Column checkbox is deselected.
To execute the example, make sure that the repository contains a regular report with the REGULAR_REPORT identifier with set grouping of relational data area.
Add links to the Metabase, Report, ForeSystem (for Fore.NET example) system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
TabIs: IPrxTableIslands;
TI: IPrxTableIsland;
Grs: IPrxTableIslandGroupings;
Gr: IPrxTableIslandGrouping;
Begin
MB := MetabaseClass.Active;
// Get regular report for edit
MObj := MB.ItemById("REGULAR_REPORT").Edit;
Report := MObj As IPrxReport;
TabIs := Report.TableIslands;
TI := TabIs.Item(0);
TI := Ti.Edit;
// Get the first group settings
Grs := TI.Groupings;
Gr := Grs.Item(0);
// Deselect the Show Group In Separate Column and Pop-up Hierarchy checkboxes
Gr.Visible := False;
If Gr.IsHierarchical Then
Gr.Hierarchical := TriState.OffOption;
End If;
// Save changes to report
TI.Save;
MObj.Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params : StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
TabIs: IPrxTableIslands;
TI: IPrxTableIsland;
Grs: IPrxTableIslandGroupings;
Gr: IPrxTableIslandGrouping;
Begin
MB := Params.Metabase;
// Get regular report for edit
MObj := MB.ItemById["REGULAR_REPORT"].Edit();
Report := MObj As IPrxReport;
TabIs := Report.TableIslands;
TI := TabIs.Item[0];
TI := Ti.Edit();
// Get the first group settings
Grs := TI.Groupings;
Gr := Grs.Item[0];
// Deselect the Show Group In Separate Column and Pop-up Hierarchy checkboxes
Gr.Visible := False;
If Gr.IsHierarchical Then
Gr.Hierarchical := TriState.tsOffOption;
End If;
// Save changes to report
TI.Save();
MObj.Save();
End Sub;
After executing the example, in the regular report with the REGULAR_REPORT identifier, theShow Group In Separate Column and Pop-up Hierarchy will be deselected in relation data area grouping setup.
See also: