Class: cSigCJCalendarControl
=============================================================================
Calendar - class definition
=============================================================================
Class Hierarchy:
DFCOMACTIVEXCONTROL

cComActiveXControl


cSigCjComCalendarControl



cSigCJCalendarControlMixins:
cSigCJMethods_Mixin,
Class Definition
Properties
Boolean
pbShadeLunchTime
Boolean
pbShorterLastDay
Boolean
pbUseCustomIcons
Boolean
pbUseCustomProperties
Boolean
pbUseIcons
---------------------------------------------------------------------
Boolean
pbUseScaleTimes
Boolean
pbUseStdDates
Boolean
pbUseStdFiles
DateTime
pdtHitDateTime
Integer
peDataType
Integer
peUseResources
Handle
phoDayView
Handle
phoOptions
---------------------------------------------------------------------
Handle
phoOptions
---------------------------------------------------------------------
Commonly used objects or objects many levels down (so once found we save them here for speed).
Handle
phoPrintOptions
Handle
phoPrintOptions
Handle
phoPrintPreviewOptions
Handle
phoPrintPreviewOptions
Integer
piNonWorkingCellBackColor
Integer
piWorkingCellBackColor
---------------------------------------------------------------------
Boolean
Private_pbClickToAdd
Boolean
Private_pbCompressWeekendDays
Boolean
Private_pbDayViewShowMinutes
Boolean
Private_pbEnableReminders
Boolean
Private_pbEnableStdToolTips
Boolean
Private_pbInPlaceCreateEvent
Boolean
Private_pbInPlaceEdit_AfterEventResize
Boolean
Private_pbInPlaceEdit_ByF2
Boolean
Private_pbInPlaceEdit_ByMouseClick
Boolean
Private_pbInPlaceEdit_ByTab
Boolean
Private_pbMultiColumnWeekMode
Boolean
Private_pbPrnFromToExactly
Boolean
Private_pbPrnGreyScale
Boolean
Private_pbPrnLandscape
Boolean
Private_pbPrnPrintDateHeader
Boolean
Private_pbUseCustomCategories
Boolean
Private_pbUseCustomDialogs
Boolean
Private_pbUseOutlookGlyphs
DateTime
Private_pdtPrnPrintFrom
DateTime
Private_pdtPrnPrintTo
Integer
Private_peCaptionBar
Integer
Private_peDayViewCurrentTimeMarkVisible
Integer
Private_peFirstDayOfTheWeek
Integer
Private_peShowEndDate
Integer
Private_peShowTimeAsClocks
Integer
Private_peTimeScale
Integer
Private_peViewType
Integer
Private_peWorkWeekMask
Handle
Private_phoCalResources
Handle
Private_phoCalSchedules
Handle
Private_phoCategories
Handle
Private_phoCategoriesIDs
Handle
Private_phoCustomIcons
Handle
Private_phoCustomProps
Handle
Private_phoDataProvider
Handle
Private_phoDataProvider_RS
Handle
Private_phoEvent
Handle
Private_phoEvents
Handle
Private_phoNonWorkingCellColors
Handle
Private_phoR_Pat
Handle
Private_phoR_Pat_Options
Handle
Private_phoResource
Handle
Private_phoSchedule
Handle
Private_phoScheduleIDs
Handle
Private_phoThemeDayViewCellParams
Handle
Private_phoWorkingCellColors
Number
Private_pnPrnMarginBottom
Number
Private_pnPrnMarginLeft
Number
Private_pnPrnMarginRight
Number
Private_pnPrnMarginTop
String
Private_psClickToAddText
String
Private_psPrintPreviewTitle
String
Private_psPrnFooterCenter
String
Private_psPrnFooterLeft
String
Private_psPrnFooterRight
String
Private_psPrnHeaderCenter
String
Private_psPrnHeaderLeft
String
Private_psPrnHeaderRight
String
Private_ptmTimeScaleMaxTime
String
Private_ptmTimeScaleMinTime
String
Private_ptmWorkDayEndTime
String
Private_ptmWorkDayStartTime
String
psAllowEventText
String
psAllowEventTitle
String
psDataSource
---------------------------------------------------------------------
String
psResourceLayout
tdCal_Dates[]
ptCal_Dates
tdEvent
ptEvent_Buffer
String
ptmLastWorkDayEndTime
---------------------------------------------------------------------
String
ptmLunchEndTime
String
ptmLunchStartTime
tdR_Pat
ptR_Pat_Buffer
Functions and Procedures

Add_Category(tdCal_Category tCat)

Add_Event_For_Day(tdEvent tEvent)

Add_Link_Icon(Variant llpEvent)
-------------------------------------------------------------------------

Add_R_Pat_Exception_Event(tdEvent tEvent)
-------------------------------------------------------------------------

Add_Resource_And_Schedule(String sResourceName Integer iScheduleID String sScheduleName Integer iDataType String sDataSource)
Add Resource / schedule

Add_Special_Date(tdCal_Dates tCal_Date)

Add_Upcoming_Event(tdEvent tEvent)
Boolean
Cal_AllDay(Integer iDate)
Integer
Cal_AllowEvents(Integer iDate)
Integer
Cal_BackColor(Integer iDate)
Integer
Cal_Find_Date(tdCal_Dates tCal_Dates tdCal_Dates tDate)
Integer
Cal_Special_Date(Date dDate)

Construct_Object()
=========================================================================
Variant
Create_Event_Object_From_tdEvent(tdEvent tEvent Boolean bRException)
=========================================================================
Buffer --> Object methods
=========================================================================
Variant
Create_R_Pat_Object_From_tdR_Pat(tdR_Pat tR_Pat)
-------------------------------------------------------------------------

Custom_Icon(Variant llpEvent Integer iIcon Boolean bShow)
-------------------------------------------------------------------------
DateTime
Date_and_Time_to_DateTime(Date dDate String sTime)
-------------------------------------------------------------------------
Property Boolean Private_pbPrnLandscape False
Property Boolean Private_pbPrnGreyScale False
Property Boolean Private_pbPrnPrintDateHeader False
Property DateTime Private_pdtPrnPrintFrom //
Property DateTime Private_pdtPrnPrintTo //
Property Boolean Private_pbPrnFromToExactly False
Property String Private_psPrnFooterLeft ""
Property String Private_psPrnFooterCenter ""
Property String Private_psPrnFooterRight ""
Property String Private_psPrnHeaderLeft ""
Property String Private_psPrnHeaderCenter ""
Property String Private_psPrnHeaderRight ""
Property Number Private_pnPrnMarginBottom 1.0
Property Number Private_pnPrnMarginTop 1.0
Property Number Private_pnPrnMarginLeft 1.0
Property Number Private_pnPrnMarginRight 1.0
=========================================================================
String
Date_Range_String(Handle hoActiveView)
-------------------------------------------------------------------------
String
DateTime_to_Time(DateTime dtTime)
-------------------------------------------------------------------------

Enable_Icons()
-------------------------------------------------------------------------

End_Construct_Object()

Force_Data_Refresh()
-------------------------------------------------------------------------

GetHitCode(Variant ByRef vViewEvent Integer ByRef iHitCode)
-------------------------------------------------------------------------

GotoCRM(Variant vEvent)
-------------------------------------------------------------------------
Boolean
IsLastWeekDay(Date dDate)
Boolean
IsTimeBetween(DateTime dtTime String sStartTime String sEndTime)
=========================================================================

Load_Resources()

Load_Special_Date(Date dThisDate)
tdEvent
Move_Event_Object_Data_To_tdEvent(Variant vEvent)
=========================================================================
Object --> Buffer methods
=========================================================================
tdR_Pat
Move_R_Pat_Object_Data_To_tdR_Pat(Variant vR_Pat)
-------------------------------------------------------------------------
tdCal_Category
Move_StdFile_Cats_To_tdCats()
tdEvent
Move_StdFile_Event_To_tdEvent()
tdR_Pat
Move_StdFile_R_Pat_To_tdR_Pat()
-------------------------------------------------------------------------

Move_tdEvent_To_StdFile_Event(tdEvent tEvent)

Move_tdR_Pat_To_StdFile_R_Pat(tdR_Pat tR_Pat)
-------------------------------------------------------------------------

OnCategory_Load()
-------------------------------------------------------------------------

OnComBeforeDrawThemeObject(OLECalendarBeforeDrawThemeObject lleObjType Variant llDrawParams)

OnComBeforeEditOperation(Variant llOpParams Boolean ByRef llbCancelOperation)
=========================================================================
Other Events
=========================================================================

OnComDblClick()
-------------------------------------------------------------------------

OnComDoCreateEvent(Variant llpEvent Integer ByRef llNewEventID Boolean ByRef llbResult)
-------------------------------------------------------------------------
=========================================================================
Control Data Events
=========================================================================

OnComDoCreateRPattern(Variant llpPattern Integer ByRef llNewPatternID Boolean ByRef llbResult)
-------------------------------------------------------------------------

OnComDoDeleteEvent(Variant llpEvent Boolean ByRef llbResult)
-------------------------------------------------------------------------

OnComDoDeleteRPattern(Variant llpPattern Boolean ByRef llbResult)
-------------------------------------------------------------------------

OnComDoGetUpcomingEvents(DateTime lldtFrom Integer llPeriodMinutes Variant llpEvents)
-------------------------------------------------------------------------

OnComDoReadEvent(Integer llEventID Variant ByRef llpEvent)
-------------------------------------------------------------------------

OnComDoReadRPattern(Integer llPatternID Variant ByRef llpPattern)
-------------------------------------------------------------------------

OnComDoRetrieveDayEvents(DateTime lldtDay Variant llEvents)
-------------------------------------------------------------------------

OnComDoUpdateEvent(Variant llpEvent Boolean ByRef llbResult)
-------------------------------------------------------------------------

OnComDoUpdateRPattern(Variant llpPattern Boolean ByRef llbResult)
-------------------------------------------------------------------------

OnComMouseUp(Short llButton Short llShift OLE_XPOS_PIXELS llx OLE_YPOS_PIXELS lly)
-------------------------------------------------------------------------

OnComPrePopulate(Variant llViewGroup Variant llEvents)
-------------------------------------------------------------------------

OnComReminders(OLECalendarRemindersAction llAction Variant llReminder)
-------------------------------------------------------------------------

OnComViewChanged()
-------------------------------------------------------------------------

OnCreate()
Integer
OnEvent_Create(tdEvent tEvent_Data)
Boolean
OnEvent_Delete(Integer iEvent_ID)
-------------------------------------------------------------------------

OnEvent_GetUpcoming(DateTime dtFrom DateTime dtTo)
=========================================================================
Non Std Table Events
=========================================================================
tdEvent
OnEvent_Read(Integer iEvent_ID)
-------------------------------------------------------------------------
Boolean
OnEvent_Save(tdEvent tEvent_Data)
-------------------------------------------------------------------------

OnEventLoadR_Pat_Exceptions(Integer iPatternID)
-------------------------------------------------------------------------

OnEvents_For_Day(Date dDay)
-------------------------------------------------------------------------

OnLoad_Resources()
=========================================================================

OnLoad_Special_Date(Date dThisDate)
Integer
OnR_Pat_Create(tdR_Pat tR_Pat_Data)
-------------------------------------------------------------------------
Boolean
OnR_Pat_Delete(Integer iR_Pat_ID)
-------------------------------------------------------------------------
tdR_Pat
OnR_Pat_Read(Integer iR_Pat_ID)
-------------------------------------------------------------------------
Boolean
OnR_Pat_Save(tdR_Pat tR_Pat_Data)
-------------------------------------------------------------------------

OnViewChanged(Handle hoActiveView)
Boolean
pbClickToAdd()
Boolean
pbCompressWeekendDays()
Boolean
pbDayViewShowMinutes()
Boolean
pbEnableReminders()
Boolean
pbEnableStdToolTips()
Boolean
pbInPlaceCreateEvent()
Boolean
pbInPlaceEdit_AfterEventResize()
Boolean
pbInPlaceEdit_ByF2()
Boolean
pbInPlaceEdit_ByMouseClick()
Boolean
pbInPlaceEdit_ByTab()
Boolean
pbMultiColumnWeekMode()
Boolean
pbUseCustomCategories()
Boolean
pbUseCustomDialogs()
Boolean
pbUseOutlookGlyphs()
Integer
peCaptionBar()
Integer
peDayViewCurrentTimeMarkVisible()
Boolean
peFirstDayOfTheWeek()
Integer
peShowEndDate()
Integer
peShowTimeAsClocks()
Integer
peTimeScale()
Boolean
peViewType()
Boolean
peWorkWeekMask()
String
psClickToAddText()
String
psPrintPreviewTitle()
String
ptmTimeScaleMaxTime()
String
ptmTimeScaleMinTime()
String
ptmWorkDayEndTime()
String
ptmWorkDayStartTime()

ReadRPatternExceptions()
-------------------------------------------------------------------------

RemoveException(Variant vEvent)
-------------------------------------------------------------------------

Set(Integer eCaption)
=========================================================================
Property Methods
=========================================================================

Set(Boolean bState)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(String sValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(String sValue)
-------------------------------------------------------------------------

Set(Integer eValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Integer eValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Boolean bValue)
-------------------------------------------------------------------------

Set(Integer eValue)
-------------------------------------------------------------------------

Set(Integer eValue)
-------------------------------------------------------------------------

Set(Integer eValue)
-------------------------------------------------------------------------

Set(Integer eValue)
-------------------------------------------------------------------------

Set(String tmValue)
-------------------------------------------------------------------------

Set(String tmValue)
-------------------------------------------------------------------------

Set(String tmValue)
-------------------------------------------------------------------------

Set(String tmValue)

Set(Integer eValue)
-------------------------------------------------------------------------

Set_Single_Data_Source(Integer iDataType String sDataSource)
-------------------------------------------------------------------------

Set_Theme_To_Office_07()
-------------------------------------------------------------------------

Setup_Categories()
-------------------------------------------------------------------------

Show_Built_In_Dialog(Integer eDialog Variant vEvent)
-------------------------------------------------------------------------
Procedure OnComSelectionChanged OLECalendarSelectionChanged llSelType
If (llSelType = OLExtpCalendarSelectionUnknown) Begin
Set pdSelectedDate to "01/01/1900"
End
If (llSelType = OLExtpCalendarSelectionDays) Begin
End
If (llSelType = OLExtpCalendarSelectionEvents) Begin
End
End_Procedure
References (3):