Versions Compared

Key

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

...

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

...


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

...


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

...


  1. Image Added

...


  1. [詳細] の [イベント] タブを使って、フィールド xEmployeeTitle の Changed イベントルーチンを作成します。

...


  1. イベント xEmployeeTitle.Changed にコードを追加し、Document p_TITLE プロパティに xEmployeeTitle の値を設定します。コードは以下のようになります。

    Evtroutine Handling(#xEmployeeTitle.Changed) Options(*NOCLEARMESSAGES *NOCLEARERRORS)

    #Document.p_TITLE := #xEmployeeTitle

    #EditorModified := True

    Signal Event(Changed)

    Endroutine

...


  1. ルーチンInitialize にコードを追加して、社員タイトルを表示します。コードは以下のようになります。
    #xEmployeeTitle := #Document.p_TITLE 

...


  1. コンポーネント Editor (演習用コピー) をコンパイルします。