[ 
|../../index.htm#lansa/vlfonetutorials_0565.htm]
Visual LANSA フレームワーク ガイド > チュートリアル > VLF-ONE Web アプリケーションのチュートリアル > 理解しておくと便利な事柄 > 設定パネルの作成 > 背景パネルの編集l
背景パネルの編集l
次は背景パネルを編集して、カスタム・フレームワーク・マネージャに応答するようにしなければいけません。
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
背景パネルをコンパイルします。
[ |../../index.htm#lansa/vlfonetutorials_0565.htm]