ITabCellStyle.BackgroundPictureWrapMode

Синтаксис Fore

BackgroundPictureWrapMode: TabFormatWrapMode;

Синтаксис Fore.NET

BackgroundPictureWrapMode: Prognoz.Platform.Interop.Tab.TabFormatWrapMode;

Описание

Свойство BackgroundPictureWrapMode определяет метод наложения фонового изображения.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox с наименованием «TabSheetBox1» и какого-либо источника данных для «TabSheetBox1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    TSheet: ITabSheet;
    Selection: ITabRange;
    Style: ITabCellStyle;
    i: Integer;
Begin
    TSheet := TabSheetBox1.Source.GetTabSheet;
    i := TSheet.Images.Add(GxImage.FromFile("c:\Background.png"));
    Selection := TSheet.View.Selection.Range;
    //Параметры стиля
    Style := Selection.Style;
    //Установка изображения
    Style.EnablePictures := TriState.OnOption;
    Style.BackgroundPicture := i;
    Style.BackgroundPictureWrapMode := TabFormatWrapMode.Tile;
End Sub Button1OnClick;

При нажатии на кнопку для ячеек, которые выделены в «TabSheetBox1», будет задано фоновое изображение: изображение будет загружено из указанного файла и будет чередоваться для полного заполнения области каждой ячейки.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Tab;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    TSheet: TabSheet;
    GxImageCls: GxImageClass = New GxImageClassClass();
    Selection: ITabRange;
    Style: ITabCellStyle;
    i: Integer;
Begin
    TSheet := TabSheetBoxNet1.Source.GetTabSheet();
    i := TSheet.Images.Add(GxImageCls.FromFile("c:\Background.png"));
    Selection := TSheet.View.Selection.Range;
    //Параметры стиля
    Style := Selection.Style;
    //Установка изображения
    Style.EnablePictures := TriState.tsOnOption;
    Style.BackgroundPicture := i;
    Style.BackgroundPictureWrapMode := TabFormatWrapMode.tfwmTile;
End Sub;

См. также:

ITabCellStyle