How-To PowerBuilder (exschedule)

325	Clear Undo/Redo queue (method 2) OleObject oSchedule,var_Events any c oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) c = oSchedule.UndoRedoQueueLength oSchedule.UndoRedoQueueLength = 0 oSchedule.UndoRedoQueueLength = c MessageBox("Information",string( oSchedule.UndoListAction() )) oSchedule.EndUpdate()
324	Clear Undo/Redo queue (method 1) OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.AllowUndoRedo = true MessageBox("Information",string( oSchedule.UndoListAction() )) oSchedule.EndUpdate()
323	Removes Redo operations OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.Undo() oSchedule.RedoRemoveAction(13) MessageBox("Information",string( oSchedule.RedoListAction() )) oSchedule.EndUpdate()
322	Removes Undo operations OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.UndoRemoveAction(13) MessageBox("Information",string( oSchedule.UndoListAction() )) oSchedule.EndUpdate()
321	Record the UI operations as a block of undo/redo operations OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 oSchedule.StartBlockUndoRedo() var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.EndBlockUndoRedo() MessageBox("Information",string( oSchedule.UndoListAction() )) oSchedule.EndUpdate()
320	Groups the next to current Undo/Redo Actions in a single block OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.GroupUndoRedoActions(2) MessageBox("Information",string( oSchedule.UndoListAction() )) oSchedule.EndUpdate()
319	Limits the number of entries within the Undo/Redo queue OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 oSchedule.UndoRedoQueueLength = 1 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) MessageBox("Information",string( oSchedule.UndoListAction() )) oSchedule.EndUpdate()
318	Lists the Redo actions that can be performed on the control OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.Undo() MessageBox("Information",string( oSchedule.RedoListAction() )) oSchedule.EndUpdate()
317	Lists the Undo actions that can be performed on the control OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) MessageBox("Information",string( oSchedule.UndoListAction() )) oSchedule.EndUpdate()
316	Checks whether the Undo operation is possible OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.Undo() MessageBox("Information",string( "CanRedo" )) MessageBox("Information",string( String(oSchedule.CanRedo) )) oSchedule.EndUpdate()
315	Call Redo by code OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.Undo() oSchedule.Redo() oSchedule.EndUpdate()
314	Checks whether the Undo operation is possible OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) MessageBox("Information",string( "CanUndo" )) MessageBox("Information",string( String(oSchedule.CanUndo) )) oSchedule.EndUpdate()
313	Call Undo by code OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.Undo() oSchedule.EndUpdate()
312	Save the calendar-event's properties for Undo/Redo operations, by code OleObject oSchedule,var_Event any h oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 oSchedule.Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) oSchedule.StartBlockUndoRedo() var_Event = oSchedule.Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) h = var_Event.StartUpdateEvent var_Event.BodyBackColor = RGB(0,0,1) var_Event.BodyForeColor = RGB(255,255,255) var_Event.StatusColor = RGB(255,0,0) var_Event.EndUpdateEvent(h) oSchedule.EndBlockUndoRedo() oSchedule.EndUpdate()
311	No color is restored for the calendar-event when Undo/Redo operation is performed OleObject oSchedule,var_Event any h oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 oSchedule.Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,11:30:00)) oSchedule.StartBlockUndoRedo() var_Event = oSchedule.Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) h = var_Event.StartUpdateEvent var_Event.BodyBackColor = RGB(0,0,1) var_Event.BodyForeColor = RGB(255,255,255) var_Event.StatusColor = RGB(255,0,0) var_Event.EndUpdateEvent(h) oSchedule.EndBlockUndoRedo() oSchedule.EndUpdate()
310	How can I ensure that a specified calendar-event fits the control's visible area OleObject oSchedule,var_Events,var_Pattern oSchedule = ole_1.Object var_Events = oSchedule.Events var_Pattern = var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).BodyPattern var_Pattern.Type = 6 var_Pattern.Color = RGB(224,224,224) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).EnsureVisible()
309	LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated /begin event LayoutEndChanging(long Operation) - Notifies your application once the control's layout has been changed./ /* oSchedule = ole_1.Object MessageBox("Information",string( "LayoutEndChanging" )) MessageBox("Information",string( String(Operation) )) / /end event LayoutEndChanging*/ OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.EndUpdate()
308	Turn on the Undo/Redo feature OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowUndoRedo = true oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) oSchedule.EndUpdate()
307	How can I make the header (date/group) always visible, so it stays on the top while the user scrolls the chart /begin event LayoutEndChanging(long Operation) - Notifies your application once the control's layout has been changed./ /* oSchedule = ole_1.Object MessageBox("Information",string( String(Operation) )) oSchedule.DayViewHeight = 2016 / /end event LayoutEndChanging/ OleObject oSchedule,var_Calendar,var_Events,var_Group,var_Group1,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.SelectDate(2012-05-20,true) var_Calendar.Select(3) oSchedule.ScrollBars = 2 oSchedule.ShowViewCompact = 3 oSchedule.DayViewHeight = 2016 oSchedule.TimeScales.Item(0).MinorTimeRuler = "00:10" oSchedule.DayStartTime = "00:00" oSchedule.DayEndTime = "24:00" oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight*/ oSchedule.Calendar.Selection = 2012-05-24 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true oSchedule.ApplyGroupingColors = false var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"Group 1") var_Group.Visible = true var_Group.EventBackColor = RGB(128,128,128) var_Group.Title = "1'st Group" var_Group1 = var_Groups.Add(2,"Group 2") var_Group1.Visible = true var_Group1.EventBackColor = RGB(255,0,0) var_Group1.Title = "2'nd Group" oSchedule.DefaultEventLongLabel = "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>" oSchedule.DefaultEventShortLabel = oSchedule.DefaultEventLongLabel var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,01:00:00),DateTime(2012-05-24,02:00:00)).GroupID = 1 var_Events.Add(DateTime(2012-05-24,01:45:00),DateTime(2012-05-24,02:30:00)).GroupID = 2 var_Events.Add(DateTime(2012-05-24,02:30:00),DateTime(2012-05-24,04:30:00)).GroupID = 1 oSchedule.EndUpdate()
306	It appears that Width property of the Group does not what. What am I doing wrong OleObject oSchedule,var_Events,var_Group,var_Group1,var_Group2,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2001-01-10 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight/ var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"Group 1") var_Group.Title = "First" var_Group.Visible = true var_Group1 = var_Groups.Add(2,"Group 2") var_Group1.Title = "Second" var_Group1.Visible = true var_Group2 = var_Groups.Add(3,"Group 3") var_Group2.Title = "Third" var_Group2.Visible = true oSchedule.DayViewWidth = 144 oSchedule.Groups.Item(1).Width = 48 oSchedule.Groups.Item(2).Width = 48 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).GroupID = 1 var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,13:00:00)).GroupID = 2 oSchedule.EndUpdate()
305	ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons) OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 oSchedule.ImageSize = 32 oSchedule.Font.Size = 16 oSchedule.EventsFont.Size = 16 oSchedule.TimeScaleFont.Size = 16 oSchedule.TimeScales.Item(0).Width = 128 oSchedule.Images("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/Xi" & +"oW5rD8ZbrUZuVg6n1dsE/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==") var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,14:30:00)).Pictures = "1/2" var_Events.Add(DateTime(2012-05-24,12:45:00),DateTime(2012-05-24,15:45:00)).Pictures = "1,2" oSchedule.EndUpdate()
304	ImageSize property on 16 (default) (specifies the size of control' icons) OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 oSchedule.ImageSize = 16 oSchedule.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==") var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,14:30:00)).Pictures = "1/2" var_Events.Add(DateTime(2012-05-24,12:45:00),DateTime(2012-05-24,15:45:00)).Pictures = "1,2" oSchedule.EndUpdate()
303	Is it possible to show a different background color for alternate days OleObject oSchedule oSchedule = ole_1.Object oSchedule.Background(41,RGB(0,0,0)) oSchedule.Background(42,RGB(0,0,0)) oSchedule.Background(159,RGB(240,240,240)) oSchedule.Background(160,RGB(128,128,128)) oSchedule.Calendar.Select(3)
302	How can I select all events OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)) var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)) oSchedule.SelectAll() oSchedule.EndUpdate()
301	How can I unselect all events OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)) var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)) oSchedule.SelectAll() oSchedule.Selection = "" oSchedule.EndUpdate()
300	How do I immediately select a newly added event /begin event AddEvent(oleobject Ev) - Notifies your application once the a new event is added./ /* Ev.Selected = True oSchedule = ole_1.Object / /end event AddEvent*/ OleObject oSchedule oSchedule = ole_1.Object
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. OleObject oSchedule,var_Calendar,var_Events,var_Group,var_Group1,var_Group2,var_Group3,var_Group4,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.OnResizeControl = 2048 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true oSchedule.BodyEventForeColor = RGB(255,255,255) oSchedule.DayStartTime = "09:00" oSchedule.DayEndTime = "14:00" var_Calendar = oSchedule.Calendar var_Calendar.SelectDate(2012-05-24,true) var_Calendar.Select(3) oSchedule.ScrollBars = 0 oSchedule.ShowViewCompact = 1 var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"1") var_Group.Visible = true var_Group.EventBackColor = RGB(255,0,0) var_Group.HeaderBackColor = var_Group.EventBackColor var_Group.HeaderForeColor = RGB(255,255,255) var_Group1 = var_Groups.Add(2,"2") var_Group1.Visible = true var_Group1.EventBackColor = RGB(204,0,0) var_Group1.HeaderBackColor = var_Group1.EventBackColor var_Group1.HeaderForeColor = RGB(255,255,255) var_Group2 = var_Groups.Add(3,"3") var_Group2.Visible = true var_Group2.EventBackColor = RGB(153,0,0) var_Group2.HeaderBackColor = var_Group2.EventBackColor var_Group2.HeaderForeColor = RGB(255,255,255) var_Group3 = var_Groups.Add(4,"4") var_Group3.Visible = true var_Group3.EventBackColor = RGB(102,0,0) var_Group3.HeaderBackColor = var_Group3.EventBackColor var_Group3.HeaderForeColor = RGB(255,255,255) var_Group4 = var_Groups.Add(5,"5") var_Group4.Visible = true var_Group4.EventBackColor = RGB(51,0,0) var_Group4.HeaderBackColor = var_Group4.EventBackColor var_Group4.HeaderForeColor = RGB(255,255,255) var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)).GroupID = 1 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 2 var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,13:30:00)).GroupID = 3 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 4 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 5 oSchedule.EndUpdate()
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 OleObject oSchedule,var_Events,var_Group,var_Group1,var_Group2,var_Group3,var_Group4,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.OnResizeControl = 2048 oSchedule.Calendar.Selection = 2012-05-24 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true oSchedule.BodyEventForeColor = RGB(255,255,255) oSchedule.DayStartTime = "09:00" oSchedule.DayEndTime = "14:00" var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"Room1") var_Group.Visible = true var_Group.EventBackColor = RGB(255,0,0) var_Group.HeaderBackColor = var_Group.EventBackColor var_Group.HeaderForeColor = RGB(255,255,255) var_Group1 = var_Groups.Add(2,"Room2") var_Group1.Visible = true var_Group1.EventBackColor = RGB(204,0,0) var_Group1.HeaderBackColor = var_Group1.EventBackColor var_Group1.HeaderForeColor = RGB(255,255,255) var_Group2 = var_Groups.Add(3,"Room3") var_Group2.Visible = true var_Group2.EventBackColor = RGB(153,0,0) var_Group2.HeaderBackColor = var_Group2.EventBackColor var_Group2.HeaderForeColor = RGB(255,255,255) var_Group3 = var_Groups.Add(4,"Room4") var_Group3.Visible = true var_Group3.EventBackColor = RGB(102,0,0) var_Group3.HeaderBackColor = var_Group3.EventBackColor var_Group3.HeaderForeColor = RGB(255,255,255) var_Group4 = var_Groups.Add(5,"Room5") var_Group4.Visible = true var_Group4.EventBackColor = RGB(51,0,0) var_Group4.HeaderBackColor = var_Group4.EventBackColor var_Group4.HeaderForeColor = RGB(255,255,255) var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)).GroupID = 1 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 2 var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,13:30:00)).GroupID = 3 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 4 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 5 oSchedule.EndUpdate()
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 OleObject oSchedule oSchedule = ole_1.Object oSchedule.VerticalScrollWheel = 3
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) OleObject oSchedule,var_Event,var_Event1,var_Event2,var_Events,var_Group,var_Group1,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.SelectEventStyle = 48 oSchedule.AllowAllDayEventScroll = 4416 /exAllDayEventWheelScroll \| exAllDayEventMax4/ oSchedule.DefaultEventLongLabel = "<%=%><%= ( %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 `,` ) ) %>" oSchedule.DefaultEventShortLabel = "<%=%><%= ( %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` ) %>" oSchedule.Calendar.Selection = 2001-01-10 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true oSchedule.HeaderGroupHeight = 1 oSchedule.ShowAllDayHeader = true oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight/ var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"Group 1") var_Group.Title = "First" var_Group.Visible = true var_Group1 = var_Groups.Add(2,"Group 2") var_Group1.Title = "Second" var_Group1.Visible = true var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).GroupID = 1 var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,13:00:00)).GroupID = 2 var_Event = var_Events.Add(2001-01-10,2001-01-10) var_Event.GroupID = 1 var_Event.AllDayEvent = true var_Event1 = var_Events.Add(2001-01-10,2001-01-10) var_Event1.GroupID = 2 var_Event1.AllDayEvent = true var_Event2 = var_Events.Add(2001-01-10,2001-01-10) var_Event2.GroupID = 2 var_Event2.AllDayEvent = true oSchedule.EndUpdate()
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) OleObject oSchedule,var_Event,var_Event1,var_Event2,var_Events,var_Group,var_Group1,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.SelectEventStyle = 48 oSchedule.DefaultEventLongLabel = "<%=%><%= %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 `,` ) %>" oSchedule.DefaultEventShortLabel = "<%=%><%= %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` ) %>" oSchedule.Calendar.Selection = 2001-01-10 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true oSchedule.HeaderGroupHeight = 1 oSchedule.ShowAllDayHeader = true oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight/ var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"Group 1") var_Group.Title = "First" var_Group.Visible = true var_Group1 = var_Groups.Add(2,"Group 2") var_Group1.Title = "Second" var_Group1.Visible = true var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).GroupID = 1 var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,13:00:00)).GroupID = 2 var_Event = var_Events.Add(2001-01-10,2001-01-10) var_Event.GroupID = 1 var_Event.AllDayEvent = true var_Event1 = var_Events.Add(2001-01-10,2001-01-10) var_Event1.GroupID = -1 var_Event1.AllDayEvent = true var_Event2 = var_Events.Add(2001-01-10,2001-01-10) var_Event2.GroupID = 2 var_Event2.AllDayEvent = true oSchedule.EndUpdate()
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 OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 oSchedule.DefaultEventLongLabel = "<%=%><%=%5%><br><%=%256%>" var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,09:00:00),DateTime(2012-05-24,10:00:00)).Caption = "textzeile1<br>textzeile2<br>textzeile3" var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,11:00:00)).Caption = "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>" oSchedule.EndUpdate()
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 OleObject oSchedule,var_Calendar,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.TimeScales.Item(0).Visible = false oSchedule.OnResizeControl = 2048 oSchedule.ShowViewCompact = -1 var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2012-05-24 var_Calendar.Select(2) var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)) var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).ShowStatus = false var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,13:30:00)) oSchedule.EndUpdate()
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 OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2012-05-21 var_Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.OnResizeControl = 768 /exChangePanels \| exHideSplitter/ oSchedule.ScrollBars = 2 oSchedule.ShowViewCompact = 1 oSchedule.AllowMoveSchedule = 0 oSchedule.AllowResizeSchedule = 0 oSchedule.AllowToggleSchedule = 0 oSchedule.AllowExchangePanels = 0 oSchedule.AllowMoveTimeScale = 0 oSchedule.AllowResizeTimeScale = 0 oSchedule.AllowMultiDaysEvent = false oSchedule.Background(36,oSchedule.Background(37)) oSchedule.TimeScales.Item(0).MinorTimeRuler = "00:10" oSchedule.DayStartTime = "10:00" oSchedule.DayEndTime = "14:00" oSchedule.EndUpdate()
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 OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.ShowViewCompact = -1 oSchedule.ScrollBars = 2 var_Events = oSchedule.Events var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true oSchedule.EndUpdate()
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 OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.SelectDate(2012-05-20,true) var_Calendar.Select(5) oSchedule.OnResizeControl = 768 /exChangePanels \| exHideSplitter/ oSchedule.ScrollBars = 0 oSchedule.ShowViewCompact = 1 oSchedule.AllowMoveSchedule = 0 oSchedule.AllowResizeSchedule = 0 oSchedule.AllowToggleSchedule = 0 oSchedule.AllowExchangePanels = 0 oSchedule.AllowMoveTimeScale = 0 oSchedule.AllowResizeTimeScale = 0 oSchedule.AllowMultiDaysEvent = false oSchedule.Background(36,oSchedule.Background(37)) oSchedule.EndUpdate()
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 OleObject oSchedule,var_MarkZone,var_MarkZone1 oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.OnResizeControl = 768 /exChangePanels \| exHideSplitter/ oSchedule.Calendar.Selection = 2012-06-27 var_MarkZone = oSchedule.MarkZones.Add("zoneA",DateTime(2012-06-27,09:00:00),DateTime(2012-06-27,11:00:00)) var_MarkZone.Pattern.Type = 0 var_MarkZone.LongLabel = "Yellow" var_MarkZone.BackColor = RGB(255,255,0) var_MarkZone1 = oSchedule.MarkZones.Add("zoneB",DateTime(2012-06-27,12:00:00),DateTime(2012-06-27,13:30:00)) var_MarkZone1.Pattern.Type = 0 var_MarkZone1.LongLabel = "Green" var_MarkZone1.BackColor = RGB(0,255,0) oSchedule.EndUpdate()
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 OleObject oSchedule,var_MarkTime,var_MarkTimes oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = oSchedule.ExecuteTemplate("#5/24/2012#") var_MarkTimes = oSchedule.MarkTimes var_MarkTime = var_MarkTimes.Add("timer",oSchedule.ExecuteTemplate("#5/24/2012 11:35#")) var_MarkTime.Movable = true var_MarkTime.LineColor = RGB(0,0,255) var_MarkTime.StatusEventBackColor = RGB(0,0,255) var_MarkTime.TimeScaleLineColor = RGB(0,0,255) var_MarkTime.TimeScaleLabel = "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>" oSchedule.EndUpdate()
287	How do I display a picture with transparency /begin event PictureClick(string Key) - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures )./ /* oSchedule = ole_1.Object MessageBox("Information",string( String(Key) )) / /end event PictureClick*/ OleObject oSchedule,var_Events,var_ExPictures oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.ShowSelectEvent = false oSchedule.Calendar.Selection = 2012-05-24 var_ExPictures = oSchedule.Pictures var_ExPictures.Add("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & +"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & +"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & +"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/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/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZ" & +"AghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+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/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9" & +"iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+RYOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgNACNAAEkRROEQrhCGAgkBA") var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)).Pictures = "pic1" oSchedule.EndUpdate()
286	I need a border around each event/item on scheduler. Can you direct me to propery to use (to all) /begin event AddEvent(oleobject Ev) - Notifies your application once the a new event is added./ /* Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]" oSchedule = ole_1.Object / /end event AddEvent/ OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.SelectEventStyle = 48 oSchedule.Calendar.Selection = 2001-01-10 oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight*/ oSchedule.StatusEventSize = 0 oSchedule.DefaultEventPadding(-1,4) var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)) var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,13:00:00)) var_Events.Add(DateTime(2001-01-10,12:30:00),DateTime(2001-01-10,13:00:00))
285	I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct) OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.SelectEventStyle = 48 oSchedule.Calendar.Selection = 2001-01-10 oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight/ oSchedule.StatusEventSize = 0 oSchedule.DefaultEventPadding(-1,4) var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]" var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,13:00:00)).BodyBackgroundExt = "[frame=RGB(128,128,128),framethick]" var_Events.Add(DateTime(2001-01-10,12:30:00),DateTime(2001-01-10,13:00:00)).BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
284	How can I change/specify the caption of the groups, when the user clicks the drop down button OleObject oSchedule,var_Events,var_Group,var_Group1,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"Group A") var_Group.Caption = "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland" var_Group.Visible = true var_Group.EventBackColor = RGB(128,128,128) var_Group1 = var_Groups.Add(2,"Group B") var_Group1.Caption = "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia" var_Group1.Visible = true var_Group1.EventBackColor = RGB(255,0,0) var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)).GroupID = 1 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 2 var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,13:30:00)).GroupID = 1 oSchedule.EndUpdate()
283	Is it possible to hide the group header, but still display the groups/captions OleObject oSchedule,var_Events,var_Group,var_Group1,var_Groups oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.HTMLPicture("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & +"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & +"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & +"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/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/knAAACB5gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhh" & +"AEA/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/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAk" & +"hhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=") oSchedule.HTMLPicture("pic2","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" & +"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" & +"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" & +"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/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+AUAlAm" & +"hGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/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+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0" & +"hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQikDlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQYIE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHEDwRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGgTBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE=") oSchedule.Calendar.Selection = 2012-05-24 oSchedule.DisplayGroupingButton = true oSchedule.ShowGroupingEvents = true var_Groups = oSchedule.Groups var_Group = var_Groups.Add(1,"<c><b>Group</b><br><c><img>pic1</img>") var_Group.Visible = true var_Group.EventBackColor = RGB(128,128,128) var_Group1 = var_Groups.Add(2,"<c><b>Group</b><br><c><img>pic2</img>") var_Group1.Visible = true var_Group1.EventBackColor = RGB(255,0,0) var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)).GroupID = 1 var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).GroupID = 2 var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,13:30:00)).GroupID = 1 oSchedule.HeaderGroupHeight = -1 oSchedule.EndUpdate()
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) OleObject oSchedule,var_Calendar,var_Events any s,var_CopyTo oSchedule = ole_1.Object oSchedule.OnResizeControl = 768 /exChangePanels \| exHideSplitter/ var_Calendar = oSchedule.Calendar var_Calendar.Selection = "#1/1/2016#" var_Calendar.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))" oSchedule.BorderSelStyle = -1 oSchedule.ShowViewCompact = -1 var_Events = oSchedule.Events var_Events.Add(DateTime(2016-01-10,08:30:00),DateTime(2016-01-10,14:30:00)) var_Events.Add(DateTime(2016-01-11,09:30:00),DateTime(2016-01-11,11:30:00)) var_Events.Add(DateTime(2016-01-15,10:30:00),DateTime(2016-01-15,11:30:00)) s = oSchedule.Calendar.Selection oSchedule.Calendar.Selection = "0" var_CopyTo = oSchedule.CopyTo("c:/temp/test.png") MessageBox("Information",string( "Look for c:/temp/test.png file" )) oSchedule.Calendar.Selection = s
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) OleObject oSchedule,var_Calendar,var_Events any var_CopyTo oSchedule = ole_1.Object oSchedule.OnResizeControl = 768 /exChangePanels \| exHideSplitter/ var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2012-01-01 var_Calendar.SelectDate(2012-01-01,false) var_Events = oSchedule.Events var_Events.Add(DateTime(2012-01-01,08:30:00),DateTime(2012-01-01,09:30:00)) var_Events.Add(DateTime(2012-01-01,08:35:00),DateTime(2012-01-01,09:35:00)) var_Events.Add(DateTime(2012-01-01,10:30:00),DateTime(2012-01-01,12:30:00)) var_CopyTo = oSchedule.CopyTo("c:/temp/test.png") MessageBox("Information",string( "Look for c:/temp/test.png file" ))
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) OleObject oSchedule,var_Calendar,var_Events any var_CopyTo oSchedule = ole_1.Object var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2012-01-01 var_Calendar.SelectDate(2012-01-01,false) var_Events = oSchedule.Events var_Events.Add(DateTime(2012-01-01,08:30:00),DateTime(2012-01-01,09:30:00)) var_Events.Add(DateTime(2012-01-01,08:35:00),DateTime(2012-01-01,09:35:00)) var_Events.Add(DateTime(2012-01-01,10:30:00),DateTime(2012-01-01,12:30:00)) var_CopyTo = oSchedule.CopyTo("c:/temp/test.png") MessageBox("Information",string( "Look for c:/temp/test.png file" ))
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 OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowSelectCreateEvent = 2 oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value >= #5/20/2012# and value <= #5/26/2012#" oSchedule.ShowViewCompact = -1 oSchedule.AllowAllDayEventScroll = 4403 /0x23 \| exAllDayEventWheelScroll \| exAllDayEventNoMax/ oSchedule.BodyEventBackColor = RGB(128,128,128) oSchedule.Background(165,RGB(220,220,220)) var_Events = oSchedule.Events var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-23,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-24,2012-05-25).AllDayEvent = true oSchedule.EndUpdate()
278	Is it possible to highlight the newly created event ( runtime creation ) OleObject oSchedule oSchedule = ole_1.Object oSchedule.AllowSelectCreateEvent = 2
277	Is it possible to select the newly created event ( runtime creation ) OleObject oSchedule oSchedule = ole_1.Object oSchedule.AllowSelectCreateEvent = 1
276	I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn) OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHfj2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==") oSchedule.AllowSelectCreateEvent = 2 oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.ShowViewCompact = -1 oSchedule.AllowAllDayEventScroll = 4416 /exAllDayEventWheelScroll \| exAllDayEventMax4/ oSchedule.Background(165,16777216 /0x1000000/) var_Events = oSchedule.Events var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-23,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-24,2012-05-26).AllDayEvent = true oSchedule.EndUpdate()
275	I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid) OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowSelectCreateEvent = 2 oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.ShowViewCompact = -1 oSchedule.AllowAllDayEventScroll = 4416 /exAllDayEventWheelScroll \| exAllDayEventMax4/ oSchedule.Background(165,RGB(220,220,220)) var_Events = oSchedule.Events var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-23,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-24,2012-05-26).AllDayEvent = true oSchedule.EndUpdate()
274	I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowSelectCreateEvent = 2 oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.ShowViewCompact = -1 oSchedule.AllowAllDayEventScroll = 4416 /exAllDayEventWheelScroll \| exAllDayEventMax4/ oSchedule.Background(165,RGB(0,0,0)) var_Events = oSchedule.Events var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-23,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-24,2012-05-26).AllDayEvent = true oSchedule.EndUpdate()
273	The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowSelectCreateEvent = 2 oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.ShowViewCompact = -1 oSchedule.AllowAllDayEventScroll = 320 /exAllDayEventScroll \| exAllDayEventMax4/ var_Events = oSchedule.Events var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-23,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-24,2012-05-26).AllDayEvent = true oSchedule.EndUpdate()
272	Is it possible to specify the number of all-day events to be visible OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowSelectCreateEvent = 2 oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.ShowViewCompact = -1 oSchedule.AllowAllDayEventScroll = 4416 /exAllDayEventWheelScroll \| exAllDayEventMax4/ var_Events = oSchedule.Events var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-23,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-24,2012-05-26).AllDayEvent = true oSchedule.EndUpdate()
271	How do I disable scrolling the all-day header OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.AllowSelectCreateEvent = 2 oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true oSchedule.Calendar.Selection = 2012-05-21 oSchedule.Calendar.Selection = "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)" oSchedule.ShowViewCompact = -1 oSchedule.AllowAllDayEventScroll = 0 var_Events = oSchedule.Events var_Events.Add(2012-05-22,2012-05-23).AllDayEvent = true var_Events.Add(2012-05-21,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-24).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-22,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-23,2012-05-25).AllDayEvent = true var_Events.Add(2012-05-24,2012-05-26).AllDayEvent = true oSchedule.EndUpdate()
270	How can I display the current week only, when the user selects the date in the calendar panel OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.OnResizeControl = 129 /exDisableSplitter \| exResizePanelRight/ var_Calendar = oSchedule.Calendar var_Calendar.OnSelectDate = 1 var_Calendar.Selection = 2001-01-10 var_Calendar.SingleSel = true oSchedule.Calendar.FirstWeekDay = 1 oSchedule.ScrollBars = 0 oSchedule.ShowViewCompact = -1 oSchedule.AllowResizeSchedule = 0 oSchedule.AllowMoveSchedule = 0 oSchedule.AllowToggleSchedule = 0 oSchedule.Background(35,oSchedule.Background(34)) oSchedule.TimeScales.Item(0).AllowResize = false oSchedule.DayViewWidth = 0 oSchedule.EndUpdate()
269	How do I capture the control and save it as PDF (Method 2) OleObject oSchedule,var_Calendar,var_Events any var_CopyTo oSchedule = ole_1.Object var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2001-06-01 var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)" oSchedule.DayViewWidth = 512 oSchedule.DayViewHeight = 512 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-06-11,10:00:00),DateTime(2001-06-11,13:00:00)) var_Events.Add(DateTime(2001-06-12,10:00:00),DateTime(2001-06-12,13:00:00)) var_CopyTo = oSchedule.CopyTo("C:/Temp/test.pdf") MessageBox("Information",string( "Look For: C:/Temp/test.pdf file" ))
268	How do I capture the control and save it as PDF (Method 1) OleObject oSchedule,var_Calendar,var_Events,var_Print oSchedule = ole_1.Object var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2001-06-01 var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)" oSchedule.DayViewWidth = 512 oSchedule.DayViewHeight = 512 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-06-11,10:00:00),DateTime(2001-06-11,13:00:00)) var_Events.Add(DateTime(2001-06-12,10:00:00),DateTime(2001-06-12,13:00:00)) var_Print = CREATE OLEObject var_Print.ConnectToNewObject("Exontrol.Print") var_Print.Options = "FitToPage=On" var_Print.PrintExt = oSchedule.Object var_Print.CopyTo("C:/Temp/test.pdf") MessageBox("Information",string( "Look For: C:/Temp/test.pdf file" ))
267	How do I capture the control and save it as an image (JPG or BMP) (Method 2) OleObject oSchedule,var_Calendar,var_Events any var_CopyTo,var_CopyTo1 oSchedule = ole_1.Object var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2001-06-01 var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)" oSchedule.DayViewWidth = 512 oSchedule.DayViewHeight = 512 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-06-11,10:00:00),DateTime(2001-06-11,13:00:00)) var_Events.Add(DateTime(2001-06-12,10:00:00),DateTime(2001-06-12,13:00:00)) var_CopyTo = oSchedule.CopyTo("C:/Temp/test.bmp") var_CopyTo1 = oSchedule.CopyTo("C:/Temp/test.jpg") MessageBox("Information",string( "Look For: C:/Temp/test.* file" ))
266	How do I capture the control and save it as an image (JPG or BMP) (Method 1) OleObject oSchedule,var_Calendar,var_Events,var_Print oSchedule = ole_1.Object var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2001-06-01 var_Calendar.Selection = "value in (#6/11/2001#,#6/12/2001#)" oSchedule.DayViewWidth = 512 oSchedule.DayViewHeight = 512 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-06-11,10:00:00),DateTime(2001-06-11,13:00:00)) var_Events.Add(DateTime(2001-06-12,10:00:00),DateTime(2001-06-12,13:00:00)) var_Print = CREATE OLEObject var_Print.ConnectToNewObject("Exontrol.Print") var_Print.Options = "FitToPage=On" var_Print.PrintExt = oSchedule.Object var_Print.CopyTo("C:/Temp/test.bmp") var_Print.CopyTo("C:/Temp/test.jpg") MessageBox("Information",string( "Look For: C:/Temp/test.* file" ))
265	Recurrence: The 2nd to last weekday of the month OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-29 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-29,09:00:00),DateTime(1997-09-29,14:00:00)).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2" oSchedule.EndUpdate()
264	Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-04 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-04,09:00:00),DateTime(1997-09-04,14:00:00)).Repetitive = "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3" oSchedule.EndUpdate()
263	Recurrence: The last work day of the month OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-30 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-08-05,09:00:00),DateTime(1997-08-05,14:00:00)).Repetitive = "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1" oSchedule.EndUpdate()
262	Recurrence: An example where the days generated makes a difference because of WKST (Sample 2) OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-08-05 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 0 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-08-05,09:00:00),DateTime(1997-08-05,14:00:00)).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU" oSchedule.EndUpdate()
261	Recurrence: An example where the days generated makes a difference because of WKST (Sample 1) OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-08-05 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-08-05,09:00:00),DateTime(1997-08-05,14:00:00)).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU" oSchedule.EndUpdate()
260	Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day) OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1996-11-05 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1996-11-05,09:00:00),DateTime(1996-11-05,14:00:00)).Repetitive = "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8" oSchedule.EndUpdate()
259	Recurrence: The first Saturday that follows the first Sunday of the month, forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-13 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-13,09:00:00),DateTime(1997-09-13,14:00:00)).Repetitive = "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13" oSchedule.EndUpdate()
258	Recurrence: Every Friday the 13th, forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1998-02-13 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13" oSchedule.EndUpdate()
257	Recurrence: Every Thursday, but only during June, July, and August, forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-06-05 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-06-05,09:00:00),DateTime(1997-06-05,14:00:00)).Repetitive = "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8" oSchedule.EndUpdate()
256	Recurrence: Every Thursday in March, forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-03-13 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-03-13,09:00:00),DateTime(1997-03-13,14:00:00)).Repetitive = "FREQ=YEARLY;BYMONTH=3;BYDAY=TH" oSchedule.EndUpdate()
255	Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-05-12 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-05-12,09:00:00),DateTime(1997-05-12,14:00:00)).Repetitive = "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO" oSchedule.EndUpdate()
254	Recurrence: Every 20th Monday of the year, forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-05-19 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-01-01,09:00:00),DateTime(1997-01-01,14:00:00)).Repetitive = "FREQ=YEARLY;BYDAY=20MO" oSchedule.EndUpdate()
253	Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-01-01 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-01-01,09:00:00),DateTime(1997-01-01,14:00:00)).Repetitive = "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200" oSchedule.EndUpdate()
252	Recurrence: Every other year on January, February, and March for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-03-10 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-03-10,09:00:00),DateTime(1997-03-10,14:00:00)).Repetitive = "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3" oSchedule.EndUpdate()
251	Recurrence: Yearly in June and July for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-06-10 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthX = 2 var_Calendar.MaxMonthY = 2 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-06-10,09:00:00),DateTime(1997-06-10,14:00:00)).Repetitive = "FREQ=YEARLY;COUNT=10;BYMONTH=6,7" oSchedule.EndUpdate()
250	Recurrence: Every Tuesday, every other month OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-02 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU" oSchedule.EndUpdate()
249	Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-10 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-10,09:00:00),DateTime(1997-09-10,14:00:00)).Repetitive = "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15" oSchedule.EndUpdate()
248	Recurrence: Monthly on the first and last day of the month for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-30 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-03,09:00:00),DateTime(1997-09-03,14:00:00)).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1" oSchedule.EndUpdate()
247	Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-02 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15" oSchedule.EndUpdate()
246	Recurrence: Monthly on the third to the last day of the month, forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-28 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-28,09:00:00),DateTime(1997-09-28,14:00:00)).Repetitive = "FREQ=MONTHLY;BYMONTHDAY=-3" oSchedule.EndUpdate()
245	Recurrence: Monthly on the second to last Monday of the month for 6 months OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-22 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-22,09:00:00),DateTime(1997-09-22,14:00:00)).Repetitive = "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO" oSchedule.EndUpdate()
244	Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-07 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-07,09:00:00),DateTime(1997-09-07,14:00:00)).Repetitive = "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU" oSchedule.EndUpdate()
243	Recurrence: Monthly on the 1st Friday until December 24, 1997 OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-05 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-05,09:00:00),DateTime(1997-09-05,14:00:00)).Repetitive = "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR" oSchedule.EndUpdate()
242	Recurrence: Monthly on the 1st Friday for ten occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-05 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-05,09:00:00),DateTime(1997-09-05,14:00:00)).Repetitive = "FREQ=MONTHLY;COUNT=10;BYDAY=1FR" oSchedule.EndUpdate()
241	Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-16 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 0 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH" oSchedule.EndUpdate()
240	Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997 OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-17 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 0 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR" oSchedule.EndUpdate()
239	Recurrence: Weekly on Tuesday and Thursday for 5 weeks OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-16 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 0 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH" oSchedule.EndUpdate()
238	Recurrence: Weekly on Tuesday and Thursday for 5 weeks OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-16 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 0 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH" oSchedule.EndUpdate()
237	Recurrence: Every other day - forever OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-04 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=DAILY;INTERVAL=2" oSchedule.EndUpdate()
236	Recurrence: Daily until December 24, 1997 OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-17 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Calendar.FirstWeekDay = 1 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=DAILY;UNTIL=19971224T000000Z" oSchedule.EndUpdate()
235	Recurrence: Daily for 10 occurrences OleObject oSchedule,var_Calendar,var_Events,var_Highlight oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 1997-09-09 var_Calendar.ShowNonMonthDays = false var_Calendar.MaxMonthY = 4 var_Highlight = var_Calendar.HighlightEvent var_Highlight.Pattern.Type = 256 var_Highlight.Bold = false var_Calendar.FirstWeekDay = 1 oSchedule.ShowViewCompact = -1 oSchedule.BorderSelStyle = -1 oSchedule.Background(81,RGB(240,240,240)) var_Events = oSchedule.Events var_Events.Add(DateTime(1997-09-02,09:00:00),DateTime(1997-09-02,14:00:00)).Repetitive = "FREQ=DAILY;COUNT=10" oSchedule.EndUpdate()
234	How do I display the week number according, so the January 1st is in the first week OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2016-01-01 var_Calendar.FirstWeekDay = 0 var_Calendar.DisplayWeekNumberAs = 1 oSchedule.EndUpdate()
233	How do I display the week number according to ISO8601 standard OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2016-01-04 var_Calendar.FirstWeekDay = 1 var_Calendar.DisplayWeekNumberAs = 0 oSchedule.EndUpdate()
232	How do I hide the week number OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.FirstWeekDay = 1 var_Calendar.ShowWeeks = false var_Calendar.ShowNonMonthDays = false oSchedule.EndUpdate()
231	How can I change the background color of the all day header OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.OnResizeControl = 2048 oSchedule.ShowAllDayHeader = true var_Calendar = oSchedule.Calendar var_Calendar.FirstWeekDay = 1 var_Calendar.SelectDate(2012-05-08,true) var_Calendar.Select(3) var_Calendar.SelectDate(2012-05-15,false) var_Calendar.Select(19 /exSelectToggle \| exSelectWeek/) oSchedule.Background(87,RGB(240,240,240)) oSchedule.HeaderAllDayEventHeight = -20 oSchedule.Events.Add(2012-05-08,2012-05-17).AllDayEvent = true oSchedule.EndUpdate()
230	How can I display a single text on a specified date OleObject oSchedule oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-26 oSchedule.Calendar.Selection = "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)" oSchedule.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]" oSchedule.NonworkingTimes.Add("value = #05/25/2012#","09:00","10:00",1234) oSchedule.EndUpdate()
229	I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID) OleObject oSchedule,rs oSchedule = ole_1.Object rs = CREATE OLEObject rs.ConnectToNewObject("ADOR.Recordset") rs.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3) oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2013-11-11 oSchedule.DataField(1,"Start") oSchedule.DataField(2,"End") oSchedule.DataField(11,"Extra") oSchedule.DataSource = rs MessageBox("Information",string( String(oSchedule.Events.Item(1).KnownProperty(12)) )) oSchedule.EndUpdate()
228	Is it possible to display some text/image on the schedule's view background OleObject oSchedule oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-25 oSchedule.NonworkingPatterns.Add(1234,6).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]" oSchedule.NonworkingPatterns.Add(1235,0).BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]" oSchedule.NonworkingTimes.Add("weekday(value) = 5","08:00","08:59:59",1234) oSchedule.NonworkingTimes.Add("weekday(value) = 5","09:00","09:59:59",1235) oSchedule.NonworkingTimes.Add("weekday(value) = 5","10:00","10:59:59",1234) oSchedule.EndUpdate()
227	How can I display a text on the schedule's view background OleObject oSchedule oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-25 oSchedule.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]" oSchedule.NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234) oSchedule.EndUpdate()
226	Is it possible to change the visual appearance of the edit's context menu OleObject oSchedule oSchedule = ole_1.Object oSchedule.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") oSchedule.Background(99,16777216 /0x1000000/)
225	How do I customize the edit's context menu OleObject oSchedule oSchedule = ole_1.Object oSchedule.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oSchedule.EditContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
224	How can I lock/fix the date header, so it stays on the top while the user scrolls the chart /begin event LayoutEndChanging(long Operation) - Notifies your application once the control's layout has been changed./ /* oSchedule = ole_1.Object MessageBox("Information",string( String(Operation) )) oSchedule.DayViewHeight = 2016 / /end event LayoutEndChanging/ OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.SelectDate(2012-05-20,true) var_Calendar.Select(3) oSchedule.ScrollBars = 2 oSchedule.ShowViewCompact = 3 oSchedule.DayViewHeight = 2016 oSchedule.AllowMoveSchedule = 0 oSchedule.AllowResizeSchedule = 0 oSchedule.AllowToggleSchedule = 0 oSchedule.AllowExchangePanels = 0 oSchedule.AllowMoveTimeScale = 0 oSchedule.AllowResizeTimeScale = 0 oSchedule.AllowMultiDaysEvent = false oSchedule.TimeScales.Item(0).MinorTimeRuler = "00:10" oSchedule.DayStartTime = "00:00" oSchedule.DayEndTime = "24:00" oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight*/ oSchedule.EndUpdate()
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 OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.SelectDate(2012-05-20,true) var_Calendar.Select(3) oSchedule.OnResizeControl = 768 /exChangePanels \| exHideSplitter/ oSchedule.ScrollBars = 2 oSchedule.ShowViewCompact = 1 oSchedule.DayViewHeight = 2016 oSchedule.AllowMoveSchedule = 0 oSchedule.AllowResizeSchedule = 0 oSchedule.AllowToggleSchedule = 0 oSchedule.AllowExchangePanels = 0 oSchedule.AllowMoveTimeScale = 0 oSchedule.AllowResizeTimeScale = 0 oSchedule.AllowMultiDaysEvent = false oSchedule.Background(36,oSchedule.Background(37)) oSchedule.TimeScales.Item(0).MinorTimeRuler = "00:10" oSchedule.DayStartTime = "00:00" oSchedule.DayEndTime = "24:00" oSchedule.EndUpdate()
222	How can I show a single week, no calendar OleObject oSchedule,var_Calendar oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.SelectDate(2012-05-20,true) var_Calendar.Select(3) oSchedule.OnResizeControl = 768 /exChangePanels \| exHideSplitter/ oSchedule.ScrollBars = 0 oSchedule.ShowViewCompact = 1 oSchedule.AllowMoveSchedule = 0 oSchedule.AllowResizeSchedule = 0 oSchedule.AllowToggleSchedule = 0 oSchedule.AllowExchangePanels = 0 oSchedule.AllowMoveTimeScale = 0 oSchedule.AllowResizeTimeScale = 0 oSchedule.AllowMultiDaysEvent = false oSchedule.Background(36,oSchedule.Background(37)) oSchedule.EndUpdate()
221	How do I select the dates within a giving interval only OleObject oSchedule,var_Calendar,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2012-05-01 var_Calendar.Selection = "(value >= #5/13/2012#) and (value <= #5/26/2012#)" var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,09:00:00),DateTime(2012-05-24,12:00:00)) var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:45:00)) var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,14:30:00)) var_Events.Add(DateTime(2012-05-24,12:45:00),DateTime(2012-05-24,15:45:00)) oSchedule.EndUpdate()
220	How do I display the dates within a giving interval only OleObject oSchedule,var_Calendar,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() var_Calendar = oSchedule.Calendar var_Calendar.Selection = 2012-05-24 var_Calendar.MinDate = 2012-05-13 var_Calendar.MaxDate = 2012-05-26 var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,09:00:00),DateTime(2012-05-24,12:00:00)) var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:45:00)) var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,14:30:00)) var_Events.Add(DateTime(2012-05-24,12:45:00),DateTime(2012-05-24,15:45:00)) oSchedule.EndUpdate()
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 OleObject oSchedule,var_TimeScale oSchedule = ole_1.Object oSchedule.DayStartTime = "00:00" oSchedule.DayEndTime = "24:00" var_TimeScale = oSchedule.TimeScales.Item(0) var_TimeScale.MajorTimeLabel = "<%hh%>:<%nn%>" var_TimeScale.Width = 32
218	How do I show a double frame OleObject oSchedule,var_Event,var_Event1,var_Event2,var_Event3,var_Events oSchedule = ole_1.Object oSchedule.SelectEventStyle = 48 oSchedule.Calendar.Selection = 2001-01-10 oSchedule.DefaultEventLongLabel = "" oSchedule.DefaultEventShortLabel = "" var_Events = oSchedule.Events var_Event = var_Events.Add(DateTime(2001-01-10,08:00:00),DateTime(2001-01-10,10:00:00)) var_Event.BodyBackgroundExt = "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)]" var_Event.BodyBackgroundExtValue(1,1,255) var_Event.BodyBackgroundExtValue(1,2,"35%") var_Event1 = var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,12:00:00)) var_Event1.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]" var_Event1.BodyBackgroundExtValue(1,2,"35%") var_Event1.BodyBackgroundExtValue(2,1,65535) var_Event2 = var_Events.Add(DateTime(2001-01-10,12:00:00),DateTime(2001-01-10,14:00:00)) var_Event2.ShowStatus = false var_Event2.BodyBackgroundExt = "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)]" var_Event3 = var_Events.Add(DateTime(2001-01-10,14:00:00),DateTime(2001-01-10,16:00:00)) var_Event3.ShowStatus = false var_Event3.BodyBackgroundExt = "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)]"
217	How can I add more colors on the event OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.SelectEventStyle = 48 oSchedule.Calendar.Selection = 2001-01-10 var_Events = oSchedule.Events var_Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).BodyBackgroundExt = "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])" var_Events.Add(DateTime(2001-01-10,10:00:00),DateTime(2001-01-10,13:00:00)).BodyBackgroundExt = "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])" var_Events.Add(DateTime(2001-01-10,11:00:00),DateTime(2001-01-10,14:00:00)).BodyBackgroundExt = "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)])"
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 OleObject oSchedule,var_Calendar oSchedule = ole_1.Object var_Calendar = oSchedule.Calendar var_Calendar.AlignDate = false var_Calendar.MinMonthY = 2 var_Calendar.MaxMonthY = 2
215	How can I bound the control to a data source /begin event Error(long Error,string Description) - Fired when an internal error occurs./ /* oSchedule = ole_1.Object MessageBox("Information",string( String(Description) )) / /end event Error*/ OleObject oSchedule,rs oSchedule = ole_1.Object rs = CREATE OLEObject rs.ConnectToNewObject("ADOR.Recordset") rs.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3) oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2013-11-11 oSchedule.DataField(1,"Start") oSchedule.DataField(2,"End") oSchedule.DataField(11,"Extra") oSchedule.DataSource = rs oSchedule.EndUpdate()
214	How can I start drag and drop an event /begin event OLEStartDrag(oleobject Data,long AllowedEffects) - Occurs when the OLEDrag method is called./ /* Data.SetData( "your data to be dragged" ) oSchedule = ole_1.Object AllowedEffects = 1 / /end event OLEStartDrag/ OleObject oSchedule oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.OLEDropMode = 1 oSchedule.SelectEventStyle = 48 oSchedule.DefaultEventLongLabel = "<%=%256%><br><%=%5%>" oSchedule.DefaultEventShortLabel = oSchedule.DefaultEventLongLabel oSchedule.Calendar.Selection = 2001-01-10 oSchedule.OnResizeControl = 3073 /exCalendarAutoHide \| exCalendarFit \| exResizePanelRight*/ oSchedule.Events.Add(DateTime(2001-01-10,09:00:00),DateTime(2001-01-10,12:30:00)).ExtraLabel = "Click the event and wait to start dragging." oSchedule.EndUpdate()
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 OleObject oSchedule oSchedule = ole_1.Object oSchedule.ShowHighlightDate = 4353 /exHighlightDateCalendarEllipticClip \| exHighlightDateCalendarGradient \| exShowHighlightDateCalendar/ oSchedule.Calendar.Selection = 2001-01-01 oSchedule.HighlightDate(2001-01-09,65280) oSchedule.HighlightDate(2001-01-17,"65280,255") oSchedule.HighlightDate(2001-01-25,"255,65280,16711680")
212	How can I arrange the colors to highlight the date vertically OleObject oSchedule oSchedule = ole_1.Object oSchedule.ShowHighlightDate = 49 /exHighlightDateVertical \| exShowHighlightDateCalendar/ oSchedule.Calendar.Selection = 2001-01-01 oSchedule.HighlightDate(2001-01-09,65280) oSchedule.HighlightDate(2001-01-17,"65280,255") oSchedule.HighlightDate(2001-01-25,"255,65280,16711680")
211	Is it possible to highlight a date in gradient OleObject oSchedule oSchedule = ole_1.Object oSchedule.ShowHighlightDate = 257 /exHighlightDateCalendarGradient \| exShowHighlightDateCalendar/ oSchedule.Calendar.Selection = 2001-01-01 oSchedule.HighlightDate(2001-01-09,65280) oSchedule.HighlightDate(2001-01-17,"65280,255") oSchedule.HighlightDate(2001-01-25,"255,65280,16711680")
210	Is it possible to highlight a date in the calendar panel only OleObject oSchedule oSchedule = ole_1.Object oSchedule.ShowHighlightDate = 1 oSchedule.Calendar.Selection = 2001-01-01 oSchedule.HighlightDate(2001-01-09,65280) oSchedule.HighlightDate(2001-01-17,"65280,255") oSchedule.HighlightDate(2001-01-25,"255,65280,16711680")
209	Is it possible to highlight a date in the control OleObject oSchedule oSchedule = ole_1.Object oSchedule.ShowHighlightDate = 3 oSchedule.Calendar.Selection = 2001-01-25 oSchedule.HighlightDate(2001-01-09,65280) oSchedule.HighlightDate(2001-01-17,"65280,255") oSchedule.HighlightDate(2001-01-25,"255,65280,16711680")
208	How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible OleObject oSchedule,var_NonworkingTimes oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.BodyEventBackColor = RGB(240,240,240) oSchedule.ShowGroupingEvents = true oSchedule.DisplayGroupingButton = true oSchedule.Groups.Add(1,"Group 1").Visible = true oSchedule.Groups.Add(2,"Group 2").Visible = true oSchedule.Calendar.Selection = 2012-05-25 oSchedule.NonworkingPatterns.Add(1234,11) var_NonworkingTimes = oSchedule.NonworkingTimes var_NonworkingTimes.Add("1","00:00","08:45",1234) var_NonworkingTimes.Add("weekday(value) = 5","10:00","11:45",1).GroupID = 1 var_NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234).GroupID = 2 oSchedule.Events.Add(DateTime(2012-05-25,09:30:00),DateTime(2012-05-25,13:00:00)).GroupID = 1 oSchedule.EndUpdate()
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 /begin event DblClick(integer Shift,long X,long Y) - Occurs when the user dblclk the left mouse button over an object./ /* oSchedule = ole_1.Object MessageBox("Information",string( "DblClick " )) MessageBox("Information",string( String(X) )) MessageBox("Information",string( String(Y) )) / /end event DblClick*/ OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)) var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)).StatusColor = RGB(255,0,0) var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,13:30:00)) oSchedule.AllowEditEvent = 0 oSchedule.AllowToggleSchedule = 0 oSchedule.EndUpdate()
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 OleObject oSchedule,var_Events,var_TimeScale oSchedule = ole_1.Object oSchedule.DayEndTime = "13:00" var_TimeScale = oSchedule.TimeScales.Add("+3:00") var_TimeScale.AlignLeft = true var_TimeScale.Caption = "EST <b>+03" oSchedule.BeginUpdate() oSchedule.Calendar.Selection = 2012-05-24 oSchedule.UpdateEventsLabel = "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>" var_Events = oSchedule.Events var_Events.Add(DateTime(2012-05-24,10:00:00),DateTime(2012-05-24,12:00:00)) var_Events.Add(DateTime(2012-05-24,10:45:00),DateTime(2012-05-24,12:30:00)) var_Events.Add(DateTime(2012-05-24,11:30:00),DateTime(2012-05-24,13:30:00)) oSchedule.EndUpdate()
205	Is there a way to add a hyperlink to the event that would run a report with parameters /begin event AnchorClick(string AnchorID,string Options) - Occurs when an anchor element is clicked./ /* oSchedule = ole_1.Object MessageBox("Information",string( String(AnchorID) )) MessageBox("Information",string( String(Options) )) / /end event AnchorClick*/ OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.Calendar.Selection = 2012-06-20 var_Events = oSchedule.Events var_Events.Add(DateTime(2012-06-20,09:00:00),DateTime(2012-06-20,11:00:00)).LongLabel = "<%=%256%><br><a 1234;option 1>more ...</a>" var_Events.Add(DateTime(2012-06-20,11:00:00),DateTime(2012-06-20,13:00:00)).LongLabel = "<%=%256%><br><a 1235;option 2>more ...</a>"
204	Can I have multiple months in the calendar section OleObject oSchedule,var_Calendar oSchedule = ole_1.Object var_Calendar = oSchedule.Calendar var_Calendar.MinMonthY = 2 var_Calendar.MaxMonthY = 2
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 OleObject oSchedule,var_Event,var_Event1,var_Events oSchedule = ole_1.Object oSchedule.Calendar.Selection = 2012-06-20 var_Events = oSchedule.Events var_Event = var_Events.Add(DateTime(2012-06-20,09:00:00),DateTime(2012-06-20,11:00:00)) var_Event.UserData = 1234 var_Event.ShortLabel = "<%=%256%><br>Order: <%=%6%>" var_Event.LongLabel = var_Event.ShortLabel var_Event1 = var_Events.Add(DateTime(2012-06-20,11:00:00),DateTime(2012-06-20,13:00:00)) var_Event1.UserData = 1235 var_Event1.ShortLabel = "<%=%256%>, Order: <%=%6%>" var_Event1.LongLabel = var_Event1.ShortLabel
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 OleObject oSchedule,var_Events oSchedule = ole_1.Object oSchedule.Calendar.Selection = 2012-06-20 oSchedule.DefaultEventShortLabel = "<%=%256%><br>Order: <b><%=%6%>" oSchedule.DefaultEventLongLabel = oSchedule.DefaultEventShortLabel var_Events = oSchedule.Events var_Events.Add(DateTime(2012-06-20,09:00:00),DateTime(2012-06-20,11:00:00)).UserData = 1234 var_Events.Add(DateTime(2012-06-20,11:00:00),DateTime(2012-06-20,13:00:00)).UserData = 1235
201	Can you add text with links in the event /begin event AnchorClick(string AnchorID,string Options) - Occurs when an anchor element is clicked./ /* oSchedule = ole_1.Object MessageBox("Information",string( String(AnchorID) )) MessageBox("Information",string( String(Options) )) / /end event AnchorClick*/ OleObject oSchedule,var_Event,var_Event1,var_Events oSchedule = ole_1.Object oSchedule.Calendar.Selection = 2012-06-20 var_Events = oSchedule.Events var_Event = var_Events.Add(DateTime(2012-06-20,09:00:00),DateTime(2012-06-20,11:00:00)) var_Event.ShortLabel = "<a 1><%=%256%></a>" var_Event.LongLabel = var_Event.ShortLabel var_Event1 = var_Events.Add(DateTime(2012-06-20,11:00:00),DateTime(2012-06-20,13:00:00)) var_Event1.ShortLabel = "<a 2><%=%256%></a>" var_Event1.LongLabel = var_Event1.ShortLabel