Page History
[ 
|../../index.htm#lansa/l4wdev03_0355.htm]
現在地:
...
フィールド名
NATION (Alpha 3)
説明
フィールドをグリッド内に画像として表示します。
使用
リスト項目の意味を、文字の代わりに図形で表したい場合に使います。
詳細
フィールド・コンポーネントのソースに、ピックリスト・ビューの設定 (PRIM_EVPL) お よびピックリストの定義を追加します。この2つは別々のクラスであることに注意してください。国を表すピックリスト項目を追加し、それぞれに画像を設定してください。PRIM_EVPLのAppearanceプロパティをImageに変更します。いったんフィールドを保存し、フォーム上でVisualPicklistクラスを使います。 1. フィールド・コンポーネントのソースに、ピックリスト・ビューの設定
- フィールド・コンポーネントのソースに、ピックリスト・ビューの設定 (PRIM_EVPL) お よびピックリストの定義を追加します。この2つは別々のクラスであることに注意してください。国を表すピックリスト項目を追加し、それぞれに画像を設定してください。フィールドをいったん保存してください。
...
- グリッド・コンポーネントを作成し、フィールドタブで、列としてNATIONフィールドを追加します。列のプロパティを、次のように設定してください。
- ReadOnly = FALSE
- DisplayAppearance = Image
- EditAppearance = Image
- UsePicklist = TRUE
- ColumnAlign = Center
...
- グリッドを読み込むと、列が一連の画像として編集できるようになります。
フィールドのソース
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(Image)
...
Defaultvisual(True)
...
Height(95)
...
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)
...
Columnbuttonheight(17)
...
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)
...
Columnalign(Center)
...
Displayappearance(Image)
...
Displayposition(1)
...
Editappearance(Image)
...
Parent(#GRID)
...
Readonly(False)
...
Source(#NATION)
...
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_0355.htm]