Versions Compared

Key

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

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

...

フィールド名

SEX (Alpha 1)

説明

フィールドをフォーム上にラジオ・ボタンとして表示します。

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

フィールドのソース

     Begin_

...

Com Role(*

...

EXTENDS #PRIM_OBJT)

...

     Begin_

...

Com Role(*

...

Visual #PRIM_EVEF)

...

 Name(#VisualEdit)

...

 Defaultvisual(True)

...

 Height(19)

...

 Usepicklist(False)

...

 Width(178)

...


End_Com

...


Begin_

...

Com Role(*picklist)

...

 Name(#LIST)
Define_

...

Com Class(#PRIM_PKIT)

...

 Name(#ITEM1)

...

 Caption('Male')

...

 Default(True)

...

 Parent(#LIST)

...

 Value('M')
Define_

...

Com Class(#PRIM_PKIT)

...

 Name(#ITEM2)

...

 Caption('Female')

...

 Parent(#LIST)

...

 Value('F')
End_Com

...


Begin_

...

Com Role(*

...

Visual #PRIM_EVPL)

...

 Name(#VisualPicklist)

...

 Height(69)

...

 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(#SEX.VisualPickList)

...

 Name(#SEX)

...

 Displayposition(1)

...

 Height(25)

...

 Left(56)

...

 Marginleft(233)

...

 Parent(#COM_OWNER)

...

 Tabposition(1)

...

 Top(32)

...

 Width(370)

...


End_Com

...

外観

...

Image Added