画像およびテキスト

フィールド名

NATION (Alpha 3)

フィールドをフォーム上に画像として表示します。

リスト項目の意味を、文字の代わりに図形で表したい場合に使います。

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

フィールドのソース

Begin_Com Role(*EXTENDS #PRIM_OBJT)

 
Begin_Com Role(*picklist) Name(#Picklist)
 
Define_Com Class(#PRIM_PKIT) Name(#Item_1) Caption('USA') Default(True) Image(#VL_FLGUSA) Parent(#Picklist) Value('USA')
Define_Com Class(#PRIM_PKIT) Name(#Item_2) Caption('Japan') Image(#VL_FLGJPN) Parent(#Picklist) Value('JPN')
 
Define_Com Class(#PRIM_PKIT) Name(#Item) Caption('Great Britain') Image(#VL_FLGGB) Parent(#Picklist) Value('GBP')
Define_Com Class(#PRIM_PKIT) Name(#Item_3) Caption('Australia') Image(#VL_FLGAUS) Parent(#Picklist) Value('AUS')
End_Com
 
Begin_Com Role(*Visual #PRIM_EVPL) Name(#VisualPicklist) Appearance(ImageAndText) Defaultvisual(True) Height(95) 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(#NATION.VisualPickList) Name(#NATION) Displayposition(1) Height(89) Left(160) Marginleft(60) Parent(#COM_OWNER) Tabposition(1) Top(16) Width(129)
 
End_Com
  

外観