Page History
この例では、リスト・ビューのソート1に手を加え、SELECTLIST の表示というタイトルのボタンをクリックするたびに更新される社員順の SELECTLIST の表示というタイトルの 2つめのリストを追加してます。ユーザーがリストの表示上でソートしてもリスト・ビューのアイテムの順序(アイテムがADD_ENTRYコマンドで追加された順序)が変わらないことを例証します。
例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。
...
FUNCTION options(*DIRECT)
BEGIN_
...
COM role(*
...
EXTENDS #PRIM_FORM)
...
HEIGHT(594)
...
LEFT(327)
...
TOP(120)
...
WIDTH(620)
DEFINE_
...
COM class(#PRIM_LTVW)
...
name(#EMPLIST)
...
DISPLAYPOSITION(1)
...
FULLROWSELECT(True)
...
HEIGHT(221)
...
LEFT(8)
...
PARENT(#COM_OWNER)
...
TABPOSITION(1)
...
TOP(28)
...
WIDTH(577)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_1)
...
DISPLAYPOSITION(1)
...
PARENT(#EMPLIST)
...
SORTONCLICK(True)
...
SOURCE(#EMPNO)
...
WIDTH(18)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_2)
...
DISPLAYPOSITION(2)
...
PARENT(#EMPLIST)
...
SORTONCLICK(True)
...
SOURCE(#SURNAME)
...
WIDTH(23)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_3)
...
DISPLAYPOSITION(3)
...
PARENT(#EMPLIST)
...
SORTONCLICK(True)
...
SOURCE(#GIVENAME)
...
WIDTH(25)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_4)
...
DISPLAYPOSITION(4)
...
PARENT(#EMPLIST)
...
SORTONCLICK(True)
...
SOURCE(#SALARY)
...
WIDTH(16)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_5)
...
DISPLAYPOSITION(5)
...
PARENT(#EMPLIST)
...
SORTONCLICK(True)
...
SOURCE(#POSTCODE)
...
WIDTH(18)
DEFINE_
...
COM class(#PRIM_LTVW)
...
name(#WRKLIST)
...
DISPLAYPOSITION(2)
...
FULLROWSELECT(True)
...
HEIGHT(233)
...
LEFT(8)
...
PARENT(#COM_OWNER)
...
TABPOSITION(2)
...
TOP(288)
...
WIDTH(577)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_6)
...
DISPLAYPOSITION(1)
...
PARENT(#WRKLIST)
...
SOURCE(#EMPNO)
...
WIDTH(18)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_7)
...
DISPLAYPOSITION(2)
...
PARENT(#WRKLIST)
...
SOURCE(#SURNAME)
...
WIDTH(23)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_8)
...
DISPLAYPOSITION(3)
...
PARENT(#WRKLIST)
...
SOURCE(#GIVENAME)
...
WIDTH(25)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_9)
...
DISPLAYPOSITION(4)
...
PARENT(#WRKLIST)
...
SOURCE(#SALARY)
...
WIDTH(16)
DEFINE_
...
COM class(#PRIM_LVCL)
...
name(#LVCL_10)
...
DISPLAYPOSITION(5)
...
PARENT(#WRKLIST)
...
SOURCE(#POSTCODE)
...
WIDTH(18)
DEFINE_
...
COM class(#PRIM_PHBN)
...
name(#PB_ORDER)
...
CAPTION('
...
Show Selectlist Order')
...
DISPLAYPOSITION(3)
...
LEFT(472)
...
PARENT(#COM_OWNER)
...
TABPOSITION(3)
...
TOP(528)
...
WIDTH(112)
DEFINE_
...
COM class(#PRIM_LABL)
...
name(#LABL_1)
...
CAPTION('
...
SELECTLIST Employee Order')
...
DISPLAYPOSITION(4)
...
HEIGHT(25)
...
LEFT(144)
...
PARENT(#COM_OWNER)
...
TABPOSITION(4)
...
TABSTOP(False)
...
TOP(528)
...
VISUALSTYLE(#VS_LAREM)
...
WIDTH(269)
...
EVTROUTINE handling(#com_owner.Initialize)
...
SELECT fields(#EMPLIST)
...
from_file(PSLMST)
ADD_
...
ENTRY to_list(#EMPLIST)
ENDSELECT
ENDROUTINE
...
EVTROUTINE handling(#PB_ORDER.Click)
CLR_
...
LIST named(#WRKLIST)
...
SELECTLIST named(#EMPLIST)
ADD_
...
ENTRY to_list(#WRKLIST)
ENDSELECT
ENDROUTINE
END_COM