Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/l4wdev03_0305.htm]
現在地:

...

フィールド名

NATION (Alpha 3)

説明

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

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

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

...

 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

...

外観

Image Removed
[ Image Removed |../../index.htm#lansa/l4wdev03_0305.htm]Image Added