You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

[ |../../index.htm#lansa/l4wdev03_0355.htm]
現在地:

イメージ

フィールド名
NATION (Alpha 3)
説明
フィールドをグリッド内に画像として表示します。
使用
リスト項目の意味を、文字の代わりに図形で表したい場合に使います。
詳細
フィールド・コンポーネントのソースに、ピックリスト・ビューの設定 (PRIM_EVPL) お よびピックリストの定義を追加します。この2つは別々のクラスであることに注意してください。国を表すピックリスト項目を追加し、それぞれに画像を設定してください。PRIM_EVPLのAppearanceプロパティをImageに変更します。いったんフィールドを保存し、フォーム上でVisualPicklistクラスを使います。
1.      フィールド・コンポーネントのソースに、ピックリスト・ビューの設定 (PRIM_EVPL) お よびピックリストの定義を追加します。この2つは別々のクラスであることに注意してください。国を表すピックリスト項目を追加し、それぞれに画像を設定してください。フィールドをいったん保存してください。
2.      グリッド・コンポーネントを作成し、フィールドタブで、列としてNATIONフィールドを追加します。列のプロパティを、次のように設定してください。

  • ReadOnly = FALSE
  • DisplayAppearance = Image
  • EditAppearance = Image
  • UsePicklist = TRUE
  • ColumnAlign = Center

3.      グリッドを読み込むと、列が一連の画像として編集できるようになります。
フィールドのソース
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]

  • No labels