HierarchyIndent: Double;
HierarchyIndent: Double;
The HierarchyIndent property determines indent in a pop-up hierarchy of the data area.
Executing the example requires a regular report with the REPORT identifier, which contains data area. Add links to the Metabase, Report system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Prop: IPrxDataIslandProperties;
DI: IPrxDataIsland;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("REPORT").Edit;
DI := (MObj As IPrxReport).DataIslands.Item(0).Edit;
Prop := DI.Properties;
// Set hierarchy indent.
Prop.HierarchyIndent := 10;
DI.Save;
// Save report.
MObj.Save;
End Sub UserProc;
After executing the example the indent in the pop-up hierarchy of the first data area of the REPORT regular report equals to 10.
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
...
Sub Main(Params: StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
Prop: IPrxDataIslandProperties;
DI: IPrxDataIsland;
Begin
MB := Params.Metabase;
MObj := MB.ItemById["REPORT"].Edit();
DI := (MObj As IPrxReport).DataIslands.Item[0].Edit();
Prop := DI.Properties;
// Set hierarchy indent.
Prop.HierarchyIndent := 10;
DI.Save();
// Save report.
MObj.Save();
End Sub;
See also: