次は背景パネルを編集して、カスタム・フレームワーク・マネージャに応答するようにしなければいけません。

Visual LANSA エディターで、背景パネル (XXX_BackgoundPane) を開きます。

[ソース]タブを表示し、次のように自身のカスタム・フレームワーク・マネージャを定義します (#CCC_CustomManager を自身のカスタム・フレームワーク・マネージャ名に置換します)。

   Define_Com Class(#EOM_CustomManager) Name(#CustomFrameworkManager) Reference(*DYNAMIC)


uInitialize イベント内で、自身のカスタム・フレームワーク・マネージャへの参照を次のように設定します (#CCC_CustomManager を自身のカスタム・フレームワーク・マネージャ名に置換)。

   #CustomFrameworkManager <= #AVFRAMEWORKMANAGER.avCustomManagerBaseReference *As #EOM_CustomManager


次に、以下の背景パネルのスタイルとイメージを変更する 2 つのイベント・ルーチンを追加します。

   * -----------------------------------------------------------------------------------
   Evtroutine Handling(#CustomFrameworkManager.ChangeBackgroundTextStyle) Tostyle(#ToStyle)

   #CurrentContent.Style <= #ToStyle

   #CurrentContent.Height := #ToStyle.FontSize + 2

   Endroutine

   * -----------------------------------------------------------------------------------
   Evtroutine Handling(#CustomFrameworkManager.ChangeBackgroundImage) Imagename(#ImageName)

   #Image.Image <= #SYS_APPLN.CreateBitmap( ("VLFONE/Images/Black/XLarge/" + #ImageName) )

   Endroutine

   * -----------------------------------------------------------------------------------

 
最後に、背景パネルにすでに uTerminate メソッドがある場合は、以下の行を追加します。

   *Drop any reference to the custom framework manager 
   #CustomFrameworkManager <= *null


uTerminate メソッドが無い場合、以下を追加します。

   Mthroutine Name(uTerminate) Options(*REDEFINE)

   * Drop any reference to the custom framework manager
   #CustomFrameworkManager <= *null

   * Delegate to the ancestor component in case it wants to clean up anything
   #COM_ANCESTOR.uTerminate

   Endroutine

背景パネルをコンパイルします。

  • No labels