AdjustMode: PrxAdjustMode;
Свойство AdjustMode определяет способ подгонки размеров ячейки.
Sub Main;
Var
MB: IMetabase;
MObj : IMetabaseObject;
Report : IPrxReport;
TabIs : IPrxTableIslands;
TI : IPrxTableIsland;
Range : ITabRange;
Layout : IPrxTableIslandLayout;
Row : IPrxTableIslandLayoutRow;
Cell : IPrxTableIslandLayoutCell;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Report").Edit;
Report := MObj As IPrxReport;
TabIs := Report.TableIslands;
TI := TabIs.Add;
TI.Source := Report.TableSources.Item(0);
TI.Sheet := Report.Sheets.Item(0);
TI.AdjustMode := PrxAdjustMode.Columns; // способ подгонки - только столбцы
Range := (TI.Sheet As IPrxTable).TabSheet.Cell(1,1);
TI.Range := Range;
Layout := TI.Layout;
Row := Layout.Add;
Row.Height := 30;
Cell := Row.Add;
Cell.Field.FieldName := "ID";
Cell := Row.Add;
Cell.Field.FieldName := "NAME";
TI.Save;
MObj.Save;
End Sub Main;
После выполнения примера на лист регламентного отчета будет добавлена реляционная область данных с заданными параметрами. «Report» - идентификатор регламентного отчета.
См. также: