FootnotePanelOptions: ITabFootnotesPanelOptions;
FootnotePanelOptions: Prognoz.Platform.Interop.Tab.TabFootnotesPanelOptions;
Свойство FootnotePanelOptions возвращает параметры расположения панели со сносками.
Для выполнения примера предполагается наличие в репозитории экспресс-отчета с идентификатором «REGULAR_REPORT».
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
FootnotePanel: ITabFootnotesPanelOptions;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
FootnotePanel := Report.Options.FootnotePanelOptions;
FootnotePanel.Position := BarDockingEdge.Bottom;
FootnotePanel.PercentHeight := 15;
Report.MetabaseObject.Save;
End Sub UserProc;
При выполнении примера будут изменены параметры расположения панели со сносками: панель будет располагаться ниже таблицы и занимать пятнадцать процентов от доступной области таблицы.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
FootnotePanel: ITabFootnotesPanelOptions;
Begin
MB := Params.Metabase;
Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
FootnotePanel := Report.Options.FootnotePanelOptions;
FootnotePanel.Position := BarDockingEdge.bdeBottom;
FootnotePanel.PercentHeight := 15;
Report.MetabaseObject.Save();
End Sub;
См. также: