ITabCellStyle.PushedPicture

Syntax

PushedPicture: Integer;

Description

The PushedPicture property determines the index of the image to be displayed in a table cell when the user clicks on it.

Comments

Collection of the table images is available in the Images property. To use images in the cell, set the EnablePictures property to TriState.OnOption. The image that is set in this property is not displayed if the image ITabCellStyle.NormalPicture is not set.

Sub UserProc;
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 UserProc;

On clicking the button images of the ImageList1 component are added to the image collection of the table. The image with the index 1 is displayed for the selected cells' range in normal mode. Click any image to display the image with the index 2.