ページングボタンの表示または非表示 |
リスト (PRIM_LIST) のメンバ
データタイプ - ブール値
Showpages は、リスト (PRIM_LIST)のエントリーを複数ページに渡って表示することができるようにします。
ShowPages が選択されると、リストの下部に配置された矢印を使ってページをナビゲートできるようになります。
1 ページの行数は RowsPerPage プロパティにより決定されます。
ページ数は、CurrentPage プロパティでアクセスできます。
次の例では 100 エントリーが 10 ページに渡り表示されます。
Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME) Layoutmanager(#LayoutWebPage)
Define_Com Class(#PRIM_TBLO) Name(#LayoutWebPage)
Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#LayoutWebPage)
Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#LayoutWebPage)
Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem_List) Alignment(TopCenter) Column(#Layout1Column1) Manage(#List) Parent(#LayoutWebPage) Row(#Layout1Row1) Margintop(72)
Define_Com Class(#PRIM_LIST) Name(#List) Columnheaderheight(48) Columnlines(False) Displayposition(1) Height(728) Left(0) Parent(#COM_OWNER) Rowheight(48) Rowsperpage(10) Showpages(True) Tabposition(1) Top(72) Width(1200)
Define_Com Class(#PRIM_LIST.String) Name(#ListColumn) Columnunits(Proportion) Columnwidth(1) Displayposition(1) Parent(#List) Sortonclick(True) Source(#xDemoAlpha128)
Evtroutine Handling(#COM_OWNER.Initialize)
Begin_Loop Using(#xDemoNumber) To(100)
#xDemoAlpha128 := 'Entry: ' + #xDemoNumber.AsString
Add_Entry To_List(#List)
End_Loop
Endroutine
End_Com