PictureAboveSelection: TriState;
Свойство PictureAboveSelection устанавливает растяжение картинки в ячейке.
Для использования изображений в ячейке для свойства ITabCellStyle.EnablePictures задайте значение TriState.OnOption.
Изображения можно добавлять из директории или с помощью компонентов ImageBox и ImageList.
Для добавления изображения из коллекции используйте свойство ITabCellStyle.NormalPicture.
Для выполнения примера разместите на форме компонент Button, TabSheetBox и UiTabSheet с наименованиями BUTTON1, TABSHEETBOX1 И UITABSHEET1 соответственно. Для компонента TabSheetBox установите свойству Source значение UiTabSheet1. Убедитесь, что в корневом каталоге диска С имеется изображение Image.png.
Добавьте ссылки на системные сборки: Drawing, Forms, Tab.
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;
В результате при нажатии на кнопку в ячейку таблицы будет добавлено заданное изображение. При изменении размеров ячейки изображение растягивается, например:
См. также: