Page History
[ 
|../../index.htm#lansa/l4wdev03_0365.htm]
現在地:
...
フィールド名
SECTION(Alpha 2)
説明
フィールドをフォーム上に再利用可能パーツとして表示します。
選択肢を並べて表示したいけれども、既存のピックリストを使うのでは思った通りの動作が実現できないことがあります。例えば、データベースを検索して得た値を選択肢として表示する、といった使い方の場合、再利用可能パーツを使って実現するとよいでしょう。
再利用可能パーツのソース(SECTIONR)
...
Function Options(*DIRECT)
...
Begin_
...
Com Role(*
...
EXTENDS #PRIM_PANL)
...
Defaultpty(Section)
...
Displayposition(1)
...
Height(68)
...
Layoutmanager(#ATLM_1)
...
Left(0)
...
Tabposition(1)
...
Top(0)
...
Width(224)
...
* Reusable consists of a combo box with a client layout item attachment
Define_Com Class(#PRIM_CMBX)
...
Name(#SECT_CBX)
...
Displayposition(1)
...
Fixedheight(False)
...
Height(68)
...
Left(0)
...
Parent(#COM_OWNER)
...
Tabposition(1)
...
Top(0)
...
Width(224)
Define_
...
Com Class(#PRIM_CBCL)
...
Name(#CBCL_1)
...
Displayposition(1)
...
Parent(#SECT_CBX)
...
Source(#SECTION)
...
Width(20)
Define_
...
Com Class(#PRIM_ATLM)
...
Name(#ATLM_1)
Define_
...
Com Class(#PRIM_ATLI)
...
Name(#ATLI_1)
...
Attachment(Center)
...
Manage(#SECT_CBX)
...
Parent(#ATLM_1)
...
Define_
...
Pty Name(Section)
...
Get(Get_Section)
...
Set(Set_Section)
...
Evtroutine Handling(#COM_OWNER.Initialize)
...
Options(*
...
NOCLEARMESSAGES *NOCLEARERRORS)
...
* Select all entries from PSLMST and add to our combo box
Select Fields(#SECTION)
...
From_File(PSLMST)
...
Add_
...
Entry To_List(#SECT_CBX)
...
Endselect
Endroutine
Ptyroutine Name(Get_Section)
Define_
...
Map For(*output)
...
Class(#SECTION)
...
Name(#o_section)
...
* Default property Get.
*
* Get_Entry on the combo box focus item and set the return value
If_Ref Com(#SECT_CBX.focusitem)
...
Is_Not(*NULL)
...
Change Field(#STD_NUM)
...
To('#SECT_CBX.FOCUSITEM.ENTRY')
...
Get_
...
Entry Number(#STD_NUM)
...
Endif
Set Com(#o_section)
...
Value(#SECTION)
...
Endroutine
Ptyroutine Name(Set_Section)
Define_
...
Map For(*input)
...
Class(#SECTION)
...
Name(#i_section)
...
* Default property Set.
*
* Select_List on Combo and set focus to mathing item from input
Selectlist Named(#SECT_CBX)
...
If Cond('
...
#SECTION *ne #I_SECTION')
...
Continue
Endif
Set Com(#SECT_CBX.currentitem)
...
Focus(true)
...
Selected(true)
...
Endselect
Endroutine
End_Com
...
フィールドのソース
Begin_
...
Com Role(*
...
EXTENDS #PRIM_OBJT)
...
Begin_
...
Com Role(*
...
Visual #PRIM_EVEF)
...
Name(#VisualEdit)
...
Defaultvisual(True)
...
Height(19)
...
Usepicklist(False)
...
Width(185)
...
End_Com
...
Begin_
...
Com Role(*Visual_
...
Part #SECTIONR) Name(#Combo)
...
Height(19)
...
Width(185)
...
End_Com
...
End_Com
...
フォームのソース
...
Function Options(*DIRECT)
...
Begin_
...
Com Role(*
...
EXTENDS #PRIM_FORM)
...
Clientheight(147)
...
Clientwidth(492)
...
Height(174)
...
Left(369)
...
Top(152)
...
Define_
...
Com Class(#SECTION.COMBO)
...
Name(#SECT_CBX)
...
Height(49)
...
Left(248)
...
Parent(#COM_OWNER)
...
Top(8)
...
Width(234)
Define_
...
Com Class(#PRIM_LTBX)
...
Name(#LIST)
...
Componentversion(1)
...
Displayposition(2)
...
Height(132)
...
Left(6)
...
Parent(#COM_OWNER)
...
Showselection(True)
...
Tabposition(2)
...
Top(8)
...
Width(131)
Define_
...
Com Class(#PRIM_PHBN)
...
Name(#PHBN_SET)
...
Caption('
...
Set Field Value')
...
Displayposition(3)
...
Left(144)
...
Parent(#COM_OWNER)
...
Tabposition(3)
...
Top(24)
...
Width(89)
Define_
...
Com Class(#PRIM_PHBN)
...
Name(#PHBN_GET)
...
Caption('
...
Get Field Value')
...
Displayposition(4)
...
Left(144)
...
Parent(#COM_OWNER)
...
Tabposition(4)
...
Top(80)
...
Width(89)
Define_
...
Com Class(#PRIM_LBCL)
...
Name(#LBCL_1)
...
Displayposition(1)
...
Parent(#LIST)
...
Source(#SECTION)
...
Width(20)
...
Evtroutine Handling(#COM_OWNER.CreateInstance)
...
Options(*
...
NOCLEARMESSAGES *NOCLEARERRORS)
...
Select Fields(#SECTION)
...
From_File(PSLMST)
...
Add_
...
Entry To_List(#LIST)
...
Endselect
Endroutine
Evtroutine Handling(#PHBN_SET.Click)
...
If_
...
Ref Com(#LIST.focusitem)
...
Is_Not(*NULL)
...
Change Field(#STD_NUM)
...
To('#LIST.FOCUSITEM.ENTRY')
...
Get_
...
Entry Number(#STD_NUM)
...
Endif
Change Field(#SECT_CBX)
...
To(#SECTION)
...
Endroutine
Evtroutine Handling(#PHBN_GET.Click)
...
Selectlist Named(#LIST)
...
If Cond('
...
#SECTION *ne #SECT_CBX')
...
Continue
Endif
Set Com(#LIST.currentitem)
...
Focus(true)
...
Selected(true)
...
Endselect
Endroutine
End_Com
...
外観
...
