タイル デザイン インターフェース

祖先 - なし

詳細

Tile デザインのインターフェースは、すべての Tile デザインの再利用可能な部品の特定の要件です。 
これは、 Tile コントロールを含むことで実行可能な一連のメソッドを提供し、再利用可能な部分が Tile の変更に応答できるようにします。

例

以下は、 * ListFields 経由でエントリが追加されたときにマップされる 3 つのフィールドをラベルに埋め込む簡単な Tile ページです。この値は、 OnAdd メソッドが実行されたときにデザイン上にラベルを設定するために使用されます。 
項目にイメージが割り当てられている場合は、 OnItemImageChanged メソッドが実行され、その項目のイメージをデザインで使用できます。

     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

メソッド

参照

すべてのコンポーネント クラス
テクニカル リファレンス