Unit: GxUnit;
Свойство Unit возвращает единицы измерения размера шрифта.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Font: IGxFont;
Range: ITabRange;
i: Integer;
Begin
Range:=UiTabSheet1.TabSheet.Cell(0,0);
Font:=Range.Style.Font.AsGxFont;
i:=Font.Unit;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в переменной «i» будут содержаться единицы измерения размера шрифта первой ячейки таблицы, преобразованные к целочисленному виду.
См. также: