次は背景パネルを編集して、カスタム・フレームワーク・マネージャに応答するようにしなければいけません。
Visual LANSA エディターで、背景パネル (XXX_BackgoundPane) を開きます。
[ソース]タブを表示し、次のように自身のカスタム・フレームワーク・マネージャを定義します (#CCC_CustomManager を自身のカスタム・フレームワーク・マネージャ名に置換します)。
Define_Com Class(#CCC_CustomManager) Name(#CustomFrameworkManager) Reference(*DYNAMIC)
uInitialize イベント内で、自身のカスタム・フレームワーク・マネージャへの参照を次のように設定します (#CCC_CustomManager を自身のカスタム・フレームワーク・マネージャ名に置換)。
#CustomFrameworkManager <= #AVFRAMEWORKMANAGER.avCustomManagerBaseReference *As #CCC_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
背景パネルをコンパイルします。
