ITabCellStyle.BackgroundPicture

Syntax

BackgroundPicture: Integer;

Description

The BackgroundPicture property determines the index of background image of the table cell.

Comments

The image must be contained in collection of table icons defined in the ITabSheet.Images property.

Example

To execute the example, a regular report with the identifier REGL_REP should exist in the repository. The file system should contain the image: C:\On.gif.

Sub Main;

Var

MB: IMetabase;

Rep: IPrxReport;

SheetT: IPrxTable;

Tab: ITabSheet;

TImg: ITabImages;

Back: Integer;

Style: ITabCellStyle;

Begin

MB := MetabaseClass.Active;

Rep := MB.ItemById("REP_TABSHEET").Edit As IPrxReport;

SheetT := Rep.Sheets.Item(0) As IPrxTable;

Tab := SheetT.TabSheet;

TImg := Tab.Images;

Back := TImg.Add(GxImage.FromFile("C:\On.gif"));

Style := Tab.Cell(0, 0).Style;

Style.EnablePictures := TriState.OnOption;

Style.BackgroundPicture := Back;

(Rep As IMetabaseObject).Save;

End Sub Main;

After executing the example a new icon corresponding to the image C:\On.gif is appointed as background image of the A0 cell.