1. エディターでコンポーネント Editor を開きます。

  2. [リポジトリ] タブで、ファイル xEmployee を探し、その定義を展開します。フィールド xEmployeeTitle をパネル上にドラッグし、フィールド Monthly Salary のすぐ下にドロップします。

  3. フィールド xEmployeeTitle を選択した状態で、[レイアウト] リボンを選択して、[レイアウト項目] を "上"、[サイズ] を "コンテンツ幅" に設定し、[アイテムの余白] はすべてに "5" を設定します。ここまでのデザインは以下のようになります。



  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 (演習用コピー) をコンパイルします。

  • No labels