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

ステップ 3. Editor (II_EDIT のコピー) にフィールド xEmployeeTitle を追加

1.      エディターでコンポーネント Editor を開きます。
2.      \[リポジトリ\] タブで、ファイル xEmployee を探し、その定義を展開します。フィールド xEmployeeTitle をパネル上にドラッグし、フィールド Monthly Salary のすぐ下にドロップします。
3.      フィールド xEmployeeTitle を選択した状態で、\[レイアウト\] リボンを選択して、\[レイアウト項目\] を "上"、\[サイズ\] を "コンテンツ幅" に設定し、\[アイテムの余白\] はすべてに "5" を設定します。ここまでのデザインは以下のようになります。
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!
4.      \[詳細\] の \[イベント\] タブを使って、フィールド xEmployeeTitle の Changed イベントルーチンを作成します。
5.      イベント xEmployeeTitle.Changed にコードを追加し、Document p_TITLE プロパティに xEmployeeTitle の値を設定します。コードは以下のようになります。
Evtroutine Handling(#xEmployeeTitle.Changed) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
 
#Document.p_TITLE := #xEmployeeTitle
 
#EditorModified := True
 
Signal Event(Changed)
 
Endroutine
6.      ルーチンInitialize にコードを追加して、社員タイトルを表示します。コードは以下のようになります。
#xEmployeeTitle := #Document.p_TITLE
7.      コンポーネント Editor (演習用コピー) をコンパイルします。
[ !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! |../../index.htm#lansa/vldtoolt_0232.htm]