リスト - ShowPages プロパティ
ページング ボタンの表示または非表示
リスト (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
EPC142030 February 2019