ボタン・セット

フィールド名

SEX (Alpha 1)

説明

フィールドをフォーム上にラジオ・ボタンとして表示します。

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

フィールドのソース

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) 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(#SEX.VisualPickList) Name(#SEX) Displayposition(1) Height(25) Left(56) Marginleft(233) Parent(#COM_OWNER) Tabposition(1) Top(32) Width(370)
 
End_Com

 

外観