UserThousandSeparator: String;
UserThousandSeparator: String;
Свойство UserThousandSeparator устанавливает пользовательский разделитель разрядов.
Для установки пользовательского разделителя разрядов определите формат отображения данных в ячейке таблицы с помощью свойства ITabCellStyle.CustomFormat.
Для выполнения примера разместите на форме компонент 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.CustomFormat:= "# ##0";
Style.UserThousandSeparator:= " ' ";
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.CustomFormat:= "# ##0";
Style.UserThousandSeparator:= " ' ";
Brush.Create(ColorCls.FromName("Yellow"));
Style.BackgroundBrush := Brush;
End Sub;
В результате при нажатии на кнопку Button1 в ячейке будет изменен пользовательский разделитель разрядов, например:
См. также: