Page History

...

フィールド・コンポーネントのソースに、ピックリスト・ビューの設定 (PRIM_EVPL) お よびピックリストの定義を追加します。この2つは別々のクラスであることに注意してください。「Yes」および「No」の2項目をピックリストに追加し、PRIM_EVPLのAppearanceプロパティをCheckBoxに変更します。いったんフィールドを保存し、フォーム上でVisualPicklistクラスを使います。

フィールドのソース

     Begin_

...

Com Role(*

...

EXTENDS #PRIM_OBJT)
     Begin_Com Role(*picklist) Name(#Picklist)

...

     Define_Com Class(#PRIM_PKIT) Name(#Item_1) Caption('Yes') Default(True) Parent(#Picklist) Value(1)

...

     Define_Com Class(#PRIM_PKIT) Name(#Item_2) Caption('No') Parent(#Picklist) Value(0)

...

     End_Com

...

     Begin_Com Role(*Visual #PRIM_EVPL) Name(#VisualPicklist) Appearance(CheckBox) Defaultvisual(True) Height(69) Width(209)

...

     End_Com

...

     End_Com

...

フォームのソース
...
     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(130) Clientwidth(492) Height(157) Left(304) Top(155)
...

     Define_Com Class(#ACTIVE.VisualPickList) Name(#ACTIVE) Displayposition(1) Height(25) Left(160) Marginleft(50) Parent(#COM_OWNER) Tabposition(1) Top(32) Width(129)
...

     End_Com
外観
Image RemovedImage Added
 Note
注：
チェック・ボックスをクリックすると、次の規則に従い、ピックリスト項目に設定された値がフィールド値になります。
チェック・ボックスがオフの場合、ピックリストに列挙されている先頭の値
チェック・ボックスがオンの場合、ピックリストに列挙されている末尾の値
チェック・ボックスが灰色表示の場合、ピックリストに列挙されている先頭でも末尾でもない値、または無効を表す値(フィールドの値を、ピックリストに列挙されている先頭または末尾の値以外に変更すると、チェック・ボックスは灰色表示になります)