hi,
i┤m a old Style dBase Programmer using Xbase++ with activeX
i did some activeX before (Windows Mediaplayer) and i go most
:interfaceName from CalendarControl but some i do not understand
what SuperClass they are from.
1.) CalendarGlobalSettings
2.) ColorManager Object
3.) PropExchange Object
other i found as Member from CalendarControl.
Sample
some Xbase++ Code
*** snip ***
METHOD _NewForm:init(...)
...
::oCalHead := XbpActiveXControl():new( ::drawingArea, , {0,424}, {792,60} )
::oCalHead:CLSID := "{E1911E0C-F857-4C42-AE4A-DBCBEEDB3283}"
::oCalHead:License := "Calendar Control Copyright ..."
::oCalCon := XbpActiveXControl():new( ::drawingArea, , {0,24}, {652,400} )
::oCalCon:CLSID := "{0C8AE9B1-EF01-48D3-9316-04FF307CC663}"
::oCalCon:License := "Calendar Control Copyright ..."
::oDatePicker := XbpActiveXControl():new( ::drawingArea, , {652,24}, {140,400} )
::oDatePicker:CLSID := "{17B06FA2-716A-4136-8B8F-9E7A1A0F15E5}"
::oDatePicker:License := "Calendar Control Copyright ..."
...
METHOD _NewForm:create(...)
::XbpDialog:create( oParent, oOwner, aPos, aSize, aPP, lVisible )
::oCalHead:create()
::oCalCon:create()
::oDatePicker:create()
METHOD NewForm:InitCalControl()
//
// Method
//
::oOptions := ::oCalCon:Options()
::oTheme := ::oCalCon:Theme()
::oMultipleResources := ::oCalCon:MultipleResources()
/*
working, but found not "right" Color yet
::oTheme:BaseColor := AutomationTranslateColor(GraMakeRGBColor({031,153,255}), .F.)
::oTheme:Header:BaseColor := AutomationTranslateColor(GRA_CLR_RED , .F.)
::oTheme:Header:TodayBaseColor := AutomationTranslateColor(GRA_CLR_GREEN, .F.)
*/
::oOptions:FirstDayOfTheWeek := xtpCalendarDayMonday // Monday
::oOptions:MonthViewCompressWeekendDays := .F. // do not kompress
::oOptions:MonthViewShowTimeAsClocks := .T. // display start/end time as clock
::oOptions:WeekViewShowTimeAsClocks := .T. // display start/end time as clock
//
// VB have TIME as Date in a YYYYMMMDDHHMMSS Format
// we pass a hole DateTime String using :treatDateAsString(.T.)
// and activeX will get Time from it
//
::oOptions:treatDateAsString(.T.):setProperty("WorkDayStartTime",;
VTType():new( "2008122006:00:00", VT_DATE))
::oOptions:treatDateAsString(.T.):setProperty("WorkDayEndTime",;
VTType():new( "2008122018:00:00", VT_DATE))
//
// if CJ Commandbar ist attached, Calendar will use it
//
::oCalCon:CreatePrintView()
::oCalCon:ViewType := xtpCalendarMonthView
//
// attach Head to active Calendar Object
//
::oCalHead:AttachToCalendar(::oCalCon)
//
// same with datepicker
//
::oDatePicker:AttachToCalendar(::oCalCon)
...
::show()
ALTD()
//
// this now fail : no Member with this Name
//
* xxx := ::oCalCon:CalendarGlobalSettings
* xxx := ::oCalCon:ColorManager
* xxx := ::oCalCon:PropExchange Object
// XtremeCalendarControl.ResourceFile = App.Path & "\ToolkitPro.ResourceDe.xml"
* ::oCalCon:MultipleResources:ResourceFile := ;
* "C:\Programme\Codejock Software\Bin\Translations\SuitePro.ResourceDe.dll"
*** eof ***
so can me please someone point to understand CJ Calender Class Model, thx.
-------------
greetings by OHR
Jimmy
|