http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 28 Apr 2026 08:51:59 +0000 Sun, 21 Dec 2008 19:46:32 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=12991 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=12991&PID=43835&title=xbase-cj-calender#43835 Author: Auge_Ohr
Subject: 12991
Posted: 21 December 2008 at 7:46pm

SOLVED : CalendarGlobalSettings did have a different CLSID so they must CreateObject() seperate.

Documentation is not clear that those Class are not SubClass of the SuperClass while it found as "Member"

]]> Sun, 21 Dec 2008 19:46:32 +0000 http://forum.codejock.com/forum_posts.asp?TID=12991&PID=43835&title=xbase-cj-calender#43835 http://forum.codejock.com/forum_posts.asp?TID=12991&PID=43828&title=xbase-cj-calender#43828 Author: Auge_Ohr
Subject: 12991
Posted: 20 December 2008 at 9:24pm

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.


]]> Sat, 20 Dec 2008 21:24:04 +0000 http://forum.codejock.com/forum_posts.asp?TID=12991&PID=43828&title=xbase-cj-calender#43828