Page History
[ 
|../../index.htm#lansa/l4wdev03_0345.htm]
現在地:
...
フィールド名
SEX (Alpha 1)
説明
フィールドをグリッド内にコンボ・ボックスとして表示します。 1. フィールド・コンポーネントのソースに、ピックリスト・ビューの設定
- フィールド・コンポーネントのソースに、ピックリスト・ビューの設定 (PRIM_EVPL) お よびピックリストの定義を追加します。この2つは別々のクラスであることに注意してください。「Male」および「Female」の2項目をピックリストに追加します。
...
- フィールドをいったん保存してください。
- グリッド・コンポーネントを作成し、フィールドタブで、列としてSEXフィールドを追加します。列のプロパティを、次のように設定してください。
- ReadOnly = FALSE
- DisplayAppearance = Edit
- EditAppearance = Edit
- UsePicklist = TRUE
...
- グリッドを読み込むと、列がドロップダウン・コンボ・ボックスとして編集できるようになります。
フィールドのソース
Begin_
...
Com Role(*
...
EXTENDS #PRIM_OBJT)
...
Begin_
...
Com Role(*
...
Visual #PRIM_EVEF)
...
Name(#VisualEdit)
...
Defaultvisual(True)
...
Height(19)
...
Usepicklist(False)
...
Width(178)
...
End_Com
...
Begin_
...
Com Role(*picklist)
...
Name(#LIST)
Define_
...
Com Class(#PRIM_PKIT)
...
Name(#ITEM1)
...
Caption('Male')
...
Default(True)
...
Parent(#LIST)
...
Value('M')
Define_
...
Com Class(#PRIM_PKIT)
...
Name(#ITEM2)
...
Caption('Female')
...
Parent(#LIST)
...
Value('F')
End_Com
...
Begin_
...
Com Role(*
...
Visual #PRIM_EVPL)
...
Name(#VisualPicklist)
...
Appearance(DropDownList)
...
Height(69)
...
Width(209)
...
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(#PRIM_GRID)
...
Name(#GRID)
...
Captionnoblanklines(True)
...
Componentversion(1)
...
Displayposition(1)
...
Height(128)
...
Left(40)
...
Parent(#COM_OWNER)
...
Showbuttonselection(True)
...
Showselection(True)
...
Showselectionhilight(False)
...
Showsortarrow(True)
...
Tabposition(1)
...
Top(8)
...
Width(344)
Define_
...
Com Class(#PRIM_GDCL)
...
Name(#GDCL)
...
Displayappearance(Edit)
...
Displayposition(1)
...
Editappearance(Edit)
...
Parent(#GRID)
...
Readonly(False)
...
Source(#SEX)
...
Usepicklist(True)
...
Width(30)
...
Evtroutine Handling(#COM_OWNER.CreateInstance)
...
Options(*
...
NOCLEARMESSAGES *NOCLEARERRORS)
...
Select Fields(#SECTION)
...
From_File(PSLMST)
...
Add_
...
Entry To_List(#GRID)
...
Endselect
Endroutine
End_Com
...
外観
[ |../../index.htm#lansa/l4wdev03_0345.htm]