ITabCellStyle.Margins

Синтаксис

Margins(Index: TabMargin): Double;

Параметры

Index — граница, от которой необходимо определить отступ.

Описание

Свойство Margins определяет отступы текста в ячейке таблицы в миллиметрах.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiTabSheet с наименованием «UiTabSheet1». «UiTabSheet1» является источником данных для компонента TabSheetBox.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

TSheet: ITabSheet;

TRange: ITabRange;

Style: ITabCellStyle;

Begin

TSheet := UiTabSheet1.TabSheet;

TRange := TSheet.View.Selection.Range;

Style := TRange.Style;

Style.Margins(TabMargin.Bottom) := 1;

Style.Margins(TabMargin.Left) := 1;

Style.Margins(TabMargin.Right) := 1;

Style.Margins(TabMargin.Top) := 1;

End Sub Button1OnClick;

При нажатии на кнопку в выделенном диапазоне ячеек будут изменены отступы от границ ячеек. Все отступы будут равны одному миллиметру.

См. также:

ITabCellStyle