ITabCellStyle.PushedPicture

Синтаксис

PushedPicture: Integer;

Описание

Свойство PushedPicture определяет индекс изображения, которое будет отображаться в ячейке таблицы при нажатии мышкой по изображению.

Комментарии

Коллекция изображений таблицы доступна в свойстве Images. Для использования изображений в ячейке необходимо, чтобы свойству EnablePictures было установлено значение TriState.OnOption. Изображение, установленное в данном свойстве не отображается, если не установлено изображение Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

TSheet: ITabSheet;

TRange: ITabRange;

Style: ITabCellStyle;

Begin

TSheet := UiTabSheet1.TabSheet;

TSheet.Images.AddFromImageList(ImageList1);

TRange := TSheet.View.Selection.Range;

Style := TRange.Style;

Style.EnablePictures := TriState.OnOption;

Range.Style.NormalPicture := 1;

Range.Style.PushedPicture := 2;

End Sub Main;

При нажатии на кнопку в коллекцию изображений таблицы будут добавлены изображения компонента «ImageList1». Для выделенного диапазона ячеек в обычном режиме будет отображаться изображение с индексом 1. При нажатии по какому-либо изображению будет отображаться изображение с индексом 2.

См. также:

ITabCellStyle