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