ITabCellStyle.PictureAboveSelection

Синтаксис

PictureAboveSelection: TriState;

PictureAboveSelection: Prognoz.Platform.Interop.ForeSystem.TriState;

Описание

Свойство PictureAboveSelection устанавливает растяжение картинки в ячейке.

Комментарии

Для использования изображений в ячейке для свойства ITabCellStyle.EnablePictures задайте значение TriState.OnOption.

Изображения можно добавлять из директории или с помощью компонентов ImageBox и ImageList.

Для добавления изображения из коллекции используйте свойство ITabCellStyle.NormalPicture.

Пример

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

Добавьте ссылки на системные сборки:

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Sheet: ITabSheet;
    Range: ITabRange;
    Style: ITabCellStyle;
    Image: IGxImage;
Begin
    Sheet := UiTabSheet1.TabSheet;
    Range := Sheet.View.Selection.Range;
    Image := GxImage.FromFile("C:\Image.png");
    Style := Range.Style;
    Style.EnablePictures := TriState.OnOption;
    Style.NormalDetachedPicture := Image;
    Style.PictureAboveSelection:= TriState.OnOption;
End Sub Button1OnClick;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Sheet: ITabSheet;
    Range: ITabRange;
    Style: ITabCellStyle;
    Image: GxImage = New GxImageClass_2();
Begin
    Sheet := UiTabSheetNet1.TabSheetUi.TabSheet;
    Range := Sheet.View.Selection.Range;
    Image.CreateFromFile("C:\Image.png");
    Style := Range.Style;
    Style.EnablePictures := TriState.tsOnOption;
    Style.NormalDetachedPicture := Image;
    Style.PictureAboveSelection:= TriState.tsOnOption;    
End Sub;

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

См. также:

ITabCellStyle