Page History
[ 
|../../index.htm#lansa/l4wdev03_0310.htm]
現在地:
...
フィールド名
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
外観
...
