Tile Design interface (PRIM_TILE.ITileDesign)
Interface allowing Tile to communicate with its design instances
Ancestors - None
The Tile design interface is a specific requirement for all Tile design reusable parts. It provides a set of methods that can be executed by the containing Tile control, allowing the reusable part to respond to changes in the Tile.
Below is a simple Tile item that populates labels with the 3 fields that are mapped in when an entry is added via *ListFields. The values are used to populate labels on the design when the OnAdd method is executed. If an image is assigned to the item, the OnItemImageChanged method is executed, and the image for the item can be used on the design.
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PANL *implements #Prim_Tile.iTileDesign *ListFields #ListFields) Displayposition(1) Height(345) Left(0) Tabposition(1) Top(0) Width(356) Layoutmanager(#AttachLayout1)
* Fields mapped in when the entry is added to the Tile
Group_By Name(#ListFields) Fields(#Field1 #Field2 #Field3)
Define_Com Class(#PRIM_ATLM) Name(#AttachLayout1)
Define_Com Class(#PRIM_ATLI) Name(#AttachItem1) Attachment(Top) Manage(#Title) Parent(#AttachLayout1)
Define_Com Class(#PRIM_ATLI) Name(#AttachItem2) Attachment(Bottom) Manage(#Caption1) Parent(#AttachLayout1)
Define_Com Class(#PRIM_ATLI) Name(#AttachItem3) Attachment(Bottom) Manage(#Caption2) Parent(#AttachLayout1)
Define_Com Class(#PRIM_ATLI) Name(#AttachItem4) Attachment(Center) Manage(#Image) Parent(#AttachLayout1)
Define_Com Class(#PRIM_IMAG) Name(#Image) Displayposition(4) Height(283) Image(#xImageImage256) Left(0) Parent(#COM_OWNER) Tabposition(4) Tabstop(False) Top(20) Width(354) Imagesizing(BestFit)
Define_Com Class(#PRIM_LABL) Name(#Title) Alignment(Center) Caption('Title') Displayposition(1) Ellipses(Word) Height(20) Left(0) Parent(#COM_OWNER) Style(#xDemoStyles) Tabposition(1) Tabstop(False) Top(0) Verticalalignment(Center) Width(354)
Define_Com Class(#PRIM_LABL) Name(#Caption1) Alignment(Center) Caption('Caption1') Displayposition(2) Ellipses(Word) Height(20) Left(0) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(303) Width(354)
Define_Com Class(#PRIM_LABL) Name(#Caption2) Alignment(Center) Caption('Caption2') Displayposition(3) Ellipses(Word) Height(20) Left(0) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(323) Width(354)
Mthroutine Name(OnAdd) Help('Executed when the item is added using ADD_ENTRY') Options(*Redefine)
#Title := #Field1
#Caption1 := #Field2
#Caption2 := #Field3
Endroutine
Mthroutine Name(OnItemImageChanged) Help('Executed when the item "Image" property is set') Options(*redefine)
#Image.Image <= #TileItem.Image *As #prim_bmp
Endroutine
End_Com
| Name | Description |
|---|---|
| OnAdd | Executed when an item is added
TileItem |
| OnDelete | Executed when an item is deleted
TileItem |
| OnFind | Executed when the Find method is used
Result, TileItem, Key |
| OnItemGotFocus | Executed when the item becomes the focus item
TileItem |
| OnItemGotReference | Executed whenever a related reference is assigned to the item via the RelatedReference property
TileItem |
| OnItemGotSelection | Executed when the item becomes selected
TileItem |
| OnItemImageChanged | Executed when the item Image property is modified
TileItem |
| OnItemLostFocus | Executed when focus is assigned to another item
TileItem |
| OnItemLostSelection | Executed when the item loses selection
TileItem |
| OnItemRealizing | Executed whenever the design enters the on screen portion of the control
TileItem |
| OnSort | Executed when the Sort method is invoked on the parent list
Result, TileItem, CompareTo, Key |
| OnUpdate | Executed when the associated list entry is updated
TileItem |
Febuary 18 V14SP2