|
325
|
Clear Undo/Redo queue (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Variant c
Get ComUndoRedoQueueLength to c
Set ComUndoRedoQueueLength to 0
Set ComUndoRedoQueueLength to c
Showln (ComUndoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
324
|
Clear Undo/Redo queue (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Set ComAllowUndoRedo to True
Showln (ComUndoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
323
|
Removes Redo operations
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComUndo
Send ComRedoRemoveAction 13 Nothing
Showln (ComRedoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
322
|
Removes Undo operations
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComUndoRemoveAction 13 Nothing
Showln (ComUndoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
321
|
Record the UI operations as a block of undo/redo operations
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Send ComStartBlockUndoRedo
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComEndBlockUndoRedo
Showln (ComUndoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
320
|
Groups the next to current Undo/Redo Actions in a single block
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComGroupUndoRedoActions 2
Showln (ComUndoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
319
|
Limits the number of entries within the Undo/Redo queue
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComUndoRedoQueueLength to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Showln (ComUndoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
318
|
Lists the Redo actions that can be performed on the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComUndo
Showln (ComRedoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
317
|
Lists the Undo actions that can be performed on the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Showln (ComUndoListAction(Self,Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
316
|
Checks whether the Undo operation is possible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComUndo
Showln "CanRedo" (ComCanRedo(Self))
Send ComEndUpdate
End_Procedure
|
|
315
|
Call Redo by code
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComUndo
Send ComRedo
Send ComEndUpdate
End_Procedure
|
|
314
|
Checks whether the Undo operation is possible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Showln "CanUndo" (ComCanUndo(Self))
Send ComEndUpdate
End_Procedure
|
|
313
|
Call Undo by code
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComUndo
Send ComEndUpdate
End_Procedure
|
|
312
|
Save the calendar-event's properties for Undo/Redo operations, by code
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Send Destroy to hoEvents
Send ComStartBlockUndoRedo
Variant voEvents1
Get ComEvents to voEvents1
Handle hoEvents1
Get Create (RefClass(cComEvents)) to hoEvents1
Set pvComObject of hoEvents1 to voEvents1
Variant voEvent
Get ComAdd of hoEvents1 "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Variant h
Get ComStartUpdateEvent of hoEvent to h
Set ComBodyBackColor of hoEvent to (RGB(0,0,1))
Set ComBodyForeColor of hoEvent to (RGB(255,255,255))
Set ComStatusColor of hoEvent to (RGB(255,0,0))
Send ComEndUpdateEvent of hoEvent h
Send Destroy to hoEvent
Send Destroy to hoEvents1
Send ComEndBlockUndoRedo
Send ComEndUpdate
End_Procedure
|
|
311
|
No color is restored for the calendar-event when Undo/Redo operation is performed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 11:30:00 AM" to Nothing
Send Destroy to hoEvents
Send ComStartBlockUndoRedo
Variant voEvents1
Get ComEvents to voEvents1
Handle hoEvents1
Get Create (RefClass(cComEvents)) to hoEvents1
Set pvComObject of hoEvents1 to voEvents1
Variant voEvent
Get ComAdd of hoEvents1 "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Variant h
Get ComStartUpdateEvent of hoEvent to h
Set ComBodyBackColor of hoEvent to (RGB(0,0,1))
Set ComBodyForeColor of hoEvent to (RGB(255,255,255))
Set ComStatusColor of hoEvent to (RGB(255,0,0))
Send ComEndUpdateEvent of hoEvent h
Send Destroy to hoEvent
Send Destroy to hoEvents1
Send ComEndBlockUndoRedo
Send ComEndUpdate
End_Procedure
|
|
310
|
How can I ensure that a specified calendar-event fits the control's visible area
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Variant voPattern
Get ComBodyPattern of hoEvent to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternBDiagonal
Set ComColor of hoPattern to (RGB(224,224,224))
Send Destroy to hoPattern
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Send ComEnsureVisible of hoEvent1
Send Destroy to hoEvent1
Send Destroy to hoEvents
End_Procedure
|
|
309
|
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
// Notifies your application once the control's layout has been changed.
Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation
Forward Send OnComLayoutEndChanging llOperation
Showln "LayoutEndChanging" llOperation
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
308
|
Turn on the Undo/Redo feature
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowUndoRedo to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
307
|
How can I make the header (date/group) always visible, so it stays on the top while the user scrolls the chart
// Notifies your application once the control's layout has been changed.
Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation
Forward Send OnComLayoutEndChanging llOperation
Showln llOperation
Set ComDayViewHeight to 2016
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelectDate of hoCalendar "5/20/2012" to True
Send ComSelect of hoCalendar OLEexSelectWeek
Send Destroy to hoCalendar
Set ComScrollBars to OLEexVertical
Set ComShowViewCompact to OLEexViewSingleRowLockHeader
Set ComDayViewHeight to 2016
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComMinorTimeRuler of hoTimeScale to "00:10"
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Set ComDayStartTime to "00:00"
Set ComDayEndTime to "24:00"
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "5/24/2012"
Send Destroy to hoCalendar1
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Set ComApplyGroupingColors to False
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComVisible of hoGroup to True
Set ComEventBackColor of hoGroup to (RGB(128,128,128))
Set ComTitle of hoGroup to "1'st Group"
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComVisible of hoGroup1 to True
Set ComEventBackColor of hoGroup1 to (RGB(255,0,0))
Set ComTitle of hoGroup1 to "2'nd Group"
Send Destroy to hoGroup1
Send Destroy to hoGroups
Set ComDefaultEventLongLabel to "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
Set ComDefaultEventShortLabel to (ComDefaultEventLongLabel(Self))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 1:00:00 AM" "5/24/2012 2:00:00 AM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 1:45:00 AM" "5/24/2012 2:30:00 AM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/24/2012 2:30:00 AM" "5/24/2012 4:30:00 AM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComGroupID of hoEvent2 to 1
Send Destroy to hoEvent2
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
306
|
It appears that Width property of the Group does not what. What am I doing wrong
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComTitle of hoGroup to "First"
Set ComVisible of hoGroup to True
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComTitle of hoGroup1 to "Second"
Set ComVisible of hoGroup1 to True
Send Destroy to hoGroup1
Variant voGroup2
Get ComAdd of hoGroups 3 "Group 3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComTitle of hoGroup2 to "Third"
Set ComVisible of hoGroup2 to True
Send Destroy to hoGroup2
Send Destroy to hoGroups
Set ComDayViewWidth to 144
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup3
Get ComItem of hoGroups1 1 to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComWidth of hoGroup3 to 48
Send Destroy to hoGroup3
Send Destroy to hoGroups1
Variant voGroups2
Get ComGroups to voGroups2
Handle hoGroups2
Get Create (RefClass(cComGroups)) to hoGroups2
Set pvComObject of hoGroups2 to voGroups2
Variant voGroup4
Get ComItem of hoGroups2 2 to voGroup4
Handle hoGroup4
Get Create (RefClass(cComGroup)) to hoGroup4
Set pvComObject of hoGroup4 to voGroup4
Set ComWidth of hoGroup4 to 48
Send Destroy to hoGroup4
Send Destroy to hoGroups2
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
305
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Set ComImageSize to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Variant voStdFont1
Get ComEventsFont to voStdFont1
Handle hoStdFont1
Get Create (RefClass(cComStdFont)) to hoStdFont1
Set pvComObject of hoStdFont1 to voStdFont1
Set ComSize of hoStdFont1 to 16
Send Destroy to hoStdFont1
Variant voStdFont2
Get ComTimeScaleFont to voStdFont2
Handle hoStdFont2
Get Create (RefClass(cComStdFont)) to hoStdFont2
Set pvComObject of hoStdFont2 to voStdFont2
Set ComSize of hoStdFont2 to 16
Send Destroy to hoStdFont2
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComWidth of hoTimeScale to 128
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 2:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComPictures of hoEvent to "1/2"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 12:45:00 PM" "5/24/2012 3:45:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComPictures of hoEvent1 to "1,2"
Send Destroy to hoEvent1
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
304
|
ImageSize property on 16 (default) (specifies the size of control' icons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Set ComImageSize to 16
Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 2:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComPictures of hoEvent to "1/2"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 12:45:00 PM" "5/24/2012 3:45:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComPictures of hoEvent1 to "1,2"
Send Destroy to hoEvent1
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
303
|
Is it possible to show a different background color for alternate days
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexScheduleDayHeaderBackColor to (RGB(0,0,0))
Set ComBackground OLEexScheduleDayHeaderForeColor to (RGB(0,0,0))
Set ComBackground OLEexScheduleDayBackColorAlternate to (RGB(240,240,240))
Set ComBackground OLEexScheduleDayForeColorAlternate to (RGB(128,128,128))
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Send ComSelect of hoCalendar OLEexSelectWeek
Send Destroy to hoCalendar
End_Procedure
|
|
302
|
How can I select all events
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Send Destroy to hoEvents
Send ComSelectAll
Send ComEndUpdate
End_Procedure
|
|
301
|
How can I unselect all events
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Send Destroy to hoEvents
Send ComSelectAll
Set ComSelection to ""
Send ComEndUpdate
End_Procedure
|
|
300
|
How do I immediately select a newly added event
// Notifies your application once the a new event is added.
Procedure OnComAddEvent Variant llEv
Forward Send OnComAddEvent llEv
// Ev.Selected = True
End_Procedure
|
|
299
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible. Also, the possibility to have a complete week of that 10 rooms.
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Set ComBodyEventForeColor to (RGB(255,255,255))
Set ComDayStartTime to "09:00"
Set ComDayEndTime to "14:00"
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelectDate of hoCalendar "5/24/2012" to True
Send ComSelect of hoCalendar OLEexSelectWeek
Send Destroy to hoCalendar
Set ComScrollBars to OLEexNoScroll
Set ComShowViewCompact to OLEexViewSingleRow
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComVisible of hoGroup to True
Set ComEventBackColor of hoGroup to (RGB(255,0,0))
Set ComHeaderBackColor of hoGroup to (ComEventBackColor(hoGroup))
Set ComHeaderForeColor of hoGroup to (RGB(255,255,255))
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComVisible of hoGroup1 to True
Set ComEventBackColor of hoGroup1 to (RGB(204,0,0))
Set ComHeaderBackColor of hoGroup1 to (ComEventBackColor(hoGroup1))
Set ComHeaderForeColor of hoGroup1 to (RGB(255,255,255))
Send Destroy to hoGroup1
Variant voGroup2
Get ComAdd of hoGroups 3 "3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComVisible of hoGroup2 to True
Set ComEventBackColor of hoGroup2 to (RGB(153,0,0))
Set ComHeaderBackColor of hoGroup2 to (ComEventBackColor(hoGroup2))
Set ComHeaderForeColor of hoGroup2 to (RGB(255,255,255))
Send Destroy to hoGroup2
Variant voGroup3
Get ComAdd of hoGroups 4 "4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComVisible of hoGroup3 to True
Set ComEventBackColor of hoGroup3 to (RGB(102,0,0))
Set ComHeaderBackColor of hoGroup3 to (ComEventBackColor(hoGroup3))
Set ComHeaderForeColor of hoGroup3 to (RGB(255,255,255))
Send Destroy to hoGroup3
Variant voGroup4
Get ComAdd of hoGroups 5 "5" to voGroup4
Handle hoGroup4
Get Create (RefClass(cComGroup)) to hoGroup4
Set pvComObject of hoGroup4 to voGroup4
Set ComVisible of hoGroup4 to True
Set ComEventBackColor of hoGroup4 to (RGB(51,0,0))
Set ComHeaderBackColor of hoGroup4 to (ComEventBackColor(hoGroup4))
Set ComHeaderForeColor of hoGroup4 to (RGB(255,255,255))
Send Destroy to hoGroup4
Send Destroy to hoGroups
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComGroupID of hoEvent2 to 3
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComGroupID of hoEvent3 to 4
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComGroupID of hoEvent4 to 5
Send Destroy to hoEvent4
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
298
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to OLEexCalendarAutoHide
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Set ComBodyEventForeColor to (RGB(255,255,255))
Set ComDayStartTime to "09:00"
Set ComDayEndTime to "14:00"
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "Room1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComVisible of hoGroup to True
Set ComEventBackColor of hoGroup to (RGB(255,0,0))
Set ComHeaderBackColor of hoGroup to (ComEventBackColor(hoGroup))
Set ComHeaderForeColor of hoGroup to (RGB(255,255,255))
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "Room2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComVisible of hoGroup1 to True
Set ComEventBackColor of hoGroup1 to (RGB(204,0,0))
Set ComHeaderBackColor of hoGroup1 to (ComEventBackColor(hoGroup1))
Set ComHeaderForeColor of hoGroup1 to (RGB(255,255,255))
Send Destroy to hoGroup1
Variant voGroup2
Get ComAdd of hoGroups 3 "Room3" to voGroup2
Handle hoGroup2
Get Create (RefClass(cComGroup)) to hoGroup2
Set pvComObject of hoGroup2 to voGroup2
Set ComVisible of hoGroup2 to True
Set ComEventBackColor of hoGroup2 to (RGB(153,0,0))
Set ComHeaderBackColor of hoGroup2 to (ComEventBackColor(hoGroup2))
Set ComHeaderForeColor of hoGroup2 to (RGB(255,255,255))
Send Destroy to hoGroup2
Variant voGroup3
Get ComAdd of hoGroups 4 "Room4" to voGroup3
Handle hoGroup3
Get Create (RefClass(cComGroup)) to hoGroup3
Set pvComObject of hoGroup3 to voGroup3
Set ComVisible of hoGroup3 to True
Set ComEventBackColor of hoGroup3 to (RGB(102,0,0))
Set ComHeaderBackColor of hoGroup3 to (ComEventBackColor(hoGroup3))
Set ComHeaderForeColor of hoGroup3 to (RGB(255,255,255))
Send Destroy to hoGroup3
Variant voGroup4
Get ComAdd of hoGroups 5 "Room5" to voGroup4
Handle hoGroup4
Get Create (RefClass(cComGroup)) to hoGroup4
Set pvComObject of hoGroup4 to voGroup4
Set ComVisible of hoGroup4 to True
Set ComEventBackColor of hoGroup4 to (RGB(51,0,0))
Set ComHeaderBackColor of hoGroup4 to (ComEventBackColor(hoGroup4))
Set ComHeaderForeColor of hoGroup4 to (RGB(255,255,255))
Send Destroy to hoGroup4
Send Destroy to hoGroups
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComGroupID of hoEvent2 to 3
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComGroupID of hoEvent3 to 4
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComGroupID of hoEvent4 to 5
Send Destroy to hoEvent4
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
297
|
Please could you let me know if it is possible to change the increment when the user scrolls the mouse wheel as its to slow by default
Procedure OnCreate
Forward Send OnCreate
Set ComVerticalScrollWheel to 3
End_Procedure
|
|
296
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelectEventStyle to OLEexLinesSolid
Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
Set ComDefaultEventLongLabel to "<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) replace `<br>` with `,` ) ) %>"
Set ComDefaultEventShortLabel to "<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>"
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Set ComHeaderGroupHeight to 1
Set ComShowAllDayHeader to True
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComTitle of hoGroup to "First"
Set ComVisible of hoGroup to True
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComTitle of hoGroup1 to "Second"
Set ComVisible of hoGroup1 to True
Send Destroy to hoGroup1
Send Destroy to hoGroups
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComGroupID of hoEvent2 to 1
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComGroupID of hoEvent3 to 2
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComGroupID of hoEvent4 to 2
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
295
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelectEventStyle to OLEexLinesSolid
Set ComDefaultEventLongLabel to "<%=%><%= %4 < 0 ? `<b>` + %256 + `</b> <off -4>(all)` : ( (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) replace ( %3 ? `<br>` : ``) with `,` ) %>"
Set ComDefaultEventShortLabel to "<%=%><%= %4 < 0 ? %256 : ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>"
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Set ComHeaderGroupHeight to 1
Set ComShowAllDayHeader to True
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComTitle of hoGroup to "First"
Set ComVisible of hoGroup to True
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComTitle of hoGroup1 to "Second"
Set ComVisible of hoGroup1 to True
Send Destroy to hoGroup1
Send Destroy to hoGroups
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComGroupID of hoEvent2 to 1
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComGroupID of hoEvent3 to -1
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "1/10/2001" "1/10/2001" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComGroupID of hoEvent4 to 2
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
294
|
The Event.Caption does not support HTML, and so if using in DefaultEventLongLabel/DefaultEventShortLabel no HTML is applied, instead HTML tags are displayed as plain text. What can be done
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Set ComDefaultEventLongLabel to "<%=%><%=%5%><br><%=%256%>"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 9:00:00 AM" "5/24/2012 10:00:00 AM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComCaption of hoEvent to "textzeile1<br>textzeile2<br>textzeile3"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 11:00:00 AM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComCaption of hoEvent1 to "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>"
Send Destroy to hoEvent1
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
293
|
Please could you let me know how I can remove/hide the time scale/marks from the scheduler. I am creating a month view that only requires a box for the day and no time markers required
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComVisible of hoTimeScale to False
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowViewCompact to OLEexViewCalendarCompact
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send ComSelect of hoCalendar OLEexSelectMonth
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComShowStatus of hoEvent to False
Send Destroy to hoEvent
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
292
|
Is it possible to lock down the view to allow resizing of the days column but not to allow the scrolling outside of the dictated time zone
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Set ComSelection of hoCalendar to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar
Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
Set ComScrollBars to OLEexVertical
Set ComShowViewCompact to OLEexViewSingleRow
Set ComAllowMoveSchedule to OLEexDisallow
Set ComAllowResizeSchedule to OLEexDisallow
Set ComAllowToggleSchedule to OLEexDisallow
Set ComAllowExchangePanels to OLEexDisallow
Set ComAllowMoveTimeScale to OLEexDisallow
Set ComAllowResizeTimeScale to OLEexDisallow
Set ComAllowMultiDaysEvent to False
Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComMinorTimeRuler of hoTimeScale to "00:10"
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Set ComDayStartTime to "10:00"
Set ComDayEndTime to "14:00"
Send ComEndUpdate
End_Procedure
|
|
291
|
I would also like to control the column view to only show 5 days at a time with a side scroll, how would I achieve this please
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComScrollBars to OLEexVertical
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
290
|
Can I force the schedule grid to only show a single day and then to step through each day using either a custom button click or using the built in schedule calendar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelectDate of hoCalendar "5/20/2012" to True
Send ComSelect of hoCalendar OLEexSelectFocusDay
Send Destroy to hoCalendar
Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
Set ComScrollBars to OLEexNoScroll
Set ComShowViewCompact to OLEexViewSingleRow
Set ComAllowMoveSchedule to OLEexDisallow
Set ComAllowResizeSchedule to OLEexDisallow
Set ComAllowToggleSchedule to OLEexDisallow
Set ComAllowExchangePanels to OLEexDisallow
Set ComAllowMoveTimeScale to OLEexDisallow
Set ComAllowResizeTimeScale to OLEexDisallow
Set ComAllowMultiDaysEvent to False
Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
Send ComEndUpdate
End_Procedure
|
|
289
|
Can I colour the background of the schedulers grid from a time point to another EG 9:00 to 12:00. This is to show users that they can only book appointments in this time zone
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/27/2012"
Send Destroy to hoCalendar
Variant voMarkZones
Get ComMarkZones to voMarkZones
Handle hoMarkZones
Get Create (RefClass(cComMarkZones)) to hoMarkZones
Set pvComObject of hoMarkZones to voMarkZones
Variant voMarkZone
Get ComAdd of hoMarkZones "zoneA" "6/27/2012 9:00:00 AM" "6/27/2012 11:00:00 AM" to voMarkZone
Handle hoMarkZone
Get Create (RefClass(cComMarkZone)) to hoMarkZone
Set pvComObject of hoMarkZone to voMarkZone
Variant voPattern
Get ComPattern of hoMarkZone to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternEmpty
Send Destroy to hoPattern
Set ComLongLabel of hoMarkZone to "Yellow"
Set ComBackColor of hoMarkZone to (RGB(255,255,0))
Send Destroy to hoMarkZone
Send Destroy to hoMarkZones
Variant voMarkZones1
Get ComMarkZones to voMarkZones1
Handle hoMarkZones1
Get Create (RefClass(cComMarkZones)) to hoMarkZones1
Set pvComObject of hoMarkZones1 to voMarkZones1
Variant voMarkZone1
Get ComAdd of hoMarkZones1 "zoneB" "6/27/2012 12:00:00 PM" "6/27/2012 1:30:00 PM" to voMarkZone1
Handle hoMarkZone1
Get Create (RefClass(cComMarkZone)) to hoMarkZone1
Set pvComObject of hoMarkZone1 to voMarkZone1
Variant voPattern1
Get ComPattern of hoMarkZone1 to voPattern1
Handle hoPattern1
Get Create (RefClass(cComPattern)) to hoPattern1
Set pvComObject of hoPattern1 to voPattern1
Set ComType of hoPattern1 to OLEexPatternEmpty
Send Destroy to hoPattern1
Set ComLongLabel of hoMarkZone1 to "Green"
Set ComBackColor of hoMarkZone1 to (RGB(0,255,0))
Send Destroy to hoMarkZone1
Send Destroy to hoMarkZones1
Send ComEndUpdate
End_Procedure
|
|
288
|
My programming language has the following format for date 2012-05-24-13.04.06.810000 every other format returns a compiler error. Is there a possibility to use a string for the date
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Variant v
Get ComExecuteTemplate "#5/24/2012#" to v
Set ComSelection of hoCalendar to v
Send Destroy to hoCalendar
Variant voMarkTimes
Get ComMarkTimes to voMarkTimes
Handle hoMarkTimes
Get Create (RefClass(cComMarkTimes)) to hoMarkTimes
Set pvComObject of hoMarkTimes to voMarkTimes
Variant vTime
Get ComExecuteTemplate "#5/24/2012 11:35#" to vTime
Variant voMarkTime
Get ComAdd of hoMarkTimes "timer" vTime to voMarkTime
Handle hoMarkTime
Get Create (RefClass(cComMarkTime)) to hoMarkTime
Set pvComObject of hoMarkTime to voMarkTime
Set ComMovable of hoMarkTime to True
Set ComLineColor of hoMarkTime to (RGB(0,0,255))
Set ComStatusEventBackColor of hoMarkTime to (RGB(0,0,255))
Set ComTimeScaleLineColor of hoMarkTime to (RGB(0,0,255))
Set ComTimeScaleLabel of hoMarkTime to "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
Send Destroy to hoMarkTime
Send Destroy to hoMarkTimes
Send ComEndUpdate
End_Procedure
|
|
287
|
How do I display a picture with transparency
// Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
Procedure OnComPictureClick String llKey
Forward Send OnComPictureClick llKey
Showln llKey
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowSelectEvent to False
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Variant voExPictures
Get ComPictures to voExPictures
Handle hoExPictures
Get Create (RefClass(cComExPictures)) to hoExPictures
Set pvComObject of hoExPictures to voExPictures
Get ComAdd of hoExPictures "pic1" ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" + ;
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" + ;
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChpAkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZAghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8ASg4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6AfApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAchohkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0AaBQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgjhUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hHB7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6" + ;
"BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gngQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthAhAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhIB/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBPhwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/Ugehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+RYOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgNACNAAEkRROEQrhCGAgkBA") to Nothing
Send Destroy to hoExPictures
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComPictures of hoEvent to "pic1"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
286
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (to all)
// Notifies your application once the a new event is added.
Procedure OnComAddEvent Variant llEv
Forward Send OnComAddEvent llEv
// Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComSelectEventStyle to OLEexLinesSolid
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Set ComStatusEventSize to 0
Set ComDefaultEventPadding OLEexPaddingAll to 4
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to Nothing
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 1:00:00 PM" to Nothing
Get ComAdd of hoEvents "1/10/2001 12:30:00 PM" "1/10/2001 1:00:00 PM" to Nothing
Send Destroy to hoEvents
End_Procedure
|
|
285
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)
Procedure OnCreate
Forward Send OnCreate
Set ComSelectEventStyle to OLEexLinesSolid
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Set ComStatusEventSize to 0
Set ComDefaultEventPadding OLEexPaddingAll to 4
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBodyBackgroundExt of hoEvent to "[frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComBodyBackgroundExt of hoEvent1 to "[frame=RGB(128,128,128),framethick]"
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "1/10/2001 12:30:00 PM" "1/10/2001 1:00:00 PM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComBodyBackgroundExt of hoEvent2 to "[frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent2
Send Destroy to hoEvents
End_Procedure
|
|
284
|
How can I change/specify the caption of the groups, when the user clicks the drop down button
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "Group A" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComCaption of hoGroup to "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland"
Set ComVisible of hoGroup to True
Set ComEventBackColor of hoGroup to (RGB(128,128,128))
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "Group B" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComCaption of hoGroup1 to "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia"
Set ComVisible of hoGroup1 to True
Set ComEventBackColor of hoGroup1 to (RGB(255,0,0))
Send Destroy to hoGroup1
Send Destroy to hoGroups
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComGroupID of hoEvent2 to 1
Send Destroy to hoEvent2
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
283
|
Is it possible to hide the group header, but still display the groups/captions
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "pic1" to ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" + ;
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" + ;
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhhAEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBYAGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgsBfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArArgrh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQ" + ;
"BShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCgCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh277ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhgygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAbBmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAkhhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=")
Set ComHTMLPicture "pic2" to ("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" + ;
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" + ;
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBngkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAmhGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWrgAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZhRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAyA6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAqgqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQ" + ;
"BSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHAPgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQgQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshygEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMASB/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgBhjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhehcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhcguBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQikDlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQYIE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHEDwRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGgTBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE=")
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Set ComDisplayGroupingButton to True
Set ComShowGroupingEvents to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "<c><b>Group</b><br><c><img>pic1</img>" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComVisible of hoGroup to True
Set ComEventBackColor of hoGroup to (RGB(128,128,128))
Send Destroy to hoGroup
Variant voGroup1
Get ComAdd of hoGroups 2 "<c><b>Group</b><br><c><img>pic2</img>" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComVisible of hoGroup1 to True
Set ComEventBackColor of hoGroup1 to (RGB(255,0,0))
Send Destroy to hoGroup1
Send Destroy to hoGroups
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComGroupID of hoEvent1 to 2
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComGroupID of hoEvent2 to 1
Send Destroy to hoEvent2
Send Destroy to hoEvents
Set ComHeaderGroupHeight to -1
Send ComEndUpdate
End_Procedure
|
|
282
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar, multiple-selection)
Procedure OnCreate
Forward Send OnCreate
Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "#1/1/2016#"
Set ComSelection of hoCalendar to "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))"
Send Destroy to hoCalendar
Set ComBorderSelStyle to OLEexNoLines
Set ComShowViewCompact to OLEexViewCalendarCompact
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/10/2016 8:30:00 AM" "1/10/2016 2:30:00 PM" to Nothing
Get ComAdd of hoEvents "1/11/2016 9:30:00 AM" "1/11/2016 11:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/15/2016 10:30:00 AM" "1/15/2016 11:30:00 AM" to Nothing
Send Destroy to hoEvents
Variant v
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Get ComSelection of hoCalendar1 to v
Send Destroy to hoCalendar1
Variant s
Move v to s
Variant voCalendar2
Get ComCalendar to voCalendar2
Handle hoCalendar2
Get Create (RefClass(cComCalendar)) to hoCalendar2
Set pvComObject of hoCalendar2 to voCalendar2
Set ComSelection of hoCalendar2 to "0"
Send Destroy to hoCalendar2
Variant var_CopyTo
Get ComCopyTo "c:/temp/test.png" to var_CopyTo
Showln "Look for c:/temp/test.png file"
Variant voCalendar3
Get ComCalendar to voCalendar3
Handle hoCalendar3
Get Create (RefClass(cComCalendar)) to hoCalendar3
Set pvComObject of hoCalendar3 to voCalendar3
Set ComSelection of hoCalendar3 to s
Send Destroy to hoCalendar3
End_Procedure
|
|
281
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar)
Procedure OnCreate
Forward Send OnCreate
Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/2012"
Set ComSelectDate of hoCalendar "1/1/2012" to False
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/1/2012 8:30:00 AM" "1/1/2012 9:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/1/2012 8:35:00 AM" "1/1/2012 9:35:00 AM" to Nothing
Get ComAdd of hoEvents "1/1/2012 10:30:00 AM" "1/1/2012 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Variant var_CopyTo
Get ComCopyTo "c:/temp/test.png" to var_CopyTo
Showln "Look for c:/temp/test.png file"
End_Procedure
|
|
280
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, with calendar)
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/2012"
Set ComSelectDate of hoCalendar "1/1/2012" to False
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "1/1/2012 8:30:00 AM" "1/1/2012 9:30:00 AM" to Nothing
Get ComAdd of hoEvents "1/1/2012 8:35:00 AM" "1/1/2012 9:35:00 AM" to Nothing
Get ComAdd of hoEvents "1/1/2012 10:30:00 AM" "1/1/2012 12:30:00 PM" to Nothing
Send Destroy to hoEvents
Variant var_CopyTo
Get ComCopyTo "c:/temp/test.png" to var_CopyTo
Showln "Look for c:/temp/test.png file"
End_Procedure
|
|
279
|
I've seen that all-day header can be limited up to 4, 8 or 12 events. Can I change that limit, for instance, 3 events only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value >= #5/20/2012# and value <= #5/26/2012#"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowAllDayEventScroll to (|CI$23 + OLEexAllDayEventWheelScroll + OLEexAllDayEventNoMax)
Set ComBodyEventBackColor to (RGB(128,128,128))
Set ComBackground OLEexScheduleAllDayEventScrollBackColor to (RGB(220,220,220))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComAllDayEvent of hoEvent5 to True
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "5/24/2012" "5/25/2012" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComAllDayEvent of hoEvent6 to True
Send Destroy to hoEvent6
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
278
|
Is it possible to highlight the newly created event ( runtime creation )
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
End_Procedure
|
|
277
|
Is it possible to select the newly created event ( runtime creation )
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSelectCreateEvent to OLEexSelectCreateEvent
End_Procedure
|
|
276
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)
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 "gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHfj2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
Set ComBackground OLEexScheduleAllDayEventScrollBackColor to |CI$1000000
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComAllDayEvent of hoEvent5 to True
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComAllDayEvent of hoEvent6 to True
Send Destroy to hoEvent6
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
275
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
Set ComBackground OLEexScheduleAllDayEventScrollBackColor to (RGB(220,220,220))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComAllDayEvent of hoEvent5 to True
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComAllDayEvent of hoEvent6 to True
Send Destroy to hoEvent6
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
274
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
Set ComBackground OLEexScheduleAllDayEventScrollBackColor to (RGB(0,0,0))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComAllDayEvent of hoEvent5 to True
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComAllDayEvent of hoEvent6 to True
Send Destroy to hoEvent6
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
273
|
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowAllDayEventScroll to (OLEexAllDayEventScroll + OLEexAllDayEventMax4)
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComAllDayEvent of hoEvent5 to True
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComAllDayEvent of hoEvent6 to True
Send Destroy to hoEvent6
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
272
|
Is it possible to specify the number of all-day events to be visible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowAllDayEventScroll to (OLEexAllDayEventWheelScroll + OLEexAllDayEventMax4)
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComAllDayEvent of hoEvent5 to True
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComAllDayEvent of hoEvent6 to True
Send Destroy to hoEvent6
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
271
|
How do I disable scrolling the all-day header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSelectCreateEvent to OLEexHighlightCreateEvent
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/21/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
Send Destroy to hoCalendar1
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowAllDayEventScroll to OLEexAllDayEventNoMin
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/22/2012" "5/23/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "5/21/2012" "5/24/2012" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComAllDayEvent of hoEvent1 to True
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "5/22/2012" "5/24/2012" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComAllDayEvent of hoEvent2 to True
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComAllDayEvent of hoEvent3 to True
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "5/22/2012" "5/25/2012" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComAllDayEvent of hoEvent4 to True
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "5/23/2012" "5/25/2012" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComAllDayEvent of hoEvent5 to True
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "5/24/2012" "5/26/2012" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComAllDayEvent of hoEvent6 to True
Send Destroy to hoEvent6
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
270
|
How can I display the current week only, when the user selects the date in the calendar panel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to (OLEexDisableSplitter + OLEexResizePanelRight)
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComOnSelectDate of hoCalendar to OLEexEnsureVisibleDate
Set ComSelection of hoCalendar to "1/10/2001"
Set ComSingleSel of hoCalendar to True
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComFirstWeekDay of hoCalendar1 to OLEexMonday
Send Destroy to hoCalendar1
Set ComScrollBars to OLEexNoScroll
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComAllowResizeSchedule to OLEexDisallow
Set ComAllowMoveSchedule to OLEexDisallow
Set ComAllowToggleSchedule to OLEexDisallow
Set ComBackground OLEexScheduleBorderMonthColor to (ComBackground(Self,OLEexScheduleBorderDateColor))
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComAllowResize of hoTimeScale to False
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Set ComDayViewWidth to 0
Send ComEndUpdate
End_Procedure
|
|
269
|
How do I capture the control and save it as PDF (Method 2)
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/1/2001"
Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
Send Destroy to hoCalendar
Set ComDayViewWidth to 512
Set ComDayViewHeight to 512
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
Send Destroy to hoEvents
Variant var_CopyTo
Get ComCopyTo "C:/Temp/test.pdf" to var_CopyTo
Showln "Look For: C:/Temp/test.pdf file"
End_Procedure
|
|
268
|
How do I capture the control and save it as PDF (Method 1)
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/1/2001"
Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
Send Destroy to hoCalendar
Set ComDayViewWidth to 512
Set ComDayViewHeight to 512
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
Send Destroy to hoEvents
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "FitToPage=On"
Set ComPrintExt of hoPrint to (pvComObject(Self))
Get ComCopyTo of hoPrint "C:/Temp/test.pdf" to Nothing
Showln "Look For: C:/Temp/test.pdf file"
Send Destroy to hoPrint
End_Procedure
|
|
267
|
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/1/2001"
Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
Send Destroy to hoCalendar
Set ComDayViewWidth to 512
Set ComDayViewHeight to 512
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
Send Destroy to hoEvents
Variant var_CopyTo
Get ComCopyTo "C:/Temp/test.bmp" to var_CopyTo
Variant var_CopyTo1
Get ComCopyTo "C:/Temp/test.jpg" to var_CopyTo1
Showln "Look For: C:/Temp/test.* file"
End_Procedure
|
|
266
|
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/1/2001"
Set ComSelection of hoCalendar to "value in (#6/11/2001#,#6/12/2001#)"
Send Destroy to hoCalendar
Set ComDayViewWidth to 512
Set ComDayViewHeight to 512
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "6/11/2001 10:00:00 AM" "6/11/2001 1:00:00 PM" to Nothing
Get ComAdd of hoEvents "6/12/2001 10:00:00 AM" "6/12/2001 1:00:00 PM" to Nothing
Send Destroy to hoEvents
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "FitToPage=On"
Set ComPrintExt of hoPrint to (pvComObject(Self))
Get ComCopyTo of hoPrint "C:/Temp/test.bmp" to Nothing
Get ComCopyTo of hoPrint "C:/Temp/test.jpg" to Nothing
Showln "Look For: C:/Temp/test.* file"
Send Destroy to hoPrint
End_Procedure
|
|
265
|
Recurrence: The 2nd to last weekday of the month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/29/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/29/1997 9:00:00 AM" "9/29/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
264
|
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/4/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/4/1997 9:00:00 AM" "9/4/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
263
|
Recurrence: The last work day of the month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/30/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "8/5/1997 9:00:00 AM" "8/5/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
262
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "8/5/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexSunday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "8/5/1997 9:00:00 AM" "8/5/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
261
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "8/5/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "8/5/1997 9:00:00 AM" "8/5/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
260
|
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "11/5/1996"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "11/5/1996 9:00:00 AM" "11/5/1996 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
259
|
Recurrence: The first Saturday that follows the first Sunday of the month, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/13/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/13/1997 9:00:00 AM" "9/13/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
258
|
Recurrence: Every Friday the 13th, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "2/13/1998"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
257
|
Recurrence: Every Thursday, but only during June, July, and August, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/5/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/5/1997 9:00:00 AM" "6/5/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
256
|
Recurrence: Every Thursday in March, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "3/13/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "3/13/1997 9:00:00 AM" "3/13/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
255
|
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/12/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/12/1997 9:00:00 AM" "5/12/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
254
|
Recurrence: Every 20th Monday of the year, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/19/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/1/1997 9:00:00 AM" "1/1/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYDAY=20MO"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
253
|
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/1/1997 9:00:00 AM" "1/1/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
252
|
Recurrence: Every other year on January, February, and March for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "3/10/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "3/10/1997 9:00:00 AM" "3/10/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
251
|
Recurrence: Yearly in June and July for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/10/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthX of hoCalendar to 2
Set ComMaxMonthY of hoCalendar to 2
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/10/1997 9:00:00 AM" "6/10/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
250
|
Recurrence: Every Tuesday, every other month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/2/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
249
|
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/10/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/10/1997 9:00:00 AM" "9/10/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
248
|
Recurrence: Monthly on the first and last day of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/30/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/3/1997 9:00:00 AM" "9/3/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
247
|
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/2/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
246
|
Recurrence: Monthly on the third to the last day of the month, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/28/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/28/1997 9:00:00 AM" "9/28/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYMONTHDAY=-3"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
245
|
Recurrence: Monthly on the second to last Monday of the month for 6 months
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/22/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/22/1997 9:00:00 AM" "9/22/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
244
|
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/7/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/7/1997 9:00:00 AM" "9/7/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
243
|
Recurrence: Monthly on the 1st Friday until December 24, 1997
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/5/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/5/1997 9:00:00 AM" "9/5/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
242
|
Recurrence: Monthly on the 1st Friday for ten occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/5/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/5/1997 9:00:00 AM" "9/5/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
241
|
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/16/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexSunday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
240
|
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/17/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexSunday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
239
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/16/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexSunday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
238
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/16/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexSunday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
237
|
Recurrence: Every other day - forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/4/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=DAILY;INTERVAL=2"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
236
|
Recurrence: Daily until December 24, 1997
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/17/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=DAILY;UNTIL=19971224T000000Z"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
235
|
Recurrence: Daily for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "9/9/1997"
Set ComShowNonMonthDays of hoCalendar to False
Set ComMaxMonthY of hoCalendar to 4
Variant voHighlight
Get ComHighlightEvent of hoCalendar to voHighlight
Handle hoHighlight
Get Create (RefClass(cComHighlight)) to hoHighlight
Set pvComObject of hoHighlight to voHighlight
Variant voPattern
Get ComPattern of hoHighlight to voPattern
Handle hoPattern
Get Create (RefClass(cComPattern)) to hoPattern
Set pvComObject of hoPattern to voPattern
Set ComType of hoPattern to OLEexPatternFrame
Send Destroy to hoPattern
Set ComBold of hoHighlight to False
Send Destroy to hoHighlight
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Send Destroy to hoCalendar
Set ComShowViewCompact to OLEexViewCalendarCompact
Set ComBorderSelStyle to OLEexNoLines
Set ComBackground OLEexScheduleMarkTodayBackColor to (RGB(240,240,240))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997 9:00:00 AM" "9/2/1997 2:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=DAILY;COUNT=10"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
234
|
How do I display the week number according, so the January 1st is in the first week
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/2016"
Set ComFirstWeekDay of hoCalendar to OLEexSunday
Set ComDisplayWeekNumberAs of hoCalendar to OLEexSimpleWeekNumber
Send Destroy to hoCalendar
Send ComEndUpdate
End_Procedure
|
|
233
|
How do I display the week number according to ISO8601 standard
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/4/2016"
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Set ComDisplayWeekNumberAs of hoCalendar to OLEexISO8601WeekNumber
Send Destroy to hoCalendar
Send ComEndUpdate
End_Procedure
|
|
232
|
How do I hide the week number
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Set ComShowWeeks of hoCalendar to False
Set ComShowNonMonthDays of hoCalendar to False
Send Destroy to hoCalendar
Send ComEndUpdate
End_Procedure
|
|
231
|
How can I change the background color of the all day header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to OLEexCalendarAutoHide
Set ComShowAllDayHeader to True
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComFirstWeekDay of hoCalendar to OLEexMonday
Set ComSelectDate of hoCalendar "5/8/2012" to True
Send ComSelect of hoCalendar OLEexSelectWeek
Set ComSelectDate of hoCalendar "5/15/2012" to False
Send ComSelect of hoCalendar (OLEexSelectToggle + OLEexSelectWeek)
Send Destroy to hoCalendar
Set ComBackground OLEexScheduleAllDayHeaderBackColor to (RGB(240,240,240))
Set ComHeaderAllDayEventHeight to -20
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/8/2012" "5/17/2012" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComAllDayEvent of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
230
|
How can I display a single text on a specified date
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/26/2012"
Send Destroy to hoCalendar
Variant voCalendar1
Get ComCalendar to voCalendar1
Handle hoCalendar1
Get Create (RefClass(cComCalendar)) to hoCalendar1
Set pvComObject of hoCalendar1 to voCalendar1
Set ComSelection of hoCalendar1 to "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
Send Destroy to hoCalendar1
Variant voNonworkingPatterns
Get ComNonworkingPatterns to voNonworkingPatterns
Handle hoNonworkingPatterns
Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
Variant voNonworkingPattern
Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternEmpty to voNonworkingPattern
Handle hoNonworkingPattern
Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern
Set pvComObject of hoNonworkingPattern to voNonworkingPattern
Set ComBackgroundExt of hoNonworkingPattern to "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
Send Destroy to hoNonworkingPattern
Send Destroy to hoNonworkingPatterns
Variant voNonworkingTimes
Get ComNonworkingTimes to voNonworkingTimes
Handle hoNonworkingTimes
Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
Set pvComObject of hoNonworkingTimes to voNonworkingTimes
Get ComAdd of hoNonworkingTimes "value = #05/25/2012#" "09:00" "10:00" 1234 to Nothing
Send Destroy to hoNonworkingTimes
Send ComEndUpdate
End_Procedure
|
|
229
|
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)
Procedure OnCreate
Forward Send OnCreate
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Events" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "11/11/2013"
Send Destroy to hoCalendar
Set ComDataField OLEexEventStartDateTime to "Start"
Set ComDataField OLEexEventEndDateTime to "End"
Set ComDataField OLEexEventExtraLabel to "Extra"
Set ComDataSource to rs
Variant v
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComItem of hoEvents 1 to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Get ComKnownProperty of hoEvent OLEexEventID to v
Send Destroy to hoEvent
Send Destroy to hoEvents
Showln v
Send ComEndUpdate
End_Procedure
|
|
228
|
Is it possible to display some text/image on the schedule's view background
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/25/2012"
Send Destroy to hoCalendar
Variant voNonworkingPatterns
Get ComNonworkingPatterns to voNonworkingPatterns
Handle hoNonworkingPatterns
Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
Variant voNonworkingPattern
Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternBDiagonal to voNonworkingPattern
Handle hoNonworkingPattern
Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern
Set pvComObject of hoNonworkingPattern to voNonworkingPattern
Set ComBackgroundExt of hoNonworkingPattern to "[text=`<fgcolor 808080>just a caption`,align=0x11]"
Send Destroy to hoNonworkingPattern
Send Destroy to hoNonworkingPatterns
Variant voNonworkingPatterns1
Get ComNonworkingPatterns to voNonworkingPatterns1
Handle hoNonworkingPatterns1
Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns1
Set pvComObject of hoNonworkingPatterns1 to voNonworkingPatterns1
Variant voNonworkingPattern1
Get ComAdd of hoNonworkingPatterns1 1235 OLEexPatternEmpty to voNonworkingPattern1
Handle hoNonworkingPattern1
Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern1
Set pvComObject of hoNonworkingPattern1 to voNonworkingPattern1
Set ComBackgroundExt of hoNonworkingPattern1 to "[text=`<fgcolor 808080>just another caption`,align=0x11]"
Send Destroy to hoNonworkingPattern1
Send Destroy to hoNonworkingPatterns1
Variant voNonworkingTimes
Get ComNonworkingTimes to voNonworkingTimes
Handle hoNonworkingTimes
Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
Set pvComObject of hoNonworkingTimes to voNonworkingTimes
Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "08:00" "08:59:59" 1234 to Nothing
Send Destroy to hoNonworkingTimes
Variant voNonworkingTimes1
Get ComNonworkingTimes to voNonworkingTimes1
Handle hoNonworkingTimes1
Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes1
Set pvComObject of hoNonworkingTimes1 to voNonworkingTimes1
Get ComAdd of hoNonworkingTimes1 "weekday(value) = 5" "09:00" "09:59:59" 1235 to Nothing
Send Destroy to hoNonworkingTimes1
Variant voNonworkingTimes2
Get ComNonworkingTimes to voNonworkingTimes2
Handle hoNonworkingTimes2
Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes2
Set pvComObject of hoNonworkingTimes2 to voNonworkingTimes2
Get ComAdd of hoNonworkingTimes2 "weekday(value) = 5" "10:00" "10:59:59" 1234 to Nothing
Send Destroy to hoNonworkingTimes2
Send ComEndUpdate
End_Procedure
|
|
227
|
How can I display a text on the schedule's view background
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/25/2012"
Send Destroy to hoCalendar
Variant voNonworkingPatterns
Get ComNonworkingPatterns to voNonworkingPatterns
Handle hoNonworkingPatterns
Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
Variant voNonworkingPattern
Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternEmpty to voNonworkingPattern
Handle hoNonworkingPattern
Get Create (RefClass(cComNonworkingPattern)) to hoNonworkingPattern
Set pvComObject of hoNonworkingPattern to voNonworkingPattern
Set ComBackgroundExt of hoNonworkingPattern to "[text=`<fgcolor 808080>just a caption`,align=0x11]"
Send Destroy to hoNonworkingPattern
Send Destroy to hoNonworkingPatterns
Variant voNonworkingTimes
Get ComNonworkingTimes to voNonworkingTimes
Handle hoNonworkingTimes
Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
Set pvComObject of hoNonworkingTimes to voNonworkingTimes
Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "12:00" "13:00" 1234 to Nothing
Send Destroy to hoNonworkingTimes
Send ComEndUpdate
End_Procedure
|
|
226
|
Is it possible to change the visual appearance of the edit's context menu
Procedure OnCreate
Forward Send OnCreate
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:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexContextMenuAppearance to |CI$1000000
End_Procedure
|
|
225
|
How do I customize the edit's context menu
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComEditContextMenuItems to "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
End_Procedure
|
|
224
|
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart
// Notifies your application once the control's layout has been changed.
Procedure OnComLayoutEndChanging OLELayoutChangingEnum llOperation
Forward Send OnComLayoutEndChanging llOperation
Showln llOperation
Set ComDayViewHeight to 2016
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelectDate of hoCalendar "5/20/2012" to True
Send ComSelect of hoCalendar OLEexSelectWeek
Send Destroy to hoCalendar
Set ComScrollBars to OLEexVertical
Set ComShowViewCompact to OLEexViewSingleRowLockHeader
Set ComDayViewHeight to 2016
Set ComAllowMoveSchedule to OLEexDisallow
Set ComAllowResizeSchedule to OLEexDisallow
Set ComAllowToggleSchedule to OLEexDisallow
Set ComAllowExchangePanels to OLEexDisallow
Set ComAllowMoveTimeScale to OLEexDisallow
Set ComAllowResizeTimeScale to OLEexDisallow
Set ComAllowMultiDaysEvent to False
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComMinorTimeRuler of hoTimeScale to "00:10"
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Set ComDayStartTime to "00:00"
Set ComDayEndTime to "24:00"
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Send ComEndUpdate
End_Procedure
|
|
223
|
Is there any way to control the vertical size of each hour other than by the font and/or the minor time scale being changed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelectDate of hoCalendar "5/20/2012" to True
Send ComSelect of hoCalendar OLEexSelectWeek
Send Destroy to hoCalendar
Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
Set ComScrollBars to OLEexVertical
Set ComShowViewCompact to OLEexViewSingleRow
Set ComDayViewHeight to 2016
Set ComAllowMoveSchedule to OLEexDisallow
Set ComAllowResizeSchedule to OLEexDisallow
Set ComAllowToggleSchedule to OLEexDisallow
Set ComAllowExchangePanels to OLEexDisallow
Set ComAllowMoveTimeScale to OLEexDisallow
Set ComAllowResizeTimeScale to OLEexDisallow
Set ComAllowMultiDaysEvent to False
Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComMinorTimeRuler of hoTimeScale to "00:10"
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Set ComDayStartTime to "00:00"
Set ComDayEndTime to "24:00"
Send ComEndUpdate
End_Procedure
|
|
222
|
How can I show a single week, no calendar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelectDate of hoCalendar "5/20/2012" to True
Send ComSelect of hoCalendar OLEexSelectWeek
Send Destroy to hoCalendar
Set ComOnResizeControl to (OLEexChangePanels + OLEexHideSplitter)
Set ComScrollBars to OLEexNoScroll
Set ComShowViewCompact to OLEexViewSingleRow
Set ComAllowMoveSchedule to OLEexDisallow
Set ComAllowResizeSchedule to OLEexDisallow
Set ComAllowToggleSchedule to OLEexDisallow
Set ComAllowExchangePanels to OLEexDisallow
Set ComAllowMoveTimeScale to OLEexDisallow
Set ComAllowResizeTimeScale to OLEexDisallow
Set ComAllowMultiDaysEvent to False
Set ComBackground OLEexScheduleBorderSelColor to (ComBackground(Self,OLEexScheduleBorderSelColorUnFocus))
Send ComEndUpdate
End_Procedure
|
|
221
|
How do I select the dates within a giving interval only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/1/2012"
Set ComSelection of hoCalendar to "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "5/24/2012 9:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:45:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 2:30:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 12:45:00 PM" "5/24/2012 3:45:00 PM" to Nothing
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
220
|
How do I display the dates within a giving interval only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Set ComMinDate of hoCalendar to "5/13/2012"
Set ComMaxDate of hoCalendar to "5/26/2012"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "5/24/2012 9:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:45:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 2:30:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 12:45:00 PM" "5/24/2012 3:45:00 PM" to Nothing
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
219
|
Is it possible that the time is displayed starting from 00:00 to 24:00 00 instead of 08:00 AM to 04:00 PM
Procedure OnCreate
Forward Send OnCreate
Set ComDayStartTime to "00:00"
Set ComDayEndTime to "24:00"
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComItem of hoTimeScales 0 to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComMajorTimeLabel of hoTimeScale to "<%hh%>:<%nn%>"
Set ComWidth of hoTimeScale to 32
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
End_Procedure
|
|
218
|
How do I show a double frame
Procedure OnCreate
Forward Send OnCreate
Set ComSelectEventStyle to OLEexLinesSolid
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComDefaultEventLongLabel to ""
Set ComDefaultEventShortLabel to ""
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 8:00:00 AM" "1/10/2001 10:00:00 AM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBodyBackgroundExt of hoEvent to "top[25%,back=RGB(255,0,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)],client[back=RGB(255,255,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)]"
Set ComBodyBackgroundExtValue of hoEvent OLEexIndexExt1 OLEexBackColorExt to 255
Set ComBodyBackgroundExtValue of hoEvent OLEexIndexExt1 OLEexClientExt to "35%"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 12:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComBodyBackgroundExt of hoEvent1 to "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
Set ComBodyBackgroundExtValue of hoEvent1 OLEexIndexExt1 OLEexClientExt to "35%"
Set ComBodyBackgroundExtValue of hoEvent1 OLEexIndexExt2 OLEexBackColorExt to 65535
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "1/10/2001 12:00:00 PM" "1/10/2001 2:00:00 PM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComShowStatus of hoEvent2 to False
Set ComBodyBackgroundExt of hoEvent2 to "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(0%,0%,100%,100%),pattern=0x000,frame=RGB(0,0,0)]"
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "1/10/2001 2:00:00 PM" "1/10/2001 4:00:00 PM" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComShowStatus of hoEvent3 to False
Set ComBodyBackgroundExt of hoEvent3 to "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(4,0%,100%-4,100%),pattern=0x000,frame=RGB(0,0,0)]"
Send Destroy to hoEvent3
Send Destroy to hoEvents
End_Procedure
|
|
217
|
How can I add more colors on the event
Procedure OnCreate
Forward Send OnCreate
Set ComSelectEventStyle to OLEexLinesSolid
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBodyBackgroundExt of hoEvent to "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "1/10/2001 10:00:00 AM" "1/10/2001 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComBodyBackgroundExt of hoEvent1 to "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "1/10/2001 11:00:00 AM" "1/10/2001 2:00:00 PM" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComBodyBackgroundExt of hoEvent2 to "left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],client[back=RGB(0,0,255)]),client(top[25%,back=RGB(240,240,240)],top[25%,back=RGB(192,192,192)],top[25%,back=RGB(128,128,128)],client[back=RGB(0,0,0)])"
Send Destroy to hoEvent2
Send Destroy to hoEvents
End_Procedure
|
|
216
|
When I have 3 month visible in the calendar section, it seems I can only move back and forth through the months 3 months at a time. Is it possible to move back and forth through the months 1 month at a time
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComAlignDate of hoCalendar to False
Set ComMinMonthY of hoCalendar to 2
Set ComMaxMonthY of hoCalendar to 2
Send Destroy to hoCalendar
End_Procedure
|
|
215
|
How can I bound the control to a data source
// Fired when an internal error occurs.
Procedure OnComError Integer llError String llDescription
Forward Send OnComError llError llDescription
Showln llDescription
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Events" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "11/11/2013"
Send Destroy to hoCalendar
Set ComDataField OLEexEventStartDateTime to "Start"
Set ComDataField OLEexEventEndDateTime to "End"
Set ComDataField OLEexEventExtraLabel to "Extra"
Set ComDataSource to rs
Send ComEndUpdate
End_Procedure
|
|
214
|
How can I start drag and drop an event
// Occurs when the OLEDrag method is called.
Procedure OnComOLEStartDrag Variant llData Integer llAllowedEffects
Forward Send OnComOLEStartDrag llData llAllowedEffects
// Data.SetData( "your data to be dragged" )
Move 1 to AllowedEffects
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOLEDropMode to OLEexOLEDropManual
Set ComSelectEventStyle to OLEexLinesSolid
Set ComDefaultEventLongLabel to "<%=%256%><br><%=%5%>"
Set ComDefaultEventShortLabel to (ComDefaultEventLongLabel(Self))
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/10/2001"
Send Destroy to hoCalendar
Set ComOnResizeControl to (OLEexCalendarAutoHide + OLEexCalendarFit + OLEexResizePanelRight)
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/10/2001 9:00:00 AM" "1/10/2001 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComExtraLabel of hoEvent to "Click the event and wait to start dragging."
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
213
|
I use the HighlightDate property to mark a date, instead the selection is not visible if I select the same date. What can be done
Procedure OnCreate
Forward Send OnCreate
Set ComShowHighlightDate to (OLEexHighlightDateCalendarEllipticClip + OLEexHighlightDateCalendarGradient + OLEexShowHighlightDateCalendar)
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/2001"
Send Destroy to hoCalendar
Set ComHighlightDate "1/9/2001" to 65280
Set ComHighlightDate "1/17/2001" to "65280,255"
Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
|
|
212
|
How can I arrange the colors to highlight the date vertically
Procedure OnCreate
Forward Send OnCreate
Set ComShowHighlightDate to (OLEexHighlightDateVertical + OLEexShowHighlightDateCalendar)
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/2001"
Send Destroy to hoCalendar
Set ComHighlightDate "1/9/2001" to 65280
Set ComHighlightDate "1/17/2001" to "65280,255"
Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
|
|
211
|
Is it possible to highlight a date in gradient
Procedure OnCreate
Forward Send OnCreate
Set ComShowHighlightDate to (OLEexHighlightDateCalendarGradient + OLEexShowHighlightDateCalendar)
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/2001"
Send Destroy to hoCalendar
Set ComHighlightDate "1/9/2001" to 65280
Set ComHighlightDate "1/17/2001" to "65280,255"
Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
|
|
210
|
Is it possible to highlight a date in the calendar panel only
Procedure OnCreate
Forward Send OnCreate
Set ComShowHighlightDate to OLEexShowHighlightDateCalendar
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/1/2001"
Send Destroy to hoCalendar
Set ComHighlightDate "1/9/2001" to 65280
Set ComHighlightDate "1/17/2001" to "65280,255"
Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
|
|
209
|
Is it possible to highlight a date in the control
Procedure OnCreate
Forward Send OnCreate
Set ComShowHighlightDate to OLEexShowHighlightDate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "1/25/2001"
Send Destroy to hoCalendar
Set ComHighlightDate "1/9/2001" to 65280
Set ComHighlightDate "1/17/2001" to "65280,255"
Set ComHighlightDate "1/25/2001" to "255,65280,16711680"
End_Procedure
|
|
208
|
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBodyEventBackColor to (RGB(240,240,240))
Set ComShowGroupingEvents to True
Set ComDisplayGroupingButton to True
Variant voGroups
Get ComGroups to voGroups
Handle hoGroups
Get Create (RefClass(cComGroups)) to hoGroups
Set pvComObject of hoGroups to voGroups
Variant voGroup
Get ComAdd of hoGroups 1 "Group 1" to voGroup
Handle hoGroup
Get Create (RefClass(cComGroup)) to hoGroup
Set pvComObject of hoGroup to voGroup
Set ComVisible of hoGroup to True
Send Destroy to hoGroup
Send Destroy to hoGroups
Variant voGroups1
Get ComGroups to voGroups1
Handle hoGroups1
Get Create (RefClass(cComGroups)) to hoGroups1
Set pvComObject of hoGroups1 to voGroups1
Variant voGroup1
Get ComAdd of hoGroups1 2 "Group 2" to voGroup1
Handle hoGroup1
Get Create (RefClass(cComGroup)) to hoGroup1
Set pvComObject of hoGroup1 to voGroup1
Set ComVisible of hoGroup1 to True
Send Destroy to hoGroup1
Send Destroy to hoGroups1
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/25/2012"
Send Destroy to hoCalendar
Variant voNonworkingPatterns
Get ComNonworkingPatterns to voNonworkingPatterns
Handle hoNonworkingPatterns
Get Create (RefClass(cComNonworkingPatterns)) to hoNonworkingPatterns
Set pvComObject of hoNonworkingPatterns to voNonworkingPatterns
Get ComAdd of hoNonworkingPatterns 1234 OLEexPatternBrick to Nothing
Send Destroy to hoNonworkingPatterns
Variant voNonworkingTimes
Get ComNonworkingTimes to voNonworkingTimes
Handle hoNonworkingTimes
Get Create (RefClass(cComNonworkingTimes)) to hoNonworkingTimes
Set pvComObject of hoNonworkingTimes to voNonworkingTimes
Get ComAdd of hoNonworkingTimes "1" "00:00" "08:45" 1234 to Nothing
Variant voNonworkingTime
Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "10:00" "11:45" 1 to voNonworkingTime
Handle hoNonworkingTime
Get Create (RefClass(cComNonworkingTime)) to hoNonworkingTime
Set pvComObject of hoNonworkingTime to voNonworkingTime
Set ComGroupID of hoNonworkingTime to 1
Send Destroy to hoNonworkingTime
Variant voNonworkingTime1
Get ComAdd of hoNonworkingTimes "weekday(value) = 5" "12:00" "13:00" 1234 to voNonworkingTime1
Handle hoNonworkingTime1
Get Create (RefClass(cComNonworkingTime)) to hoNonworkingTime1
Set pvComObject of hoNonworkingTime1 to voNonworkingTime1
Set ComGroupID of hoNonworkingTime1 to 2
Send Destroy to hoNonworkingTime1
Send Destroy to hoNonworkingTimes
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/25/2012 9:30:00 AM" "5/25/2012 1:00:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComGroupID of hoEvent to 1
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
207
|
I have a double click event set to launch a window so the user can supply input. The problem is that double click changes the view. How do I change this behavior
// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComDblClick llShift llX llY
Showln "DblClick " llX llY
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Variant voEvent
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComStatusColor of hoEvent to (RGB(255,0,0))
Send Destroy to hoEvent
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to Nothing
Send Destroy to hoEvents
Set ComAllowEditEvent to OLEexDisallow
Set ComAllowToggleSchedule to OLEexDisallow
Send ComEndUpdate
End_Procedure
|
|
206
|
I have two-time scales. How do I change the label while updating the events to show the date-time on the second time-scale
Procedure OnCreate
Forward Send OnCreate
Set ComDayEndTime to "13:00"
Variant voTimeScales
Get ComTimeScales to voTimeScales
Handle hoTimeScales
Get Create (RefClass(cComTimeScales)) to hoTimeScales
Set pvComObject of hoTimeScales to voTimeScales
Variant voTimeScale
Get ComAdd of hoTimeScales "+3:00" to voTimeScale
Handle hoTimeScale
Get Create (RefClass(cComTimeScale)) to hoTimeScale
Set pvComObject of hoTimeScale to voTimeScale
Set ComAlignLeft of hoTimeScale to True
Set ComCaption of hoTimeScale to "EST <b>+03"
Send Destroy to hoTimeScale
Send Destroy to hoTimeScales
Send ComBeginUpdate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "5/24/2012"
Send Destroy to hoCalendar
Set ComUpdateEventsLabel to "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Get ComAdd of hoEvents "5/24/2012 10:00:00 AM" "5/24/2012 12:00:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 10:45:00 AM" "5/24/2012 12:30:00 PM" to Nothing
Get ComAdd of hoEvents "5/24/2012 11:30:00 AM" "5/24/2012 1:30:00 PM" to Nothing
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
205
|
Is there a way to add a hyperlink to the event that would run a report with parameters
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID llOptions
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/20/2012"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComLongLabel of hoEvent to "<%=%256%><br><a 1234;option 1>more ...</a>"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComLongLabel of hoEvent1 to "<%=%256%><br><a 1235;option 2>more ...</a>"
Send Destroy to hoEvent1
Send Destroy to hoEvents
End_Procedure
|
|
204
|
Can I have multiple months in the calendar section
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComMinMonthY of hoCalendar to 2
Set ComMaxMonthY of hoCalendar to 2
Send Destroy to hoCalendar
End_Procedure
|
|
203
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/20/2012"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComUserData of hoEvent to 1234
Set ComShortLabel of hoEvent to "<%=%256%><br>Order: <%=%6%>"
Set ComLongLabel of hoEvent to (ComShortLabel(hoEvent))
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComUserData of hoEvent1 to 1235
Set ComShortLabel of hoEvent1 to "<%=%256%>, Order: <%=%6%>"
Set ComLongLabel of hoEvent1 to (ComShortLabel(hoEvent1))
Send Destroy to hoEvent1
Send Destroy to hoEvents
End_Procedure
|
|
202
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/20/2012"
Send Destroy to hoCalendar
Set ComDefaultEventShortLabel to "<%=%256%><br>Order: <b><%=%6%>"
Set ComDefaultEventLongLabel to (ComDefaultEventShortLabel(Self))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComUserData of hoEvent to 1234
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComUserData of hoEvent1 to 1235
Send Destroy to hoEvent1
Send Destroy to hoEvents
End_Procedure
|
|
201
|
Can you add text with links in the event
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID llOptions
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voCalendar
Get ComCalendar to voCalendar
Handle hoCalendar
Get Create (RefClass(cComCalendar)) to hoCalendar
Set pvComObject of hoCalendar to voCalendar
Set ComSelection of hoCalendar to "6/20/2012"
Send Destroy to hoCalendar
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/20/2012 9:00:00 AM" "6/20/2012 11:00:00 AM" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComShortLabel of hoEvent to "<a 1><%=%256%></a>"
Set ComLongLabel of hoEvent to (ComShortLabel(hoEvent))
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "6/20/2012 11:00:00 AM" "6/20/2012 1:00:00 PM" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComShortLabel of hoEvent1 to "<a 2><%=%256%></a>"
Set ComLongLabel of hoEvent1 to (ComShortLabel(hoEvent1))
Send Destroy to hoEvent1
Send Destroy to hoEvents
End_Procedure
|