ITabCellStyle.Margins

Syntax

Margins(Index: TabMargin): Double;

Parameters

Index is the border from which the margin is defined.

Description

The Margins property determines text margins in a table cell in millimeters.

Example

To execute the example a form with a button on this form named Button1, a component UiTabSheet named UiTabSheet1 and a component TabSheetBox are required. UiTabSheet1 is the data source for the TabSheetBox component.

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;

Click the button to change text margins for a selected cell range. All margins are equal to 1 millimeter.