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

aExecuting the example requires a form with the Button1 button located on it, the TabSheetBox component and the UiTabSheet component named UiTabSheet1. UiTabSheet1 is the data source for the TabSheetBox component.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Sheet: 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.