PictureVerticalAlignment: TabPictureVerticalAlignment;
The PictureVerticalAlignment property determines vertical positioning of an image in a table cell.
To execute the example a form with a button named Button1 on it, a TabSheetBox component, a UiTabSheet component named UiTabSheet, and an ImageList component named ImageList1 are required. UiTabSheet1 is the data source for the TabSheetBox component. The ImageList1 component contains a certain set of images.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
TSheet: ITabSheet;
TRange: ITabRange;
Style: ITabCellStyle;
Begin
TSheet := UiTabSheet1.TabSheet;
TSheet.Images.AddFromImageList(GlobalImageList1);
TRange := TSheet.View.Selection.Range;
Style := TRange.Style;
Style.EnablePictures := TriState.OnOption;
Style.NormalPicture := 0;
Style.PictureHorizontalAlignment := TabPictureHorizontalAlignment.Right;
Style.PictureVerticalAlignment := TabPictureVerticalAlignment.Bottom;
End Sub Button1OnClick;
On clicking this button images of the ImageList1 component are added to the image collection of the table. The first image of the set is displayed for the selected cells' range in normal mode. The image is to be aligned to the bottom right edge of the cell.
See also: