ITabCellStyle.UserDecimalSeparator

Синтаксис

UserDecimalSeparator: String;

UserDecimalSeparator: String;

Описание

Свойство UserDecimalSeparator устанавливает пользовательский разделитель дробной части.

Комментарии

По умолчанию разделителем дробной части является «,».

Пример

Для выполнения примера разместите на форме компонент Button, TabSheetBox и UiTabSheet (для примера на Fore.NET используйте компоненты TabSheetBoxNet и UiTabSheetNet) с наименованиями BUTTON1, TABSHEETBOX1/TABSHEETBOXNET1 И UITABSHEET1/UITABSHEETNET1 соответственно. Для компонента TabSheetBox1/TabSheetBoxNet1 установите свойству Source/UiSource значение UiTabSheet1/UiTabSheetNet1.

Добавьте ссылки на системные сборки: Drawing, Tab, Forms, Forms.NET (для примера на Fore.NET).

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var 
    Style: ITabCellStyle;
    Sheet: ITabSheet;
    Range: ITabRange;
    Color: IGxColor;
    SolidBrush: IGxBrush;
Begin
    Sheet := UiTabSheet1.TabSheet;
    Range := Sheet.View.Selection.Range;
    Style := Range.Style;
    Style.UserDecimalSeparator := ":";
    Color := GxColor.FromName(
"Yellow");
    SolidBrush := 
New GxSolidBrush.Create(Color);
    Style.BackgroundBrush := SolidBrush
End Sub Button1OnClick;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Forms.Net;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    
Style: ITabCellStyle;
    Sheet: ITabSheet;
    Range: ITabRange;
    Brush: GxSolidBrush = New GxSolidBrushClass();
    ColorCls: GxColorClass = 
New GxColorClassClass();
Begin
    
Sheet := UiTabSheetNet1.TabSheetUi.TabSheet;
    Range := Sheet.View.Selection.Range;
    Style := Range.Style;
    Style.UserDecimalSeparator := ":";
    Brush.Create(ColorCls.FromName(
"Yellow"));
    Style.BackgroundBrush := Brush;
End Sub;

В результате при нажатии на кнопку Button1 в ячейке будет изменен пользовательский разделитель дробной части, например:

См. также:

ITabCellStyle