Type | Description | |||
Part as BackgroundPartEnum | A BackgroundPartEnum expression that indicates a part in the control. | |||
Color | A Color expression that indicates the background color for a specified part. The last 7 bits in the high significant byte of the color to indicates the identifier of the skin being used. Use the Add method to add new skins to the control. If you need to remove the skin appearance from a part of the control you need to reset the last 7 bits in the high significant byte of the color being applied to the background's part. |
The Background property specifies a background color or a visual appearance for specific parts in the control. If the Background property is 0, the control draws the part as default. Use the Add method to add new skins to the control. Use the Remove method to remove a specific skin from the control. Use the Clear method to remove all skins in the control. Use the BeginUpdate and EndUpdate methods to maintain performance while init the control. Use the Refresh method to refresh the control.
How can I use the Background property?
VBA (MS Access, Excell...)
With TreeCube1 .BeginUpdate .VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn" .Background(8) = &H1000000 .Background(7) = RGB(250,250,250) .Background(6) = RGB(250,250,250) .Background(9) = &H2000000 .Background(31) = RGB(255,255,255) .TexturePicturePath = "" With .FrontFace.CreateCalendar .Date = #1/1/2016# .AutoSize = 1 .MaxMonthX = .MinMonthX .MaxMonthY = .MinMonthY End With .EndUpdate End With
VB6
With TreeCube1 .BeginUpdate .VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn" .Background(exDateHeader) = &H1000000 .Background(exWeeksHeader) = RGB(250,250,250) .Background(exDaysHeader) = RGB(250,250,250) .Background(exDateTodayUp) = &H2000000 .Background(exDateTodayForeColor) = RGB(255,255,255) .TexturePicturePath = "" With .FrontFace.CreateCalendar .Date = #1/1/2016# .AutoSize = exFitClient .MaxMonthX = .MinMonthX .MaxMonthY = .MinMonthY End With .EndUpdate End With
VB.NET
With Extreecube1 .BeginUpdate() .VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") .set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,&H1000000) .set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250)) .set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250)) .set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,&H2000000) .set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255)) .TexturePicturePath = "" With .FrontFace.CreateCalendar() .Date = #1/1/2016# .AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient .MaxMonthX = .MinMonthX .MaxMonthY = .MinMonthY End With .EndUpdate() End With
VB.NET for /COM
With AxTreeCube1 .BeginUpdate() .VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") .set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,16777216) .set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,16448250) .set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,16448250) .set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,33554432) .set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,16777215) .TexturePicturePath = "" With .FrontFace.CreateCalendar() .Date = #1/1/2016# .AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient .MaxMonthX = .MinMonthX .MaxMonthY = .MinMonthY End With .EndUpdate() End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXTREECUBELib' for the library: 'ExTreeCube 1.0 Control Library' #import <ExTreeCube.dll> using namespace EXTREECUBELib; */ EXTREECUBELib::ITreeCubePtr spTreeCube1 = GetDlgItem(IDC_TREECUBE1)->GetControlUnknown(); spTreeCube1->BeginUpdate(); spTreeCube1->GetVisualAppearance()->Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn"); spTreeCube1->PutBackground(EXTREECUBELib::exDateHeader,0x1000000); spTreeCube1->PutBackground(EXTREECUBELib::exWeeksHeader,RGB(250,250,250)); spTreeCube1->PutBackground(EXTREECUBELib::exDaysHeader,RGB(250,250,250)); spTreeCube1->PutBackground(EXTREECUBELib::exDateTodayUp,0x2000000); spTreeCube1->PutBackground(EXTREECUBELib::exDateTodayForeColor,RGB(255,255,255)); spTreeCube1->PutTexturePicturePath(L""); EXTREECUBELib::IFaceCalendarPtr var_FaceCalendar = spTreeCube1->GetFrontFace()->CreateCalendar(); var_FaceCalendar->PutDate(COleDateTime(2016,1,1,0,00,00).operator DATE()); var_FaceCalendar->PutAutoSize(EXTREECUBELib::exFitClient); var_FaceCalendar->PutMaxMonthX(var_FaceCalendar->GetMinMonthX()); var_FaceCalendar->PutMaxMonthY(var_FaceCalendar->GetMinMonthY()); spTreeCube1->EndUpdate();
C++ Builder
TreeCube1->BeginUpdate(); TreeCube1->VisualAppearance->Add(1,TVariant("C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn")); TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDateHeader] = 0x1000000; TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exWeeksHeader] = RGB(250,250,250); TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDaysHeader] = RGB(250,250,250); TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDateTodayUp] = 0x2000000; TreeCube1->Background[Extreecubelib_tlb::BackgroundPartEnum::exDateTodayForeColor] = RGB(255,255,255); TreeCube1->TexturePicturePath = L""; Extreecubelib_tlb::IFaceCalendarPtr var_FaceCalendar = TreeCube1->FrontFace->CreateCalendar(); var_FaceCalendar->Date = TDateTime(2016,1,1).operator double(); var_FaceCalendar->AutoSize = Extreecubelib_tlb::AutoSizeEnum::exFitClient; var_FaceCalendar->MaxMonthX = var_FaceCalendar->MinMonthX; var_FaceCalendar->MaxMonthY = var_FaceCalendar->MinMonthY; TreeCube1->EndUpdate();
C#
extreecube1.BeginUpdate(); extreecube1.VisualAppearance.Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn"); extreecube1.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateHeader,0x1000000); extreecube1.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,Color.FromArgb(250,250,250)); extreecube1.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDaysHeader,Color.FromArgb(250,250,250)); extreecube1.set_Background32(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,0x2000000); extreecube1.set_Background(exontrol.EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,Color.FromArgb(255,255,255)); extreecube1.TexturePicturePath = ""; exontrol.EXTREECUBELib.FaceCalendar var_FaceCalendar = extreecube1.FrontFace.CreateCalendar(); var_FaceCalendar.Date = Convert.ToDateTime("1/1/2016",System.Globalization.CultureInfo.GetCultureInfo("en-US")); var_FaceCalendar.AutoSize = exontrol.EXTREECUBELib.AutoSizeEnum.exFitClient; var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX; var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY; extreecube1.EndUpdate();
JScript/JavaScript
<BODY onload="Init()"> <OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT> <SCRIPT LANGUAGE="JScript"> function Init() { TreeCube1.BeginUpdate(); TreeCube1.VisualAppearance.Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn"); TreeCube1.Background(8) = 16777216; TreeCube1.Background(7) = 16448250; TreeCube1.Background(6) = 16448250; TreeCube1.Background(9) = 33554432; TreeCube1.Background(31) = 16777215; TreeCube1.TexturePicturePath = ""; var var_FaceCalendar = TreeCube1.FrontFace.CreateCalendar(); var_FaceCalendar.Date = "1/1/2016"; var_FaceCalendar.AutoSize = 1; var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX; var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY; TreeCube1.EndUpdate(); } </SCRIPT> </BODY>
VBScript
<BODY onload="Init()"> <OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With TreeCube1 .BeginUpdate .VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn" .Background(8) = &H1000000 .Background(7) = RGB(250,250,250) .Background(6) = RGB(250,250,250) .Background(9) = &H2000000 .Background(31) = RGB(255,255,255) .TexturePicturePath = "" With .FrontFace.CreateCalendar .Date = #1/1/2016# .AutoSize = 1 .MaxMonthX = .MinMonthX .MaxMonthY = .MinMonthY End With .EndUpdate End With End Function </SCRIPT> </BODY>
C# for /COM
axTreeCube1.BeginUpdate(); axTreeCube1.VisualAppearance.Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn"); axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,0x1000000); axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,(uint)ColorTranslator.ToWin32(Color.FromArgb(250,250,250))); axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,(uint)ColorTranslator.ToWin32(Color.FromArgb(250,250,250))); axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,0x2000000); axTreeCube1.set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,(uint)ColorTranslator.ToWin32(Color.FromArgb(255,255,255))); axTreeCube1.TexturePicturePath = ""; EXTREECUBELib.FaceCalendar var_FaceCalendar = axTreeCube1.FrontFace.CreateCalendar(); var_FaceCalendar.Date = Convert.ToDateTime("1/1/2016",System.Globalization.CultureInfo.GetCultureInfo("en-US")); var_FaceCalendar.AutoSize = EXTREECUBELib.AutoSizeEnum.exFitClient; var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX; var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY; axTreeCube1.EndUpdate();
X++ (Dynamics Ax 2009)
public void init() { COM com_FaceCalendar; anytype var_FaceCalendar; ; super(); extreecube1.BeginUpdate(); extreecube1.VisualAppearance().Add(1,"C:\\Program Files\\Exontrol\\ExButton\\Sample\\EBN\\Assorted\\calendar_single.ebn"); extreecube1.Background(8/*exDateHeader*/,0x1000000); extreecube1.Background(7/*exWeeksHeader*/,WinApi::RGB2int(250,250,250)); extreecube1.Background(6/*exDaysHeader*/,WinApi::RGB2int(250,250,250)); extreecube1.Background(9/*exDateTodayUp*/,0x2000000); extreecube1.Background(31/*exDateTodayForeColor*/,WinApi::RGB2int(255,255,255)); extreecube1.TexturePicturePath(""); var_FaceCalendar = extreecube1.FrontFace().CreateCalendar(); com_FaceCalendar = var_FaceCalendar; com_FaceCalendar.Date(str2Date("1/1/2016",213)); com_FaceCalendar.AutoSize(1/*exFitClient*/); com_FaceCalendar.MaxMonthX(com_FaceCalendar.MinMonthX()); com_FaceCalendar.MaxMonthY(com_FaceCalendar.MinMonthY()); extreecube1.EndUpdate(); }
Delphi 8 (.NET only)
with AxTreeCube1 do begin BeginUpdate(); VisualAppearance.Add(1,'C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn'); set_Background(EXTREECUBELib.BackgroundPartEnum.exDateHeader,$1000000); set_Background(EXTREECUBELib.BackgroundPartEnum.exWeeksHeader,$fafafa); set_Background(EXTREECUBELib.BackgroundPartEnum.exDaysHeader,$fafafa); set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayUp,$2000000); set_Background(EXTREECUBELib.BackgroundPartEnum.exDateTodayForeColor,$ffffff); TexturePicturePath := ''; with FrontFace.CreateCalendar() do begin Date := '1/1/2016'; AutoSize := EXTREECUBELib.AutoSizeEnum.exFitClient; MaxMonthX := MinMonthX; MaxMonthY := MinMonthY; end; EndUpdate(); end
Delphi (standard)
with TreeCube1 do begin BeginUpdate(); VisualAppearance.Add(1,'C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn'); Background[EXTREECUBELib_TLB.exDateHeader] := $1000000; Background[EXTREECUBELib_TLB.exWeeksHeader] := $fafafa; Background[EXTREECUBELib_TLB.exDaysHeader] := $fafafa; Background[EXTREECUBELib_TLB.exDateTodayUp] := $2000000; Background[EXTREECUBELib_TLB.exDateTodayForeColor] := $ffffff; TexturePicturePath := ''; with FrontFace.CreateCalendar() do begin Date := '1/1/2016'; AutoSize := EXTREECUBELib_TLB.exFitClient; MaxMonthX := MinMonthX; MaxMonthY := MinMonthY; end; EndUpdate(); end
VFP
with thisform.TreeCube1 .BeginUpdate .VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") .Object.Background(8) = 0x1000000 .Object.Background(7) = RGB(250,250,250) .Object.Background(6) = RGB(250,250,250) .Object.Background(9) = 0x2000000 .Object.Background(31) = RGB(255,255,255) .TexturePicturePath = "" with .FrontFace.CreateCalendar .Date = {^2016-1-1} .AutoSize = 1 .MaxMonthX = .MinMonthX .MaxMonthY = .MinMonthY endwith .EndUpdate endwith
dBASE Plus
local oTreeCube,var_FaceCalendar oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject oTreeCube.BeginUpdate() oTreeCube.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") oTreeCube.Template = [Background(8) = 16777216] // oTreeCube.Background(8) = 0x1000000 oTreeCube.Template = [Background(7) = 16448250] // oTreeCube.Background(7) = 0xfafafa oTreeCube.Template = [Background(6) = 16448250] // oTreeCube.Background(6) = 0xfafafa oTreeCube.Template = [Background(9) = 33554432] // oTreeCube.Background(9) = 0x2000000 oTreeCube.Template = [Background(31) = 16777215] // oTreeCube.Background(31) = 0xffffff oTreeCube.TexturePicturePath = "" var_FaceCalendar = oTreeCube.FrontFace.CreateCalendar() var_FaceCalendar.Date = "01/01/2016" var_FaceCalendar.AutoSize = 1 var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY oTreeCube.EndUpdate()
XBasic (Alpha Five)
Dim oTreeCube as P Dim var_FaceCalendar as P oTreeCube = topparent:CONTROL_ACTIVEX1.activex oTreeCube.BeginUpdate() oTreeCube.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") oTreeCube.Template = "Background(8) = 16777216" // oTreeCube.Background(8) = 16777216 oTreeCube.Template = "Background(7) = 16448250" // oTreeCube.Background(7) = 16448250 oTreeCube.Template = "Background(6) = 16448250" // oTreeCube.Background(6) = 16448250 oTreeCube.Template = "Background(9) = 33554432" // oTreeCube.Background(9) = 33554432 oTreeCube.Template = "Background(31) = 16777215" // oTreeCube.Background(31) = 16777215 oTreeCube.TexturePicturePath = "" var_FaceCalendar = oTreeCube.FrontFace.CreateCalendar() var_FaceCalendar.Date = {01/01/2016} var_FaceCalendar.AutoSize = 1 var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY oTreeCube.EndUpdate()
Visual Objects
local var_FaceCalendar as IFaceCalendar oDCOCX_Exontrol1:BeginUpdate() oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") oDCOCX_Exontrol1:[Background,exDateHeader] := 0x1000000 oDCOCX_Exontrol1:[Background,exWeeksHeader] := RGB(250,250,250) oDCOCX_Exontrol1:[Background,exDaysHeader] := RGB(250,250,250) oDCOCX_Exontrol1:[Background,exDateTodayUp] := 0x2000000 oDCOCX_Exontrol1:[Background,exDateTodayForeColor] := RGB(255,255,255) oDCOCX_Exontrol1:TexturePicturePath := "" var_FaceCalendar := oDCOCX_Exontrol1:FrontFace:CreateCalendar() var_FaceCalendar:Date := SToD("20160101") var_FaceCalendar:AutoSize := exFitClient var_FaceCalendar:MaxMonthX := var_FaceCalendar:MinMonthX var_FaceCalendar:MaxMonthY := var_FaceCalendar:MinMonthY oDCOCX_Exontrol1:EndUpdate()
PowerBuilder
OleObject oTreeCube,var_FaceCalendar oTreeCube = ole_1.Object oTreeCube.BeginUpdate() oTreeCube.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") oTreeCube.Background(8,16777216 /*0x1000000*/) oTreeCube.Background(7,RGB(250,250,250)) oTreeCube.Background(6,RGB(250,250,250)) oTreeCube.Background(9,33554432 /*0x2000000*/) oTreeCube.Background(31,RGB(255,255,255)) oTreeCube.TexturePicturePath = "" var_FaceCalendar = oTreeCube.FrontFace.CreateCalendar() var_FaceCalendar.Date = 2016-01-01 var_FaceCalendar.AutoSize = 1 var_FaceCalendar.MaxMonthX = var_FaceCalendar.MinMonthX var_FaceCalendar.MaxMonthY = var_FaceCalendar.MinMonthY oTreeCube.EndUpdate()
Visual DataFlex
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn" to Nothing Send Destroy to hoAppearance Set ComBackground OLEexDateHeader to |CI$1000000 Set ComBackground OLEexWeeksHeader to (RGB(250,250,250)) Set ComBackground OLEexDaysHeader to (RGB(250,250,250)) Set ComBackground OLEexDateTodayUp to |CI$2000000 Set ComBackground OLEexDateTodayForeColor to (RGB(255,255,255)) Set ComTexturePicturePath to "" Variant voFace Get ComFrontFace to voFace Handle hoFace Get Create (RefClass(cComFace)) to hoFace Set pvComObject of hoFace to voFace Variant voFaceCalendar Get ComCreateCalendar of hoFace to voFaceCalendar Handle hoFaceCalendar Get Create (RefClass(cComFaceCalendar)) to hoFaceCalendar Set pvComObject of hoFaceCalendar to voFaceCalendar Set ComDate of hoFaceCalendar to "1/1/2016" Set ComAutoSize of hoFaceCalendar to OLEexFitClient Set ComMaxMonthX of hoFaceCalendar to (ComMinMonthX(hoFaceCalendar)) Set ComMaxMonthY of hoFaceCalendar to (ComMinMonthY(hoFaceCalendar)) Send Destroy to hoFaceCalendar Send Destroy to hoFace Send ComEndUpdate End_Procedure
XBase++
#include "AppEvent.ch" #include "ActiveX.ch" PROCEDURE Main LOCAL oForm LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL LOCAL oFaceCalendar LOCAL oTreeCube oForm := XbpDialog():new( AppDesktop() ) oForm:drawingArea:clipChildren := .T. oForm:create( ,,{100,100}, {640,480},, .F. ) oForm:close := {|| PostAppEvent( xbeP_Quit )} oTreeCube := XbpActiveXControl():new( oForm:drawingArea ) oTreeCube:CLSID := "Exontrol.TreeCube.1" /*{13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9}*/ oTreeCube:create(,, {10,60},{610,370} ) oTreeCube:BeginUpdate() oTreeCube:VisualAppearance():Add(1,"C:\Program Files\Exontrol\ExButton\Sample\EBN\Assorted\calendar_single.ebn") oTreeCube:SetProperty("Background",8/*exDateHeader*/,0x1000000) oTreeCube:SetProperty("Background",7/*exWeeksHeader*/,AutomationTranslateColor( GraMakeRGBColor ( { 250,250,250 } ) , .F. )) oTreeCube:SetProperty("Background",6/*exDaysHeader*/,AutomationTranslateColor( GraMakeRGBColor ( { 250,250,250 } ) , .F. )) oTreeCube:SetProperty("Background",9/*exDateTodayUp*/,0x2000000) oTreeCube:SetProperty("Background",31/*exDateTodayForeColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. )) oTreeCube:TexturePicturePath := "" oFaceCalendar := oTreeCube:FrontFace():CreateCalendar() oFaceCalendar:Date := "01/01/2016" oFaceCalendar:AutoSize := 1/*exFitClient*/ oFaceCalendar:MaxMonthX := oFaceCalendar:MinMonthX() oFaceCalendar:MaxMonthY := oFaceCalendar:MinMonthY() oTreeCube:EndUpdate() oForm:Show() DO WHILE nEvent != xbeP_Quit nEvent := AppEvent( @mp1, @mp2, @oXbp ) oXbp:handleEvent( nEvent, mp1, mp2 ) ENDDO RETURN