TopHeader: IPrxDataIslandHeader;
TopHeader: Prognoz.Platform.Interop.Report.IPrxDataIslandHeader;
The TopHeader property returns an object containing parameters of headings of data area columns.
Executing the example requires a regular report with the REPORT identifier, which contains data area. Add links to the Metabase, Report, Tab 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 column heading font size.
Prop.TopHeader.Style.Font.Size := 16;
DI.Save;
// Save report.
MObj.Save;
End Sub UserProc;
After executing the example column heading font size of the first data area of the REPORT regular report equals to 16.
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 column heading font size.
Prop.TopHeader.Style.Font.Size := 16;
DI.Save();
// Save report.
MObj.Save();
End Sub;
See also: