231:
How can I change the background color of the all day header

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 2048
	.ShowAllDayHeader = .T.
	with .Calendar
		.FirstWeekDay = 1
		.SelectDate({^2012-5-8}) = .T.
		.Select(3)
		.SelectDate({^2012-5-15}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
	.Object.Background(87) = RGB(240,240,240)
	.HeaderAllDayEventHeight = -20
	.Events.Add({^2012-5-8},{^2012-5-17}).AllDayEvent = .T.
	.EndUpdate
endwith
230:
How can I display a single text on a specified date

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-26}
	.Calendar.Selection = "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
	.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
	.NonworkingTimes.Add("value = #05/25/2012#","09:00","10:00",1234)
	.EndUpdate
endwith
229:
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)

with thisform.Schedule1
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
	endwith
	.BeginUpdate
	.Calendar.Selection = {^2013-11-11}
	.Object.DataField(1) = "Start"
	.Object.DataField(2) = "End"
	.Object.DataField(11) = "Extra"
	.DataSource = rs
	DEBUGOUT( .Events.Item(1).KnownProperty(12) )
	.EndUpdate
endwith
228:
Is it possible to display some text/image on the schedule's view background

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-25}
	.NonworkingPatterns.Add(1234,6).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
	.NonworkingPatterns.Add(1235,0).BackgroundExt = "[text=`<fgcolor 808080>just another caption`,align=0x11]"
	.NonworkingTimes.Add("weekday(value) = 5","08:00","08:59:59",1234)
	.NonworkingTimes.Add("weekday(value) = 5","09:00","09:59:59",1235)
	.NonworkingTimes.Add("weekday(value) = 5","10:00","10:59:59",1234)
	.EndUpdate
endwith
227:
How can I display a text on the schedule's view background

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-25}
	.NonworkingPatterns.Add(1234,0).BackgroundExt = "[text=`<fgcolor 808080>just a caption`,align=0x11]"
	.NonworkingTimes.Add("weekday(value) = 5","12:00","13:00",1234)
	.EndUpdate
endwith
226:
Is it possible to change the visual appearance of the edit's context menu

with thisform.Schedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(99) = 0x1000000
endwith
225:
How do I customize the edit's context menu

with thisform.Schedule1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.EditContextMenuItems = "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
endwith
224:
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart

*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( Operation )
		.DayViewHeight = 2016
	endwith

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.SelectDate({^2012-5-20}) = .T.
		.Select(3)
	endwith
	.ScrollBars = 2
	.ShowViewCompact = 3
	.DayViewHeight = 2016
	.AllowMoveSchedule = 0
	.AllowResizeSchedule = 0
	.AllowToggleSchedule = 0
	.AllowExchangePanels = 0
	.AllowMoveTimeScale = 0
	.AllowResizeTimeScale = 0
	.AllowMultiDaysEvent = .F.
	.TimeScales.Item(0).MinorTimeRuler = "00:10"
	.DayStartTime = "00:00"
	.DayEndTime = "24:00"
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.EndUpdate
endwith
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

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.SelectDate({^2012-5-20}) = .T.
		.Select(3)
	endwith
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	.ScrollBars = 2
	.ShowViewCompact = 1
	.DayViewHeight = 2016
	.AllowMoveSchedule = 0
	.AllowResizeSchedule = 0
	.AllowToggleSchedule = 0
	.AllowExchangePanels = 0
	.AllowMoveTimeScale = 0
	.AllowResizeTimeScale = 0
	.AllowMultiDaysEvent = .F.
	.Object.Background(36) = .Background(37)
	.TimeScales.Item(0).MinorTimeRuler = "00:10"
	.DayStartTime = "00:00"
	.DayEndTime = "24:00"
	.EndUpdate
endwith
222:
How can I show a single week, no calendar

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.SelectDate({^2012-5-20}) = .T.
		.Select(3)
	endwith
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	.ScrollBars = 0
	.ShowViewCompact = 1
	.AllowMoveSchedule = 0
	.AllowResizeSchedule = 0
	.AllowToggleSchedule = 0
	.AllowExchangePanels = 0
	.AllowMoveTimeScale = 0
	.AllowResizeTimeScale = 0
	.AllowMultiDaysEvent = .F.
	.Object.Background(36) = .Background(37)
	.EndUpdate
endwith
221:
How do I select the dates within a giving interval only

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.Selection = {^2012-5-1}
		.Selection = "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
220:
How do I display the dates within a giving interval only

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.Selection = {^2012-5-24}
		.MinDate = {^2012-5-13}
		.MaxDate = {^2012-5-26}
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
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

with thisform.Schedule1
	.DayStartTime = "00:00"
	.DayEndTime = "24:00"
	with .TimeScales.Item(0)
		.MajorTimeLabel = "<%hh%>:<%nn%>"
		.Width = 32
	endwith
endwith
218:
How do I show a double frame

with thisform.Schedule1
	.SelectEventStyle = 48
	.Calendar.Selection = {^2001-1-10}
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = ""
	with .Events
		with .Add({^2001-1-10 8:00:00},{^2001-1-10 10:00:00})
			var_s = "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=R"
			var_s = var_s + "GB(0,0,0)]"
			.BodyBackgroundExt = var_s
			.BodyBackgroundExtValue(1,1) = 255
			.BodyBackgroundExtValue(1,2) = "35%"
		endwith
		with .Add({^2001-1-10 10:00:00},{^2001-1-10 12:00:00})
			.BodyBackgroundExt = "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
			.BodyBackgroundExtValue(1,2) = "35%"
			.BodyBackgroundExtValue(2,1) = 65535
		endwith
		with .Add({^2001-1-10 12:00:00},{^2001-1-10 14:00:00})
			.ShowStatus = .F.
			var_s1 = "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="
			var_s1 = var_s1 + "RGB(0,0,0)]"
			.BodyBackgroundExt = var_s1
		endwith
		with .Add({^2001-1-10 14:00:00},{^2001-1-10 16:00:00})
			.ShowStatus = .F.
			var_s2 = "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"
			var_s2 = var_s2 + "=RGB(0,0,0)]"
			.BodyBackgroundExt = var_s2
		endwith
	endwith
endwith
217:
How can I add more colors on the event

with thisform.Schedule1
	.SelectEventStyle = 48
	.Calendar.Selection = {^2001-1-10}
	with .Events
		.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00}).BodyBackgroundExt = "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00}).BodyBackgroundExt = "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
		var_s = "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"
		var_s = var_s + "[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["
		var_s = var_s + "back=RGB(0,0,0)])"
		.Add({^2001-1-10 11:00:00},{^2001-1-10 14:00:00}).BodyBackgroundExt = var_s
	endwith
endwith
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
with thisform.Schedule1
	with .Calendar
		.AlignDate = .F.
		.MinMonthY = 2
		.MaxMonthY = 2
	endwith
endwith
215:
How can I bound the control to a data source

*** Error event - Fired when an internal error occurs. ***
LPARAMETERS Error,Description
	with thisform.Schedule1
		DEBUGOUT( Description )
	endwith

with thisform.Schedule1
	rs = CreateObject("ADOR.Recordset")
	with rs
		.Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3)
	endwith
	.BeginUpdate
	.Calendar.Selection = {^2013-11-11}
	.Object.DataField(1) = "Start"
	.Object.DataField(2) = "End"
	.Object.DataField(11) = "Extra"
	.DataSource = rs
	.EndUpdate
endwith
214:
How can I start drag and drop an event

*** OLEStartDrag event - Occurs when the OLEDrag method is called. ***
LPARAMETERS Data,AllowedEffects
	*** Data.SetData( "your data to be dragged" )
	with thisform.Schedule1
		AllowedEffects = 1
	endwith

with thisform.Schedule1
	.BeginUpdate
	.OLEDropMode = 1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00}).ExtraLabel = "Click the event and wait to start dragging."
	.EndUpdate
endwith
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

with thisform.Schedule1
	.ShowHighlightDate = 4353 && ShowHighlightDateEnum.exHighlightDateCalendarEllipticClip Or ShowHighlightDateEnum.exHighlightDateCalendarGradient Or ShowHighlightDateEnum.exShowHighlightDateCalendar
	.Calendar.Selection = {^2001-1-1}
	.Object.HighlightDate({^2001-1-9}) = 65280
	.Object.HighlightDate({^2001-1-17}) = "65280,255"
	.Object.HighlightDate({^2001-1-25}) = "255,65280,16711680"
endwith
212:
How can I arrange the colors to highlight the date vertically

with thisform.Schedule1
	.ShowHighlightDate = 49 && ShowHighlightDateEnum.exHighlightDateVertical Or ShowHighlightDateEnum.exShowHighlightDateCalendar
	.Calendar.Selection = {^2001-1-1}
	.Object.HighlightDate({^2001-1-9}) = 65280
	.Object.HighlightDate({^2001-1-17}) = "65280,255"
	.Object.HighlightDate({^2001-1-25}) = "255,65280,16711680"
endwith
211:
Is it possible to highlight a date in gradient

with thisform.Schedule1
	.ShowHighlightDate = 257 && ShowHighlightDateEnum.exHighlightDateCalendarGradient Or ShowHighlightDateEnum.exShowHighlightDateCalendar
	.Calendar.Selection = {^2001-1-1}
	.Object.HighlightDate({^2001-1-9}) = 65280
	.Object.HighlightDate({^2001-1-17}) = "65280,255"
	.Object.HighlightDate({^2001-1-25}) = "255,65280,16711680"
endwith
210:
Is it possible to highlight a date in the calendar panel only

with thisform.Schedule1
	.ShowHighlightDate = 1
	.Calendar.Selection = {^2001-1-1}
	.Object.HighlightDate({^2001-1-9}) = 65280
	.Object.HighlightDate({^2001-1-17}) = "65280,255"
	.Object.HighlightDate({^2001-1-25}) = "255,65280,16711680"
endwith
209:
Is it possible to highlight a date in the control

with thisform.Schedule1
	.ShowHighlightDate = 3
	.Calendar.Selection = {^2001-1-25}
	.Object.HighlightDate({^2001-1-9}) = 65280
	.Object.HighlightDate({^2001-1-17}) = "65280,255"
	.Object.HighlightDate({^2001-1-25}) = "255,65280,16711680"
endwith
208:
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible

with thisform.Schedule1
	.BeginUpdate
	.BodyEventBackColor = RGB(240,240,240)
	.ShowGroupingEvents = .T.
	.DisplayGroupingButton = .T.
	.Groups.Add(1,"Group 1").Visible = .T.
	.Groups.Add(2,"Group 2").Visible = .T.
	.Calendar.Selection = {^2012-5-25}
	.NonworkingPatterns.Add(1234,11)
	with .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",1).GroupID = 1
		.Add("weekday(value) = 5","12:00","13:00",1234).GroupID = 2
	endwith
	.Events.Add({^2012-5-25 9:30:00},{^2012-5-25 13:00:00}).GroupID = 1
	.EndUpdate
endwith
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
*** DblClick event - Occurs when the user dblclk the left mouse button over an object. ***
LPARAMETERS Shift,X,Y
	with thisform.Schedule1
		DEBUGOUT( "DblClick " )
		DEBUGOUT( X )
		DEBUGOUT( Y )
	endwith

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00}).StatusColor = RGB(255,0,0)
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.AllowEditEvent = 0
	.AllowToggleSchedule = 0
	.EndUpdate
endwith
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

with thisform.Schedule1
	.DayEndTime = "13:00"
	with .TimeScales.Add("+3:00")
		.AlignLeft = .T.
		.Caption = "EST <b>+03"
	endwith
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.UpdateEventsLabel = "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
205:
Is there a way to add a hyperlink to the event that would run a report with parameters

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.Schedule1
		DEBUGOUT( AnchorID )
		DEBUGOUT( Options )
	endwith

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).LongLabel = "<%=%256%><br><a 1234;option 1>more ...</a>"
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00}).LongLabel = "<%=%256%><br><a 1235;option 2>more ...</a>"
	endwith
endwith
204:
Can I have multiple months in the calendar section

with thisform.Schedule1
	with .Calendar
		.MinMonthY = 2
		.MaxMonthY = 2
	endwith
endwith
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

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-20}
	with .Events
		with .Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00})
			.UserData = 1234
			.ShortLabel = "<%=%256%><br>Order: <%=%6%>"
			.LongLabel = .ShortLabel
		endwith
		with .Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00})
			.UserData = 1235
			.ShortLabel = "<%=%256%>, Order: <%=%6%>"
			.LongLabel = .ShortLabel
		endwith
	endwith
endwith
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

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-20}
	.DefaultEventShortLabel = "<%=%256%><br>Order: <b><%=%6%>"
	.DefaultEventLongLabel = .DefaultEventShortLabel
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).UserData = 1234
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00}).UserData = 1235
	endwith
endwith
201:
Can you add text with links in the event

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.Schedule1
		DEBUGOUT( AnchorID )
		DEBUGOUT( Options )
	endwith

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-20}
	with .Events
		with .Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00})
			.ShortLabel = "<a 1><%=%256%></a>"
			.LongLabel = .ShortLabel
		endwith
		with .Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00})
			.ShortLabel = "<a 2><%=%256%></a>"
			.LongLabel = .ShortLabel
		endwith
	endwith
endwith
200:
Can you add text with links in the event

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.Schedule1
		DEBUGOUT( AnchorID )
		DEBUGOUT( Options )
	endwith

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).ExtraLabel = "<aID1234;OPTIONS-1234>click me</a>"
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00}).ExtraLabel = "<a1235;OPTIONS-1235>click me</a>"
	endwith
endwith
199:
How do you adjust the font type and size of the event (method 2)

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-20}
	.DefaultEventShortLabel = "<font mistral;12><%=%256%>"
	.DefaultEventLongLabel = .DefaultEventShortLabel
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00})
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00})
	endwith
endwith
198:
How do you adjust the font type and size of the event (method 1)

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-20}
	with .Events
		with .Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00})
			.ShortLabel = "<font tahoma;12><%=%256%>"
			.LongLabel = .ShortLabel
		endwith
		with .Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00})
			.ShortLabel = "<fgcolor FF><i><font Mistral;16>your caption</i></font> goes here"
			.LongLabel = .ShortLabel
		endwith
	endwith
endwith
197:
How can I change the shape of the line to be shown when user drag and drop data over the control

with thisform.Schedule1
	.OLEDropMode = 1
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExSchedule\Sample\EBN\dash1.ebn")
	.Object.Background(97) = 0x1000000
endwith
196:
How can I highlight the date-time from cursor when the user drag and drop data over the control
with thisform.Schedule1
	.OLEDropMode = 1
	.Object.Background(97) = RGB(1,0,0)
endwith
195:
How can I start drag and drop events

*** OLEStartDrag event - Occurs when the OLEDrag method is called. ***
LPARAMETERS Data,AllowedEffects
	*** Data.SetData("to be carried by drag and drop")
	with thisform.Schedule1
		AllowedEffects = 1
	endwith

with thisform.Schedule1
	.BeginUpdate
	.AllowMoveEvent = 0
	.AllowCreateEvent = 0
	.OLEDropMode = 1
	.Calendar.Selection = {^2012-6-27}
	with .Events
		.Add({^2012-6-27 11:00:00},{^2012-6-27 12:30:00}).BodyBackColor = RGB(255,0,0)
		.Add({^2012-6-27 11:30:00},{^2012-6-27 13:30:00})
		.Add({^2012-6-27 8:30:00},{^2012-6-27 11:45:00})
	endwith
	.EndUpdate
endwith
194:
Is it possible to show the today date with a different foreground color

with thisform.Schedule1
	var_s = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday("
	var_s = var_s + "date(``))-1)/7))"
	.Calendar.Selection = var_s
	.Object.Background(14) = .BackColor
	.Object.Background(30) = RGB(255,0,0)
endwith
193:
How can I hide the rectangle around the today date

with thisform.Schedule1
	var_s = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday("
	var_s = var_s + "date(``))-1)/7))"
	.Calendar.Selection = var_s
	.Object.Background(14) = .BackColor
endwith
192:
Is it possible to change the appearance of event with no status using the EBN (office theme)

with thisform.Schedule1
	.BeginUpdate
	var_s = "gBFLBCJwBAEHhEJAEGg4BeoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDGEwCQiNQyRDCYYw+GYCJBmKKYcgONYgQLHcgxDI"
	var_s = var_s + "sJw/FyERjjeB4egkaZHRZOUZTZQsBxRAZ2Q4EQAKRpOFY9DTPcr0HR8ZQ+BKNAYkSjQAp2VZUVJFUqDKItVzbBIaRgteA7RrOXpjRjYEBxDKcZyxLqVLToiqcRz7PqbZ"
	var_s = var_s + "rjeioZoyBI+QjgYAUFDeGSTDQ3bwAA4rEqaaZnVbkOQQJTcNy7EKvYRzGA7CgPHI5QjnVR6BjUJztWyIbp3G4rchqH4RaqAF5ZXg9ez/FIaJbnUaMWhXFqOABwPC0XoI"
	var_s = var_s + "GuAJklAeR6H2dAngcEZWnQehzCsd4SmGPJzF2Io1l2fhrgeUpxHOLIAggSRAlIYw6B0ThGFyEJ4CEAwQgSV51BkDYQhCIQJHgGp0gAGBFgCB55nAAC3HCbYEGEOBIHOB"
	var_s = var_s + "ZhggZgagYIRIHYEoFCGMoSCKCJiEiFgjgaYZjjYGIJiKSI2CeBZiAgXgugyYxIgYNINmIaJaDiDpKEiag8g2Y5on4M4GkqGQWEaEZkgkJhKhEZBJC4ToTmSSBqFCFJki"
	var_s = var_s + "kNhUhXQpaFiFJlikbhPhcZZpC4GwqmYSYWGaGZmgmJhkhiZopjYboamGKY+HKGhmkmTh2CqZxZl4coeGeKY6HyHxmigbIuiCaBKBaBohmiCgOgKIhokoNoKgaKJqEaCI"
	var_s = var_s + "imkwwuiUKVyBiJk7m6HIiGGMqbCiSwqhaI4pmqComiOKBqiqNouioKpKj6JQsiqapOiuBoqnqZouiwaxahqOooiuSp+j+BpLEsFpGjGbILCaSoxGwSwuk6M5skgapQjS"
	var_s = var_s + "bIrDaVI15AWpYjSbYrG6T43G2a1Ui2bhLhaZo5m6C4mmSOJuiuNpujqYYrj6co6G6S5OnYLZvFuXpyj4b4rjqfI/G7aA7kCcBMBcBpBnCDAPAKQhwkwN1wjCbBHAiQpx"
	var_s = var_s + "CwVI7kVlJHBiRhwlwbzrHGbB/AeBpLlyFI/kmcoMiMJQvHKLIbCeSpyjyEwwkycxMk8LZMDMLIzC+S4LnyVw+kwYYsn8P5KHOPJoj+TnQl8NJSjMPJnEzmR9CMQpUnOS"
	var_s = var_s + "BvESVZ1g0ZwplWNYtHcXZXDWbYHESWA2C2Fxklkdgdh8aJXmGLYvGaBoME2RxylydxNlcdpcGGPZfHqXp3C2M4fIv3sD3ACMETAnALgJF+PAbgPh7jEHiFsXgNgxjyA4"
	var_s = var_s + "I8EoyR5CcFeCEY48huDPBqMsYYXBvg9GUPMDg/wiBjHoD0D4PRpD0G4NdcY8hoDZEqNcewHRHhlGyPYTofwujaHuB0Z4bQGh3C6O9ng9xvAJEqA0TIfgXiNHGPkDznxx"
	var_s = var_s + "D4E8F8To5x8iQGuKEdI+QvBvFSOuKotxYjpGGGYN4vR3j8A+A8Yo8R9jeHeMkeY/QPgsBoGcPonw3jdHuP4D4jxsgNH8F8V47R7D+E+L8eo+A/g/G+PwGYnx1j/D+FAA"
	var_s = var_s + "wAQfhoASAEL4lADiBAePEeowBcANAGGAOgCQhhDCMAoIIWAWgFHAMQDIghEBuAaEEbAPQChgHIB8QgUAxAQGEDgJgNAwgsBOIQJAbUpCoBoIoCAtAJiFGgMEBQwwqBjA"
	var_s = var_s + "WCEYAcwigoCgIAQBAQ=="
	.VisualAppearance.Add(1,var_s)
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	.Calendar.Selection = {^2012-6-27}
	.BodyEventBackColor = 0x1000000
	.ShowStatusEvent = .F.
	.Object.DefaultEventPadding(-1) = 3
	.Object.Background(75) = 0x1000000
	.Object.Background(79) = 0x1000000
	with .Events
		.Add({^2012-6-27 11:00:00},{^2012-6-27 12:30:00}).BodyBackColor = RGB(255,0,0)
		.Add({^2012-6-27 11:30:00},{^2012-6-27 13:30:00}).BodyBackColor = RGB(0,255,0)
	endwith
	.EndUpdate
endwith
191:
Is it possible to change the appearance of event's status using the EBN (office theme)

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAEGg4BKYCg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMQ0AJCIzDJCIZBkHCPRjASQZUhmHIDTbIEBxfI"
		var_s = var_s + "MIxLE9IMwxfA8ax1GifI6hGSYDa0HAkABTVQRLL4aSDK6NaYmSL5DhkBokUpGKTpOhgATHMqqIzGURZNquEQ1DBbEI3BaUaw/CKRLAoahqVpqK4tS7MNa3XKkcxzD6eI"
		var_s = var_s + "ypGBKAgmQoJDLRGIxTiYACxPQACzsEAKapKUZPRZVNYQJQlNRDLiEcrgOr4DxqO4aWbZViaDZVawlNy5bhtfaqGrfKYJYLrWCTbh0Tz9KzIJJwHbcKxjKrDczjEoSVwi"
		var_s = var_s + "AmSgcGmIxaggHBHFmFpoHEJwbg8FpammO5bEUaxbm6ZwDH+YI7EIQQQhKAYkkYdA6hyDI4ngGRIA8AwQgSV51BkDYQhCIQJHeHAkCAGBFgGR55m8CQBkONkYCEEgxGeB"
		var_s = var_s + "ZJHQDgTgWFhFgyf4HmICByBqBRhmiAgmD+YggAIHIJmKSIhGMQJijiNgmgoYwYkoH4NCIWJaC6BhiiiZg2g4CR4moN4LmOWQGEKEAkCibgwg+vwiEeEQjFifhQhMIpZD"
		var_s = var_s + "oOoViUKJyFGExlDkGhXhcZIZGIXIWiUSIyGKFRmAkPhkheJYZC4bIYmaaYGGmF5mjmSh1hqJwZmIRYdieGZSH2GxnjmahbhoJx5nqAYhigOYaHOIAohiHhniKKBaDIZY"
		var_s = var_s + "jiiOZCgeJImnoEh/iWKJYk6FYmikehyhOJ4pBqCoZiQKY6gKHYIGmeoiiGKoqDqMoliwKh6FKM4riqOQOjeLYqhqYoxi6K5anKL4visWoSkGMYsDsCo5hKLIbCKS4jmy"
		var_s = var_s + "Kp+kyM5qlsRpFiyLB7GKTY2i0Spuk6NItAsfpXjALY7hKXYIk6Wh2CmBphgqOgTjuYhIHachAlAECAg="
		.Add(1,var_s)
		.Add(2,"CP:1 0 0 1 0")
		var_s1 = "gBFLBCJwBAEHhEJAEGg4BGoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpASLoJDCH4mSTHYxyHIMWwtDiBZgkCA4fiGEYnThKM5SdK"
		var_s1 = var_s1 + "sXABG6NErSdDAAoKRIVTjAcsVTicAo+R7TcYgLBNAQHKQAHZDQRKZpuFoRRKJNgDLYUEhqGCyYDseyZNj2GZYRDPVqzWAFFzrFSqLilaYpSh+bpfSRSVI3PakQz+LCNC"
		var_s1 = var_s1 + "zwEAKYoaRZDRZgdzUbItMYNBKsMQgO6QAwqNKYQjWVaaFgEYzJMa2LTiHSqQhrGqMQjnV5ZPgVzZKZZGVQ1LBOOZfEJ2XacSqeCyWEqnRryFpWRpfGXiX7EOY7HaePwD"
		var_s1 = var_s1 + "AQQhKAaEwZlCahyDKDBjm4a5JAiG5jgyDYhCKDZukYSAYgsLAzh0RBlBqBAkA4Ox+n+H5AAGDJWDWH5jFmdBQl8Z5yAGAZfngDZ6H9HIiACAhUCgMgPgSYAYA4EoDiEW"
		var_s1 = var_s1 + "BGBiAxhAIXAADITRzGIIA2AyAxYleCJhGiFgnggYg4iIEYImKKIqC6B4iliMg2DYIRolYIoLA2ExmDmDwNhiNg9g+Y44goPYMmGeJeEKD4hBMMJbDaTIYnYTg2mUOBaF"
		var_s1 = var_s1 + "OFZknkVhNhYZZJFIT4ViWWRElmFohmkYhehQJA4ESTg3A2WYuG2GwmmgWhuhyZwJjIcodGaeZmGANpnEMdhkAAJ5ZE4cYaieCZ2HeHhoGoEoIh4IRjESXg3iialFiQaJ"
		var_s1 = var_s1 + "aE6Fokg2ahWhiJBpEgRociWaZYHqH4mmiehqiOKBAAqDJUDgTgaiyYYFiqapGiyK4rAqTosiQa14jKKxrGqPo6i8a46laPIwmuGB6juMBrnsEo9jCLB6jKTIwCyawmk2"
		var_s1 = var_s1 + "L4sGsQpDjObIrFAAA2E4U4WlyN4tlsfgWjebhLgaXY4waApqjoLorhSZY7C6a4KBGPBuhuQppjyIZrlKa48m8e5WBENwOHOIyNDAHAOBaQJwgwFwBgWDZziSaZCHAQ4j"
		var_s1 = var_s1 + "AeQoxBwGp/kUMQME8FZFDGLBDBaB4xmwcwXkacQcDMDpDE6HIjCiSYyhyHwuDocpMisL5MHKfIuBGTIylyZgWDgToziyYg7A6TJ8myTwO7KPZRDQLQTEYOp0g0AxKgQd"
		var_s1 = var_s1 + "BNDcQ5PHSPRHEeVQ1A0XxMlaNRdGsT4Hg4Q44m2WB2D2CxkgWNhNicZpYjaDYvGWW52l2PxqDsdz+meBBOGOIEcAdAPAnEcPIPAbx4C2H+MEd4XAHDxGEPEDgBh6jBDi"
		var_s1 = var_s1 + "DwEI4QFhvEOI8EYyR3i8EMPsZQcguCsBGMwOQMApj5GYEAPg8RtAADoDAFY9xpiAAQAggIA="
		.Add(4,var_s1)
	endwith
	.Calendar.Selection = {^2012-6-27}
	.StatusEventColor = 0x2000000
	.BodyEventBackColor = 0x4000000
	.Object.Background(75) = 0x1000000
	.Object.Background(79) = 0x1000000
	.StatusEventSize = 6
	.Object.DefaultEventPadding(-1) = 2
	with .Events
		.Add({^2012-6-27 11:00:00},{^2012-6-27 12:30:00}).BodyBackColor = RGB(255,0,0)
		with .Add({^2012-6-27 11:30:00},{^2012-6-27 13:30:00})
			.BodyBackColor = RGB(0,255,0)
			.StatusColor = RGB(0,0,128)
			.ExtraLabel = "Point"
		endwith
		with .Add({^2012-6-27 8:30:00},{^2012-6-27 11:45:00})
			.StatusColor = RGB(255,0,255)
		endwith
	endwith
	.EndUpdate
endwith
190:
Does your control support subscript or superscript, in HTML captions

with thisform.Schedule1
	.BodyEventBackColor = RGB(240,240,240)
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).ExtraLabel = "<sha ;;0>Event <b><font ;6><off 4>1"
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00}).ExtraLabel = "<sha ;;0>Event <b><font ;6><off 4>2"
		.Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00}).ExtraLabel = "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
	endwith
endwith
189:
How can I hide the scheduler part of the control, so I can use the calendar panel only

with thisform.Schedule1
	.OnResizeControl = 257 && OnResizeControlEnum.exHideSplitter Or OnResizeControlEnum.exResizePanelRight
endwith
188:
I see how I can specify a non-working day pattern for weekends, but how can I specify non-working days for holidays

with thisform.Schedule1
	with .Calendar
		.SelectDate({^2012-5-28}) = .T.
		.Select(3)
		.SelectDate({^2012-6-5}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
		.SelectDate({^2012-6-12}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
	with .NonworkingTimes
		.Add("month(value) = 5","00:00","24:00",-1)
		.Add("value in (#6/5/2012#,#6/7/2012#)","00:00","24:00",-1)
	endwith
endwith
187:
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

with thisform.Schedule1
	.BeginUpdate
	.ScrollBars = 15
	.Object.ScrollPartVisible(0,65536) = .T.
	.Object.ScrollPartVisible(1,65536) = .T.
	.Object.ScrollPartVisible(2,65536) = .T. && 0x2
	.ScrollWidth = 4
	.Object.Background(276) = RGB(240,240,240)
	.Object.Background(260) = RGB(128,128,128)
	.ScrollHeight = 4
	.Object.Background(404) = .Background(276)
	.Object.Background(388) = .Background(260)
	.Object.Background(511) = .Background(276)
	.EndUpdate
endwith
186:
How can I show contiguously the days, in a single row

with thisform.Schedule1
	with .Calendar
		.SelectDate({^2012-5-20}) = .T.
		.Select(3)
		.SelectDate({^2012-5-27}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
	.ShowViewCompact = 1
endwith
185:
How can I show contiguously the days

with thisform.Schedule1
	with .Calendar
		.SelectDate({^2012-5-20}) = .T.
		.Select(3)
		.SelectDate({^2012-5-27}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
	.ShowViewCompact = -1
endwith
184:
How can I display the time in european format with no usage of AM/PM

with thisform.Schedule1
	with .TimeScales.Item(0)
		.MajorTimeLabel = "<%hh%>:<%nn%>"
		.Width = 32
	endwith
	with .Calendar
		.Selection = {^2001-6-11}
		.ShortTimeFormat = "<%h%>:<%nn%>"
	endwith
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:15:00})
		.Add({^2001-6-11 10:30:00},{^2001-6-11 14:30:00})
	endwith
endwith
183:
Is it possible to zoom the schedule component using a key and scrolling the wheel (not pressing it and moving the mouse)
with thisform.Schedule1
	.AllowResizeSchedule = 19 && AllowKeysEnum.exCTRLKey Or AllowKeysEnum.exMiddleClick
	.AllowMoveSchedule = 3
endwith
182:
How can I change the format of the date being displayed in the calendar panel

with thisform.Schedule1
	.Calendar.HeaderDayLabel = "<sha><%mmmm%></sha> <sha><fgcolor=FF0000><%yyyy%></fgcolor></sha>"
endwith
181:
How can I display the Year in Thai, Buddhist, Korean format

with thisform.Schedule1
	with .Calendar
		.FirstWeekDay = .LocFirstWeekDay && .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
		.HeaderDayLabel = "<%mmmm%> <fgcolor=FF0000><%loc_yyyy%>"
	endwith
	var_s = "<|><%dddd%>, <%mmmm%> <%d%>, <fgcolor=FF0000><%loc_yyyy%><|><%dddd%>,<%mmmm%> <%d%>,<fgcolor=FF0000><%loc_yyyy%><|><%dddd%>, <%m"
	var_s = var_s + "mmm%> <%d%>,`<fgcolor=FF0000><%loc_yy%><|><%dddd%>, <%mmmm%> <%d%><|><%dddd%>, <%m3%> <%d%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%"
	var_s = var_s + "><|><%d2%><|><%d1%>"
	.HeaderDayLongLabel = var_s
endwith
180:
May I specify a fixed width for my dates, so user can not resize it
with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 3585 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exResizePanelRight
	.AllowResizeSchedule = 0
	.AllowMoveSchedule = 3
	.ShowViewCompact = -1
	.DayViewWidth = 96
	.DayViewHeight = 256
	.EndUpdate
endwith
179:
How can I change the format of date being displayed on the header
with thisform.Schedule1
	var_s = "<|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>,`<%yy%><|><%dddd%>, <%d%> "
	var_s = var_s + "<%mmmm%><|><%dddd%>, <%d%> <%m3%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%><|><%d2%><|><%d1%>"
	.HeaderDayLongLabel = var_s
endwith
178:
Is there any notifications for exchanging the panels at runtime
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "End exLayoutExchangePanels(16)" )
		DEBUGOUT( Operation )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Start exLayoutExchangePanels(16)" )
		DEBUGOUT( Operation )
	endwith

with thisform.Schedule1
	.AllowExchangePanels = 1
	.AllowCreateEvent = 0
endwith
177:
How can I handle the All-Day events only

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 3072 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit
	.ShowAllDayHeader = .T.
	with .Calendar
		.SelectDate({^2012-5-8}) = .T.
		.Select(3)
		.SelectDate({^2012-5-15}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
	.TimeScales.Item(0).Visible = .F.
	.Events.Add({^2012-5-8},{^2012-5-17}).AllDayEvent = .T.
	.EndUpdate
endwith
176:
Is it possible to show the All-Day events with EBN including the next/prev signs (2)

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 3072 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit
	.ShowAllDayHeader = .T.
	with .Calendar
		.SelectDate({^2012-5-8}) = .T.
		.Select(3)
		.SelectDate({^2012-5-15}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
	var_s = "gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJEi"
	var_s = var_s + "SJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhIE"
	var_s = var_s + "64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHxH"
	var_s = var_s + "jmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgUY"
	var_s = var_s + "YIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4j"
	var_s = var_s + "YQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIHY"
	var_s = var_s + "kmQFAEIC"
	.VisualAppearance.Add(1,var_s)
	var_s1 = "gBFLBCJwBAEHhEJAEGg4BVMIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEh"
	var_s1 = var_s1 + "yKo+CTIAySXJsdw3IyNAIhEB4fgmM4DP7UIAVC78aRABCESgNEwzULUchlDDICJQSQRGzHDSKYDFCCaKgOTI6kgicpJUt6PBtaovKoWOZBcJ3Xjed6vBgeASpQbEL6wD"
	var_s1 = var_s1 + "CbfrjB6KY5eeDXXSkAkB"
	.VisualAppearance.Add(2,var_s1)
	var_s2 = "gBFLBCJwBAEHhEJAEGg4BVUIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEh"
	var_s2 = var_s2 + "yKo+CTIAySXJsZxpHKaAIhEB4fgmRgAP7UNQVFLkEgRBIoDRMM5DVLIZQxSAiUIkERtRQ1CqBRQhGioDoyOgABhFZSUPKlIztO45DwbO56RrlWzONA8FzXdgDYYLQjAc"
	var_s2 = var_s2 + "JwXA7awrAZ8P7iGBZBbtdQCgIA=="
	.VisualAppearance.Add(3,var_s2)
	.BodyEventBackColor = 0x1000000
	.Object.Background(86) = 0x2000000
	.Object.Background(85) = 0x3000000
	.HeaderAllDayEventHeight = -14
	.Events.Add({^2012-5-8},{^2012-5-17}).AllDayEvent = .T.
	.EndUpdate
endwith
175:
How can I select programatically two weeks

with thisform.Schedule1
	with .Calendar
		.SelectDate({^2012-5-8}) = .T.
		.Select(3)
		.SelectDate({^2012-5-15}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
endwith
174:
Is it possible to show the All-Day events with EBN including the next/prev signs (1)

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 2048
	.ShowAllDayHeader = .T.
	with .Calendar
		.FirstWeekDay = 1
		.SelectDate({^2012-5-8}) = .T.
		.Select(3)
		.SelectDate({^2012-5-15}) = .F.
		.Select(19) && SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	endwith
	var_s = "gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJEi"
	var_s = var_s + "SJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhIE"
	var_s = var_s + "64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHxH"
	var_s = var_s + "jmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgUY"
	var_s = var_s + "YIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4j"
	var_s = var_s + "YQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIHY"
	var_s = var_s + "kmQFAEIC"
	.VisualAppearance.Add(1,var_s)
	var_s1 = "gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEh"
	var_s1 = var_s1 + "yKo+CTIA4SXJsdxpI4EIRCSL6MgNf5PABTb7zTSgYANF6WRZgWgpTjcMJHTpYFIwHRdQwHLqoagqKZJAqMABQGiYZyHKcwMYgBZXJBEbbMNBtBIUIRtaxZBBiFzgUZYE"
	var_s1 = var_s1 + "BnEbDN4YbapMhyLI2OZBcCOJQ4SCoW4GJ49J7KXgYZiHOLcfjcLovLq5fiOQ5CV5ZXROM6sQyzIKWaCzLL5PjKHInWrPNa3DJtDyXJzUNY9GScG6HBLhWB0czzXIuO4d"
	var_s1 = var_s1 + "jqXg4jUOo9j8N4Zk6YoeA+bZKhcV49kyaAllODhPC8d5bi+WJ6H0fhvHcExIHgQB4nuHpOj4Y4zioeQfDePZRGcHI3lGIh9h4JwhkodQckecY9G+WpHDmUAdAeNwCBEf"
	var_s1 = var_s1 + "RcGaIZ/G2D52gWfR0iGRhFg8Y5iBYTQBICA="
	.VisualAppearance.Add(2,var_s1)
	var_s2 = "gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEh"
	var_s2 = var_s2 + "yKo+CTIA4SXJsZxpI6EQQhEJIfo2Az/VAAFQPfLNKhgAyXZZFWBaCoaEgwUhVMhUVAdGR1BKvKjqKoZcomCRQGiYZyHKcwMYgBZRRBEbbMNBtBIULasWjQYhdYI7WDTd"
	var_s2 = var_s2 + "R4XhmGDkPBtcbbPDcUpBBSLOAjSSOExzILhSrFVyXVzTXL5XDGMg7Wa5foFIDmPRtVbWNydLyvICOJK2eZOExrHrhWrPMZaRpnUyXJ6pcBvfA4Zi7QZlWjPOR2aoNCZb"
	var_s2 = var_s2 + "juXpyjsPIahmYJ/keVR0HwPYsnIXQ4mSZ50jwXIfC+HxnmmcZ2HuCAOn+P43lSUZ1neXxeF4L4bmgeoeCcCZEHcXxIAGLBlBuBpphsdgfGaNB0B6WwXjoARrE+dxVkYa"
	var_s2 = var_s2 + "geAgHgUD+XJWm2U4GliNhJhIQBAICA=="
	.VisualAppearance.Add(3,var_s2)
	.BodyEventBackColor = 0x1000000
	.Object.Background(86) = 0x2000000
	.Object.Background(85) = 0x3000000
	.HeaderAllDayEventHeight = -20
	.Events.Add({^2012-5-8},{^2012-5-17}).AllDayEvent = .T.
	.EndUpdate
endwith
173:
Can I make it zoom in using CTRL-MouseWheel instead of using the middle button
with thisform.Schedule1
	.AllowResizeSchedule = 19 && AllowKeysEnum.exCTRLKey Or AllowKeysEnum.exMiddleClick
endwith
172:
It is by default not possible, to simply scroll the component with the mouse wheel. How do I make it so
with thisform.Schedule1
	.AllowMoveSchedule = 3
endwith
171:
Can I get and set the width of the time bar
with thisform.Schedule1
	.TimeScales.Item(0).Width = 48
endwith
170:
How do I select the current year

with thisform.Schedule1
	.ShowViewCompact = -1
	.OnResizeControl = 2048
	.Calendar.Select(1)
endwith
169:
How do I select the current week day

with thisform.Schedule1
	.ShowViewCompact = -1
	.Calendar.Select(4)
endwith
168:
How do I select the current week

with thisform.Schedule1
	.ShowViewCompact = -1
	.Calendar.Select(3)
endwith
167:
How can I restore the layout of the panels, when user changes the width and the alignment of the panels
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "End Operation " )
		DEBUGOUT( Operation )
		DEBUGOUT( "Layout " )
		DEBUGOUT( .OnResizeControl )
		DEBUGOUT( "PaneWidth(False)" )
		DEBUGOUT( .PaneWidth(.F.) )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Start Operation " )
		DEBUGOUT( Operation )
		DEBUGOUT( "Layout " )
		DEBUGOUT( .OnResizeControl )
		DEBUGOUT( "PaneWidth(False)" )
		DEBUGOUT( .PaneWidth(.F.) )
	endwith

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Schedule1
		DEBUGOUT( "Layout " )
		DEBUGOUT( .OnResizeControl )
		DEBUGOUT( "PaneWidth(False)" )
		DEBUGOUT( .PaneWidth(.F.) )
	endwith


166:
Is it possibly to set the column width of the group/person using the api

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2001-1-10}
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Groups
		with .Add(1,"Group 1")
			.Title = "First"
			.Visible = .T.
		endwith
		with .Add(2,"Group 2")
			.Title = "Second"
			.Visible = .T.
		endwith
	endwith
	with .Events
		.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00}).GroupID = 1
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00}).GroupID = 2
	endwith
	.Groups.Item(1).Width = 24
	.EndUpdate
endwith
165:
When viewing the schedule by week or month and the month ends during the week (July 31, Tuesday -> August 1, Wednesday), the days continue down as a new week 'row'. When there is a change in month, is it possible to still show the full week without that break (compact)

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 2048
	with .Calendar
		.Selection = {^2012-5-23}
		.Selection = "month(value) in (5,6)"
	endwith
	.ShowViewCompact = -1
	.EndUpdate
endwith
164:
I want to change the default event tooltip. How can I do that

with thisform.Schedule1
	var_s = "<b>BEGIN:</b> <%=%1%><br><b>END:</b>: <%=%2%><br><b>LENGTH:</b> <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') :"
	var_s = var_s + " '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + (("
	var_s = var_s + "1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%>"
	.DefaultEventTooltip = var_s
endwith
163:
How can I select the entire week for a specified date

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = {^2012-3-5}
		.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#3/5/2012#)-1)/7))"
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
	.EndUpdate
endwith
162:
I have noticed that I can drag bars from All-Day header to time-zone and reverse. Is it possible to prevent that

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 2048
	.ShowAllDayHeader = .T.
	.AllowUpdateAllDayFlag = .F.
	.Calendar.Selection = {^2012-5-23}
	.Calendar.Selection = "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).ExtraLabel = "<sha>dentist"
		.Add({^2012-5-24},{^2012-5-25}).AllDayEvent = .T.
		.Add({^2012-5-23},{^2012-5-24}).AllDayEvent = .T.
	endwith
	.SelectEventStyle = -1
	.ShowSelectEvent = .F.
	.EndUpdate
endwith
161:
When an all-day event stretches over multiple days (ex. Monday thru Friday), is it possible to have that display as a continuous bar across those days instead of separate bars on each day

with thisform.Schedule1
	.BeginUpdate
	.OnResizeControl = 2048
	.ShowAllDayHeader = .T.
	.Calendar.Selection = {^2012-5-23}
	.Calendar.Selection = "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).ExtraLabel = "<sha>dentist"
		.Add({^2012-5-24},{^2012-5-25}).AllDayEvent = .T.
		.Add({^2012-5-23},{^2012-5-24}).AllDayEvent = .T.
	endwith
	.SelectEventStyle = -1
	.ShowSelectEvent = .F.
	.EndUpdate
endwith
160:
If I double click to a scheduled event and enter text, how can I read this newly entered text (i.e. what is its corresponding field)

*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( .EventFromPoint(-1,-1) )
	endwith

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).ExtraLabel = "editable"
	endwith
	.SelectEventStyle = -1
	.ShowSelectEvent = .F.
	.EndUpdate
endwith
159:
Is it possible to show the date's header with a shadow

with thisform.Schedule1
	.HeaderDayLongLabel = "<sha><%dddd%>, <%mmmm%> <%d%>, <%yyyy%>"
	.Calendar.OnSelectDate = 1
	.AllowResizeSchedule = 0
endwith
158:
We need to highlight a day for example no booking/disabling for that day, is the timezone good choice (method 3)

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-6-27}
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	endwith
	.AllowMultiDaysEvent = .F.
	.NonworkingPatterns.Add(1,1).Pattern.Color = RGB(240,240,240)
	.NonworkingTimes.Add("value in (#6/27/2012#)","00:00","24:00",1)
	.ShowNonworkingTime = 1
	.Calendar.DisableZoneFormat = "value in (#6/27/2012#)"
endwith
157:
We need to highlight a day for example no booking for that day, is the timezone good choice (method 2)

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-6-27}
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	endwith
	.NonworkingPatterns.Add(1,1).Pattern.Color = RGB(240,240,240)
	.NonworkingTimes.Add("value in (#6/27/2012#)","00:00","24:00",1)
	.ShowNonworkingTime = 1
endwith
156:
We need to highlight a day for example no booking for that day, is the timezone good choice (method 1)

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-6-27}
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	endwith
	with .MarkZones.Add("zone",{^2012-6-27},{^2012-6-28})
		.BackColor = RGB(240,240,240)
		.Pattern.Type = 0
	endwith
	.ShowMarkZone = 1
endwith
155:
Is is possible to change the background color for a specific day

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-6-27}
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	endwith
	with .MarkZones.Add("zone",{^2012-6-27},{^2012-6-28})
		.BackColor = RGB(240,240,240)
		.Pattern.Type = 0
	endwith
	.ShowMarkZone = 1
endwith
154:
I want to know how can I call a user define form when editing a time slot
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "End exScheduleResize(5)" )
		DEBUGOUT( Operation )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Start exScheduleResize(5)" )
		DEBUGOUT( Operation )
	endwith

with thisform.Schedule1
	with .Calendar
		.SingleSel = .T.
		.OnSelectDate = 1
	endwith
	.ClipToSel = .T.
	.AllowMoveSchedule = 0
	.AllowMoveGroup = 0
	.AllowResizeSchedule = 1
	.AllowCreateEvent = 0
endwith
153:
Can we lock the scroll bars so that it only scrolls within the selected date

with thisform.Schedule1
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
		.SingleSel = .T.
		.OnSelectDate = 1
	endwith
	.ClipToSel = .T.
	.DayViewWidth = -1
	.DayViewHeight = 512
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:00:00})
		.Add({^2001-6-12 10:00:00},{^2001-6-12 13:00:00})
	endwith
endwith
152:
Is it possible to specify the dates to be printed to a single page

with thisform.Schedule1
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	endwith
	.DayViewWidth = 116
	.DayViewHeight = 116
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:00:00})
		.Add({^2001-6-12 10:00:00},{^2001-6-12 13:00:00})
	endwith
	with CreateObject("Exontrol.Print")
		.Options = "Range=month(value)=6;FitToPage=On"
		.PrintExt = thisform.Schedule1.Object
		.Preview
	endwith
endwith
151:
Is it possible to specify the dates to be printed

with thisform.Schedule1
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	endwith
	.DayViewWidth = 116
	.DayViewHeight = 116
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:00:00})
		.Add({^2001-6-12 10:00:00},{^2001-6-12 13:00:00})
	endwith
	with CreateObject("Exontrol.Print")
		.Options = "Range=month(value)=6"
		.PrintExt = thisform.Schedule1.Object
		.Preview
	endwith
endwith
150:
Does your control support Fit-To-Page, while printing

with thisform.Schedule1
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	endwith
	.DayViewWidth = 512
	.DayViewHeight = 512
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:00:00})
		.Add({^2001-6-12 10:00:00},{^2001-6-12 13:00:00})
	endwith
	with CreateObject("Exontrol.Print")
		.Options = "FitToPage=On"
		.PrintExt = thisform.Schedule1.Object
		.Preview
	endwith
endwith
149:
Does your control support Print and Print-Preview

with thisform.Schedule1
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	endwith
	.DayViewWidth = 512
	.DayViewHeight = 512
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:00:00})
		.Add({^2001-6-12 10:00:00},{^2001-6-12 13:00:00})
	endwith
	with CreateObject("Exontrol.Print")
		.PrintExt = thisform.Schedule1.Object
		.Preview
	endwith
endwith
148:
How can I specify the height (time slot) of the day to be larger
with thisform.Schedule1
	.BeginUpdate
	.ClipToSel = .T.
	.DayViewHeight = 1024
	.DayViewWidth = -1
	.TimeScales.Item(0).MinorTimeRuler = "00:05"
	.EndUpdate
endwith
147:
How can I prevent resizing the schedule view, when a new date is selected
with thisform.Schedule1
	with .Calendar
		.OnSelectDate = 1
		.Selection = {^2001-1-10}
		.SingleSel = .T.
	endwith
	.DayViewWidth = 48
endwith
146:
How do I get notified once the user moves an event
*** UpdateEvent event - Notifies your application once the event changes the starting or ending margins. ***
LPARAMETERS Ev
	with thisform.Schedule1
		DEBUGOUT( "UpdateEvent" )
		DEBUGOUT( Ev )
	endwith

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		with .Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00})
			.Editable = 1
			.Caption = "your caption"
		endwith
		with .Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
			.Editable = 1
			.Caption = "other caption"
		endwith
	endwith
endwith
145:
Can You give me an example for the event handler when a user double clicks an appointment
*** DblClick event - Occurs when the user dblclk the left mouse button over an object. ***
LPARAMETERS Shift,X,Y
	with thisform.Schedule1
		e = .EventFromPoint(-1,-1)
		DEBUGOUT( "Start:" )
		DEBUGOUT( e )
		DEBUGOUT( "End:" )
		DEBUGOUT( e )
	endwith

with thisform.Schedule1
	.AllowEditEvent = 0
	.AllowToggleSchedule = 0
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
	endwith
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:00:00})
		.Add({^2001-6-12 10:00:00},{^2001-6-12 13:00:00})
	endwith
endwith
144:
Nothing is shown in the schedule view, if I use the Selection property. What am I doing wrong

with thisform.Schedule1
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
	endwith
endwith
143:
Is it possible to lock a date/day, so no events can be created, moved, and so on

with thisform.Schedule1
	with .Calendar
		.Selection = {^2001-6-1}
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
		.DisableZoneFormat = "value = #6/12/2001#"
	endwith
	with .Events
		.Add({^2001-6-11 10:00:00},{^2001-6-11 13:00:00})
		.Add({^2001-6-12 10:00:00},{^2001-6-12 13:00:00})
	endwith
endwith
142:
How can I show the grid lines for minor and major rules in the schedule view

with thisform.Schedule1
	.Object.Background(54) = RGB(0,0,0)
	.Object.Background(53) = RGB(192,192,192)
	.Object.Background(50) = RGB(0,0,0)
	.Object.Background(49) = RGB(192,192,192)
	.Object.Background(56) = RGB(3,0,0)
	.Object.Background(52) = RGB(3,0,0)
endwith
141:
Is it possible to show the grid lines for minor rulers too in the schedule view

with thisform.Schedule1
	.Object.Background(56) = RGB(3,0,0)
endwith
140:
How can I change the style and colors to show the grid lines

with thisform.Schedule1
	.Object.Background(54) = RGB(48,0,0)
	.Object.Background(53) = RGB(255,0,0)
	.Object.Background(50) = RGB(3,0,0)
	.Object.Background(49) = RGB(255,0,0)
endwith
139:
How can I show a solid line rather than dot lines in the schedule view

with thisform.Schedule1
	.Object.Background(54) = RGB(48,0,0)
	.Object.Background(53) = RGB(0,0,0)
endwith
138:
Is it possible to hide or change the lines in the schedule view

with thisform.Schedule1
	.Object.Background(54) = -1
endwith
137:
Is there a possiblity to lock an event, so it can't be moved or edited

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-27}
	with .Events
		with .Add({^2012-6-27 10:00:00},{^2012-6-27 11:30:00})
			.BodyPattern.Type = 6
			.Movable = .F.
			.Resizable = 0
			.Selectable = .F.
			.Editable = 0
			.ExtraLabel = "locked"
		endwith
		.Add({^2012-6-27 13:30:00},{^2012-6-27 15:30:00})
	endwith
endwith
136:
Is it possible to load a PNG file on the control's background ( /com only )

with thisform.Schedule1
	.Template = "Picture = LoadPicture(`c:\exontrol\images\card.png`)"
endwith
135:
What is the Event.UserData property used for

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-27}
	var_s = "Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : "
	var_s = var_s + "'' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)"
	var_s = var_s + "*60)) != 0 ? =:1 + ' min(s)' : '')%><b><%=(len(%6) ? `<br>UserData: `+ %6 : ``)%></b>"
	.DefaultEventTooltip = var_s
	with .Events
		.Add({^2012-6-27 11:00:00},{^2012-6-27 12:30:00}).UserData = "Any extra data associated with the event"
		.Add({^2012-6-27 11:30:00},{^2012-6-27 13:30:00})
	endwith
endwith
134:
Is there also an event for when a user selects another month in the date-picker control
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "End exCalendarDateChange(3)" )
		DEBUGOUT( Operation )
		DEBUGOUT( "Currently browsing date:" )
		DEBUGOUT( .Calendar.Date )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Start exCalendarDateChange(3)" )
		DEBUGOUT( Operation )
		DEBUGOUT( "Previously browsing date:" )
		DEBUGOUT( .Calendar.Date )
	endwith


133:
How can I display the time-zone behind or back (method 2)

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-27}
	with .MarkZones.Add("zone",{^2012-6-27 10:30:00},{^2012-6-27 13:00:00})
		.LongLabel = "zone"
		with .Pattern
			.Type = 6
			.Color = RGB(40,40,40)
		endwith
	endwith
	.ShowMarkZone = 3
	.Events.Add({^2012-6-27 11:00:00},{^2012-6-27 12:30:00})
endwith
132:
How can I display the time-zone behind or back (method 1)

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-27}
	.MarkZones.Add("zone",{^2012-6-27 10:30:00},{^2012-6-27 13:00:00}).LongLabel = "zone"
	.ShowMarkZone = 1
	.Events.Add({^2012-6-27 11:00:00},{^2012-6-27 12:30:00})
endwith
131:
How can I add a time-zone

with thisform.Schedule1
	.Calendar.Selection = {^2012-6-27}
	.MarkZones.Add("zone",{^2012-6-27 10:30:00},{^2012-6-27 13:00:00}).LongLabel = "zone"
endwith
130:
How can I specify a larger height for the timer, or it is possible to make it bigger

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .VisualAppearance
		var_s = "gBFLBCJwBAEHhEJAEGg4BC0MQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDGKUEwsACEIrjKCYVgOHYYQjGMZwHIUIhkGoSZKlCIRVDCKYJSzLcZAFIMRwSBiEQTmaa4Wi"
		var_s = var_s + "KIgIQiUBomGahajkMoYZCYKKSCI2S4aDZCIoTPLMagxC5GJCnSJnITJCpdV7XVgWHYVSzDM6yEScZTkFqubZsW5cNwXHZ9azkQpyFRPe6bbrqfJ/X5gN64HgBfrEUo8c"
		var_s = var_s + "LxHCMKw3DKPYrkOLHS4CQjnSrLcqzDK8ax3GafZwcbqKWbmR5LUjTNR1DS9Hy3Kh8O4sSDbDqeZZpW7bNx2Xa9YQZcS5JBvfA8BwXC6JY7heR4ZIHTT9GbNc7zXQdHxL"
		var_s = var_s + "iuUZrnUEwvFYIoDjeXZuHePA+A8Hx/kuYhQD2WQqg8T4vlWbJ3nuPg+l+H5BFEASAg=="
		.Add(1,var_s)
		.Add(2,"CP:1 0 -3 0 3")
	endwith
	with .MarkTimes.Add("timer1",{^2012-5-24 11:15:00})
		.BackColor = 0x1000000
		.Line = -1
		.Label = "default height"
		.LabelAlign = 34
	endwith
	with .MarkTimes.Add("timer2",{^2012-5-24 13:15:00})
		.BackColor = 0x2000000
		.Line = -1
		.Label = "larger height"
		.LabelAlign = 34
	endwith
	.EndUpdate
endwith
129:
How I know what event was edited when it was edited by a user
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "End Operation exScheduleEditEvent(15)" )
		DEBUGOUT( Operation )
		DEBUGOUT( "Use the global member from LayoutStartChanging, and you got the Event being edited" )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Start Operation exScheduleEditEvent(15)" )
		DEBUGOUT( Operation )
		DEBUGOUT( "Holds the EventFromPoint to a global member" )
		DEBUGOUT( .EventFromPoint(-1,-1) )
	endwith

with thisform.Schedule1
	.BeginUpdate
	.SelectEventStyle = 816 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesSolid
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
	endwith
	.EndUpdate
endwith
128:
What are timers in your exSchedule component

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer1",{^2012-5-24 8:35:00})
		.Label = "<fgcolor=808080>fixed timer"
		.LabelAlign = 1
		.Pattern.Type = 6
		.Pattern.Color = RGB(224,224,224)
	endwith
	with .MarkTimes.Add("timer2",{^2012-5-24 10:51:00})
		.Label = "<fgcolor=00FF00>movable timer"
		.Movable = .T.
		.BodyEventBackColor = RGB(128,255,128)
		.LineColor = RGB(0,240,15)
		.TimeScaleLineColor = RGB(0,255,0)
		.TimeScaleLabel = ""
		.Line = 780 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesDash
		.Label = "<bgcolor=FFFFFF><fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%><br><%loc_sdate%>"
		.TimeScaleLine = 259 && LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesDot4
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
127:
How do I get the selected dates in the calendar panel
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Operation: exScheduleSelectionChange(10)" )
		DEBUGOUT( Operation )
		DEBUGOUT( "Selected Event Count:" )
		DEBUGOUT( .SelCount )
		DEBUGOUT( "First Selected Event:" )
		DEBUGOUT( .SelEvent(0) )
	endwith

with thisform.Schedule1
	.Calendar.Selection = {^2011-1-1}
	with .Events
		.Add({^2011-1-1 10:00:00},{^2011-1-1 11:30:00})
		.Add({^2011-1-1 11:30:00},{^2011-1-1 13:30:00})
	endwith
endwith
126:
How do I get the selected dates in the calendar panel
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Operation: exCalendarSelectionChange(1)" )
		DEBUGOUT( Operation )
		with .Calendar
			DEBUGOUT( "Selected Date Count:" )
			DEBUGOUT( .SelCount )
			DEBUGOUT( "First Selected Date:" )
			DEBUGOUT( .SelDate(0) )
		endwith
	endwith


125:
What is the easiest way to display a picture on my event

with thisform.Schedule1
	.Calendar.Selection = {^2012-5-24}
	.Pictures.Add("pic1","c:\exontrol\images\zipdisk.gif")
	.Events.Add({^2012-5-24 9:00:00},{^2012-5-24 14:00:00}).Pictures = "pic1"
endwith
124:
How can I programmatically move a specified event
with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.Events.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).MoveBy("-00:15")
	.EndUpdate
endwith
123:
How can I edit the event but still display its margins
*** AddEvent event - Notifies your application once the a new event is added. ***
LPARAMETERS Ev
	*** Ev.Editable = 1

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		with .Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00})
			.Editable = 1
			.Caption = "your caption"
		endwith
		with .Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
			.Editable = 1
			.Caption = "other caption"
		endwith
	endwith
endwith
122:
How can I edit the events

*** AddEvent event - Notifies your application once the a new event is added. ***
LPARAMETERS Ev
	*** Ev.Editable = 3

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = ""
	.CreateEventLabel = ""
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		with .Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00})
			.Editable = 3
			.LongLabel = "just your label"
		endwith
		with .Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
			.Editable = 3
			.LongLabel = "just another label"
		endwith
	endwith
endwith
121:
At the moment the scheduler only displays events from 8:00 am to 3:00 pm. How do I extend this time frame

with thisform.Schedule1
	.DayStartTime = "07:30"
	.DayEndTime = "14:30"
endwith
120:
How does localization work

with thisform.Schedule1
	with .Calendar
		.FirstWeekDay = .LocFirstWeekDay && .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
	endwith
endwith
119:
Is it possible to limit the calendar to one month only

with thisform.Schedule1
	.ScrollBars = 0
	.AllowMoveSchedule = 0
	with .Calendar
		.Selection = {^2001-1-10}
		.MinDate = {^2001-1-1}
		.MaxDate = {^2001-1-31}
	endwith
endwith
118:
How can I display a distingue text for repetitive events

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%264? `repetitive event`:``%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00}).Repetitive = "weekday(value) = 3"
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
	endwith
endwith
117:
How can I display the event's duration on the body of the event

with thisform.Schedule1
	.SelectEventStyle = 48
	var_s = "<%=%256%><br><%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 "
	var_s = var_s + "+ 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : "
	var_s = var_s + "'')%>"
	.DefaultEventLongLabel = var_s
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00})
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
	endwith
endwith
116:
The sample shows how the event's body can display automatically the UserData property of the event

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%6%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00}).UserData = "UserData 1"
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00}).UserData = "UserData 2"
	endwith
endwith
115:
The sample shows how the event's body can display automatically the Caption property of the event

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00}).Caption = "Event 1"
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00}).Caption = "Event 2"
	endwith
endwith
114:
The sample shows how the event's body can display automatically the group's ID, Caption and Title

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "Group's ID:<%=%4%><br>Group's Caption: <%=%262%><br>Group's Title: <%=%263%><br><%=%256%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Groups
		with .Add(1,"Group 1")
			.Title = "First"
			.Visible = .T.
		endwith
		with .Add(2,"Group 2")
			.Title = "Second"
			.Visible = .T.
		endwith
	endwith
	with .Events
		.Add({^2001-1-10 9:00:00},{^2001-1-10 12:30:00}).GroupID = 1
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00}).GroupID = 2
	endwith
endwith
113:
The following sample displays automatically an "All-Day-Event: " prefix for AllDayEvent events

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%3 ? `All-Day-Event: `: ``%><%=%256%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2001-1-10}
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	with .Events
		.Add({^2001-1-10},{^2001-1-10}).AllDayEvent = .T.
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
	endwith
endwith
112:
How can I use the calendar's LongTimeFormat

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%257%>"
	.DefaultEventShortLabel = "<%=%257%>"
	with .Calendar
		.Selection = {^2001-1-10}
		.LongTimeFormat = "<%hh%>:<%nn%>:<%ss%>"
	endwith
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add({^2001-1-10 10:00:00},{^2001-1-11 13:00:00})
endwith
111:
How can I use the calendar's ShortTimeFormat. The sample displays the times in 24-hours format

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%>"
	.DefaultEventShortLabel = "<%=%256%>"
	.TimeScales.Item(0).MajorTimeLabel = "<%hh%>:<%nn%>"
	with .Calendar
		.Selection = {^2001-1-10}
		.ShortTimeFormat = "<%h%>:<%nn%>"
	endwith
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
endwith
110:
How can I use the calendar's ShortDateFormat

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%>"
	.DefaultEventShortLabel = "<%=%256%>"
	with .Calendar
		.Selection = {^2001-1-10}
		.ShortDateFormat = "<%loc_d2%>, <%loc_m2%> <%d%>, <%yy%>"
	endwith
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00}).AllDayEvent = .T.
endwith
109:
How can I use the calendar's LongDateFormat

with thisform.Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%257%>"
	.DefaultEventShortLabel = "<%=%257%>"
	with .Calendar
		.Selection = {^2001-1-10}
		.LongDateFormat = "<%loc_dddd%>, <%loc_mmm%> <%d%>, <%yyyy%>"
	endwith
	.OnResizeControl = 3073 && OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00}).AllDayEvent = .T.
endwith
108:
Is it possible to prevent updating events

with thisform.Schedule1
	.SelectEventStyle = 48
	.AllowUpdateDisableZone = .F.
	with .Calendar
		.ShowNonMonthDays = .F.
		.Selection = {^2001-1-9}
		.DisableZoneFormat = "value >= #1/11/2001#"
		.MinDate = {^2001-1-1}
	endwith
	with .Events
		.Add({^2001-1-10 10:00:00},{^2001-1-10 13:00:00})
		.Add({^2001-1-11 10:00:00},{^2001-1-11 13:00:00})
	endwith
endwith
107:
How can I specify that after editing the caption should be on top ( method 2 )

with thisform.Schedule1
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.SelectEventStyle = 48
	with .Calendar
		.ShowNonMonthDays = .F.
		.Selection = {^2001-1-1}
	endwith
	with .Events
		with .Add({^2001-1-1 10:00:00},{^2001-1-1 13:00:00})
			.ExtraLabel = "title"
			.ExtraLabelAlign = 0
		endwith
	endwith
endwith
106:
How can I specify that after editing the caption should be on top ( method 1 )

with thisform.Schedule1
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.SelectEventStyle = 48
	with .Calendar
		.ShowNonMonthDays = .F.
		.Selection = {^2001-1-1}
	endwith
	with .Events
		with .Add({^2001-1-1 10:00:00},{^2001-1-1 13:00:00})
			.LongLabel = "title"
			.Editable = 3
		endwith
	endwith
endwith
105:
How can I get ride or hide the of the calendar's grid lines

with thisform.Schedule1
	with .Calendar
		.ShowNonMonthDays = .F.
		.Selection = {^2001-1-1}
		.ShowGridLines = -1
	endwith
endwith
104:
How can I programmatically select a single date ( method 2 )

with thisform.Schedule1
	.Calendar.Selection = {^2012-1-1}
endwith
103:
How can I programmatically select a single date ( method 1 )

with thisform.Schedule1
	with .Calendar
		.Selection = "0"
		.SelectDate({^2012-1-1}) = .T.
	endwith
endwith
102:
How can I prevent showing the Today button, in the calendar panel

with thisform.Schedule1
	.OnResizeControl = 256
	.Calendar.ShowTodayButton = .F.
endwith
101:
How can I display just the calendar panel, not including the schedule panel

with thisform.Schedule1
	.OnResizeControl = 256
endwith
100:
Is is possible to toggle the selection of dates, such the first click selects the date, the second click unselects it, and so on

with thisform.Schedule1
	.OnResizeControl = 1281 && OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exHideSplitter Or OnResizeControlEnum.exResizePanelRight
	with .Calendar
		.AllowToggleSelectKey = 1
		.AllowSelectDate = 1
		.SingleSel = .F.
	endwith
endwith
99:
How can I change the background color for selected dates in the calendar panel, so always is the same no matter if the control loses the focus

with thisform.Schedule1
	.Object.Background(68) = .Background(19)
	.Object.Background(69) = .Background(20)
endwith
98:
Is it possible to specify a different background color for the calendar panel

with thisform.Schedule1
	.Object.Background(4) = RGB(240,240,240)
endwith
97:
How do I change the control's border, using your EBN files

with thisform.Schedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216 && 0x1000000
endwith
96:
Is it possible to prevent showing the calendar at all

with thisform.Schedule1
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	.ScrollBars = 0
endwith
95:
How can I change the visual aspect only for a specified event

with thisform.Schedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00})
		.Add({^2012-6-20 10:30:00},{^2012-6-20 13:00:00}).BodyBackColor = 0x1000000
		.Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00})
	endwith
	.Object.DefaultEventPadding(-1) = 2
endwith
94:
How can I change the visual aspect of the events

with thisform.Schedule1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(75) = 0x1000000
	.Object.Background(79) = 0x1000000
	.BodyEventBackColor = 0x1000000
endwith
93:
Is there any event to let me know once an edit has been edited

*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "End exScheduleEditEvent(15)" )
		DEBUGOUT( Operation )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Start exScheduleEditEvent(15)" )
		DEBUGOUT( Operation )
	endwith

with thisform.Schedule1
	.AllowEditEvent = 1
	.AllowSelectEvent = 0
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	var_s = "gBFLBWIgBAEHhEJAEGg7IAUHXI6g0MAAmhULikUCIgg6sh4AgRCJ0Ui8HjKTj6AADACAxRDAMgBQKAAzQFAYZhpBaERiHEZoJhUAIIRZGMQxXAcMQvDSKQRhEAoJDgN4"
	var_s = var_s + "kQKNYyQYAAYhuGaPBhASQJUhkMocR7HMygBJkUABEyYaFHdIFCQ1DykJzkCbqAgkMYeDRHQxTdQsEgpDQMIRpGA5eb+XgAV4/cTSYKQahLMizJYGUYLHgma5tTTWcTVP"
	var_s = var_s + "LVFRrJiTYRlKTJOjCCQ0ATdUyzPAeCRzQ6QJ5kUZ6CgSUpGRjkhY6agkF6VVxCNg2BT8KzxRoAKhiGpKHpaCaUQLWMB5PaoAR8fLYAA2B6bDhGaa2XAAFr2VZkWSUBBp"
	var_s = var_s + "nSWo8kYIg1D6NBuGyIhYnCXx5kuHZcjUAAOAcDxbF2L5mmKPIOl2Ox7l2XJVGAfRMh8CABiyYpgi8E5pFSRp4DQHBkiKOQug4ChpmqPRoiAco6HePxJDUXQAASCYpHAW"
	var_s = var_s + "pUHmGxmlwdphlwQJWncMQzFwXknCodJcEcXRiHYUIYCwAByhyaB1lAeReDgTgAHwU44GoHB3lUJgFi2BgYCYGYGgkFx2C2ax+lARI9FKA5YHiMR2guHBHlUPIChuBRJk"
	var_s = var_s + "4XIjiUKg8GsY5ohkZoQh2dJ6AYZxfFkHZoF2E5gkQOBPgMIJJHwS5WJmMRvhINwRHKAAdCieZyHEHgxEAaQYkcQZUHIGRUnQJIuAGEAxAgTYclGFBRAMCgQhgTZnEIIQ"
	var_s = var_s + "0AweIdCYZYGgaIZbDaTJbiKaJKDaDojmkChGhKI5bDoHoWD+aIqDiPImmmSh2h6J5qAqBoi3yeghjCIwpnIeoqiqapKjaLormsCouh+IwrBqVo2i2a4KlqHItY0Fo+i+"
	var_s = var_s + "bALAaF4riuOmPjCLILCaSYxCmOpwh6MotAsRoWjMC5LDqUo1m0GxSlaNgtktlgxiuWx2mKL4tnMbpHjiboKB6ZY5m6G42muOBuluJpvjObwbkqLYxG4a5CnWOIvDubpo"
	var_s = var_s + "iyKZrG6fo3HACxWg6OwwDsYoriUGwMCMCY0iqOgnBKQ4wnsQwUFgcR8FaSJGE+fBzBqMAxkqZwikichLlKFxAEAgIA=="
	.VisualDesign = var_s
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).Editable = 3
		.Add({^2012-6-20 10:30:00},{^2012-6-20 13:00:00}).Editable = 3
		.Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00}).Editable = 3
	endwith
	.Object.DefaultEventPadding(-1) = 2
endwith
92:
I've noticed that the background of the event while editing is transparent. Is it possible to change it

with thisform.Schedule1
	.AllowEditEvent = 1
	.AllowSelectEvent = 0
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	var_s = "gBFLBWIgBAEHhEJAEGg41hhjNcHhgAE0KhcTiYREEHDMMgRCJ0Ti0ShEGhiAADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlST"
	var_s = var_s + "JcQjKKEUQTFiXIyAKL5CgkBYJBrNM5SFIAEQSKA0TDOQ5To5jEBzIxIIjaJhoNoJChNU4TIDELphECdYqUCq6cp2XgAJhYNhWHYgAIjM60LRtIAELq2bpvXAACCXHala"
	var_s = var_s + "zsAA+bxvK67cAAd5/YBgOBAAaGC4NQ7EAANHC8Mw3DgAGLkORZHigACzS7MMxzIACQx3HqfaAABK6HomS5NUTTNR0TLNAy3HqWZpsOYZBima4lRTHNxxTBMIz3Bp+YI4"
	var_s = var_s + "DgC5FnOCx6jkXY5DcSxlkOGxujMWo6DaCwFhOKzgFeOw1lAAoXjuXpvngAAQBAgI"
	.VisualDesign = var_s
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).Editable = 3
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00}).Editable = 3
		.Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00}).Editable = 3
	endwith
	.Object.Background(83) = RGB(255,0,0)
endwith
91:
How can I edit the Event.LongLabel property of the Event rather than ExtraLabel

with thisform.Schedule1
	.AllowEditEvent = 1
	.AllowSelectEvent = 0
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).Editable = 3
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00}).Editable = 3
		.Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00}).Editable = 3
	endwith
endwith
90:
Is it possible to edit the event at a single click rather than double click

with thisform.Schedule1
	.AllowEditEvent = 1
	.AllowSelectEvent = 0
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00})
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00})
		.Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00})
	endwith
endwith
89:
How can I prevent editing the events
with thisform.Schedule1
	.AllowEditEvent = 0
endwith
88:
How can I prevent selecting the events
with thisform.Schedule1
	.AllowSelectEvent = 0
endwith
87:
The event gets blue when selected. It is possible to draw a frame instead

with thisform.Schedule1
	.SelectEventStyle = 816 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesSolid
endwith
86:
Is there an event that fires when the user selects a different day/week/month
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( Operation )
		DEBUGOUT( "should be on  exCalendarSelectionChange(1)" )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( Operation )
		DEBUGOUT( "should be on  exCalendarSelectionChange(1)" )
	endwith


85:
Can I use and display just the Caption of the Event

with thisform.Schedule1
	.DefaultEventLongLabel = "<%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).Caption = "caption 1"
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00}).Caption = "caption 2"
		.Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00}).Caption = "caption 3"
	endwith
endwith
84:
How can I use the Caption property of the Event

with thisform.Schedule1
	.DefaultEventLongLabel = "<%=%256%><br><b><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = {^2012-6-20}
	with .Events
		.Add({^2012-6-20 9:00:00},{^2012-6-20 11:00:00}).Caption = "caption 1"
		with .Add({^2012-6-20 11:00:00},{^2012-6-20 13:00:00})
			.LongLabel = ""
			.ExtraLabel = "<%=%5%>"
			.Caption = "caption 2"
		endwith
		with .Add({^2012-6-20 13:00:00},{^2012-6-20 15:00:00})
			.LongLabel = "<%=%256%><br><b><%=%5%><br><fgcolor=808080>another text"
			.Caption = "caption 3"
		endwith
	endwith
endwith
83:
Is it possible to display a view of appointments with more than one person

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-6-20}
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
	with .Groups
		with .Add(1,"Mihai")
			.EventBackColor = RGB(255,0,0)
			.HeaderForeColor = .EventBackColor
			.Visible = .T.
			.Title = .Caption
		endwith
		with .Add(2,"Dave")
			.EventBackColor = RGB(0,255,0)
			.HeaderForeColor = .EventBackColor
			.Visible = .T.
			.Title = .Caption
		endwith
		with .Add(3,"Enrike")
			.EventBackColor = RGB(128,128,255)
			.HeaderForeColor = .EventBackColor
			.Visible = .T.
			.Title = .Caption
		endwith
	endwith
	.DefaultEventLongLabel = "<%=%256%><br><%=%263%>"
	with .Events
		.Add({^2012-6-20 10:00:00},{^2012-6-20 13:30:00}).GroupID = 1
		.Add({^2012-6-20 11:00:00},{^2012-6-20 13:30:00}).GroupID = 2
		.Add({^2012-6-20 13:30:00},{^2012-6-20 15:00:00}).GroupID = 3
	endwith
	.EndUpdate
endwith
82:
How can I prevent selecting more dates in the schedule view
with thisform.Schedule1
	.ScrollBars = 0
	.AllowMoveSchedule = 0
	.Calendar.SingleSel = .T.
endwith
81:
How can I get ride of the control's scroll bars

with thisform.Schedule1
	.ScrollBars = 0
	.AllowMoveSchedule = 0
endwith
80:
I am hiding the Calendar section of the control, the question is how can I select another date in the scheduler

with thisform.Schedule1
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	.Calendar.Selection = {^2001-1-1}
endwith
79:
How can I add an event to indicate the Easter Sunday

with thisform.Schedule1
	with .Calendar
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "month(value) in (3,4)"
		.HighlightEvent.BackColor = RGB(128,128,128)
		.ShowYearScroll = .T.
	endwith
	.Object.Background(68) = .Background(19)
	.Object.Background(37) = .Background(19)
	with .Events
		with .Add({^2012-6-12 10:00:00},{^2012-6-12 14:00:00})
			.AllDayEvent = .T.
			var_s = "not(month(value) in (3,4,5)) ? 0 : ( floor(value)=(2:=floor(date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) m"
			var_s = var_s + "od 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) m"
			var_s = var_s + "od 7)))))"
			.Repetitive = var_s
			.LongLabel = "EASTER of <%=year(%1)%> falls in<br><%=%1%>"
			.ShortLabel = .LongLabel
		endwith
	endwith
endwith
78:
I need a repetitive event happens every n-days, and stops after m-times. Can your control handle this

with thisform.Schedule1
	.SelectEventStyle = 304 && LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesSolid
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "month(value) = 6"
		.HighlightEvent.FontSize = 10
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
	with .Events
		with .Add({^2012-6-12 10:00:00},{^2012-6-12 14:00:00})
			.Repetitive = "(value >= (0:=#6/1/2012#)) and ( (value - =:0) mod (1:=5) = 0) and (value-=:0) < (3*=:1)"
			.Selected = .T.
		endwith
	endwith
endwith
77:
How can I add a repetitive event to occur every n days

with thisform.Schedule1
	.SelectEventStyle = 304 && LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesSolid
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "month(value) = 6"
		.HighlightEvent.FontSize = 10
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
	with .Events
		with .Add({^2012-6-12 10:00:00},{^2012-6-12 14:00:00})
			.Repetitive = "value >= #6/1/2012# and ( (value - #6/1/2012#) mod 5 = 0)"
			.Selected = .T.
		endwith
	endwith
endwith
76:
I am using the AutoHide option, just wondering if there is any event that notifies once the calendar panel shows or hides
*** LayoutEndChanging event - Notifies your application once the control's layout has been changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "End exLayoutCalendarAutoHide(7)" )
		DEBUGOUT( Operation )
	endwith

*** LayoutStartChanging event - Occurs when the control's layout is about to be changed. ***
LPARAMETERS Operation
	with thisform.Schedule1
		DEBUGOUT( "Start exLayoutCalendarAutoHide(7)" )
		DEBUGOUT( Operation )
	endwith

with thisform.Schedule1
	.OnResizeControl = 2048
endwith
75:
Is it possible to display the same event on multiple days

with thisform.Schedule1
	.SelectEventStyle = 304 && LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesSolid
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = {^2012-1-1}
		.Selection = "month(value) = 6"
		.HighlightEvent.FontSize = 10
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
	with .Events
		with .Add({^2012-6-12 10:00:00},{^2012-6-12 14:00:00})
			.Repetitive = "value in (#6/8/2012#,#6/11/2012#,#6/20/2012#)"
			.Selected = .T.
		endwith
	endwith
endwith
74:
How can I change the selection background color so it is the same if the control loses the focus

with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.Selection = {^2012-6-12}
		.HighlightEvent.FontSize = 10
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
	.Events.Add({^2012-6-12 10:00:00},{^2012-6-12 14:00:00})
	.Object.Background(68) = .Background(19)
endwith
73:
How can I add a repetitive event so it occurs every Monday

with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "month(value) = 6"
		with .HighlightEvent
			.FontSize = 10
			.BackColor = RGB(128,128,128)
		endwith
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
	with .Events
		.Add({^2012-6-12 10:00:00},{^2012-6-12 14:00:00}).Repetitive = "weekday(value) = 1"
	endwith
endwith
72:
How can I select the current month

with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "month(value) = month(date(``))"
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
endwith
71:
How can I select the next two days

with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "(value - int(date(``))) in (1,2,0)"
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
endwith
70:
How can I select the last two days

with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "(int(date(``)) - value) in (1,2,0)"
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
endwith
69:
How can I select the current week
with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))"
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
endwith
68:
Is it possible to highlight or change the background or foreground color for the today date in the schedule panel

with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 0
		var_s = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday("
		var_s = var_s + "date(``))-1)/7))"
		.Selection = var_s
	endwith
	.BorderSelStyle = -1
	.Object.Background(81) = RGB(240,240,240)
endwith
67:
How can I display no working/non-working days in the control

with thisform.Schedule1
	with .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = .F.
		.FirstWeekDay = 1
	endwith
	.BorderSelStyle = -1
endwith
66:
The schedule displays a blue border around the selected dates. How can I get ride of that

with thisform.Schedule1
	with .Calendar
		.ShowNonMonthDays = .F.
		.Selection = {^2012-6-18}
	endwith
	.BorderSelStyle = -1
endwith
65:
The calendar panel shows days that belongs to another month. How can I display just the days within the current month

with thisform.Schedule1
	.Calendar.ShowNonMonthDays = .F.
endwith
64:
Is it possible to show the non-working days with a solid color instead

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-6-14}
		.Selection = "value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)"
		.FirstWeekDay = 1
		.NonworkingDaysPattern = 1
		.NonworkingDaysColor = RGB(224,224,224)
	endwith
endwith
63:
How can I display the now-working days in the schedule panel too

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-6-14}
		.Selection = "value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)"
		.FirstWeekDay = 1
	endwith
	.NonworkingTimes.Add(1,"00:00","00:00",-1)
endwith
62:
How can I make the control read-only

with thisform.Schedule1
	.AllowCreateEvent = 0
	.AllowMoveEvent = 0
	.AllowResizeEvent = 0
	.AllowMoveSchedule = 1
	.AllowSelectEvent = 0
	.Calendar.Selection = {^2012-5-24}
	.Calendar.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	.Events.Add({^2012-5-25 9:30:00},{^2012-5-25 13:00:00})
endwith
61:
How can I check/uncheck a group, so it is visible after I add it

with thisform.Schedule1
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
	.Groups.Add(1,"Pro").Visible = .T.
endwith
60:
The drop down button to show groups is not visible, even I set the DisplayGroupingButton. What Can I do

with thisform.Schedule1
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
endwith
59:
It is possible to translate "All" to "Todos" or to something else

with thisform.Schedule1
	.Object.Description(0) = "(todos)"
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
	.Groups.Add(1,"Pro")
endwith
58:
How can I remove the control's scroll bars

with thisform.Schedule1
	.ScrollBars = 0
endwith
57:
How can I select a month

with thisform.Schedule1
	.Calendar.Selection = "month(value) = month(date(``))"
endwith
56:
How can I display two or more dates in the scheduler (Method 2)

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-5-24}
		.Selection = "value in ( #5/24/2012#, #5/25/2012# )"
	endwith
endwith
55:
How can I display two or more dates in the scheduler (Method 1)

with thisform.Schedule1
	with .Calendar
		.Selection = "0"
		.SelectDate({^2012-5-24}) = .T.
		.SelectDate({^2012-5-25}) = .T.
	endwith
endwith
54:
How can I define a different color for nonworking part for different days

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.Selection = {^2012-5-21}
		.Selection = "(value >= #05/21/2012#) and (value <= #05/25/2012#)"
		.FirstWeekDay = 1
	endwith
	with .NonworkingPatterns
		.Add(1234,6).Pattern.Color = RGB(255,0,0)
		.Add(1235,6).Pattern.Color = RGB(0,255,0)
		.Add(1236,6).Pattern.Color = RGB(0,0,255)
		with .Add(1237,778) && PatternEnum.exPatternFrameThick Or PatternEnum.exPatternCross
			.Pattern.Color = RGB(128,128,128)
			.Pattern.FrameColor = RGB(64,64,64)
			.BackColor = RGB(255,255,0)
		endwith
	endwith
	with .NonworkingTimes
		.Add("weekday(value) in (0,1)","10:00","11:45",1234)
		.Add("weekday(value) = 2","00:00","08:45",1235)
		.Add("weekday(value) = 2","15:00","24:00",1235)
		.Add("weekday(value) in (3,5)","12:15","13:00",1236)
		.Add("weekday(value) = 4","13:30","15:00",1237)
	endwith
	.ShowNonworkingTime = 3
	.EndUpdate
endwith
53:
Is it possible to show both nonworking and the events, using semi-transparent color

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-5-24}
		.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	endwith
	with .NonworkingPatterns
		.Add(1234,11)
		with .Add(9871,780) && PatternEnum.exPatternFrameThick Or PatternEnum.exPatternYard
			.BackColor = RGB(255,0,0)
		endwith
		with .Add(9872,780) && PatternEnum.exPatternFrameThick Or PatternEnum.exPatternYard
			.BackColor = RGB(255,255,0)
		endwith
	endwith
	with .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",9871)
		.Add("weekday(value) = 4","12:00","12:35",9872)
	endwith
	.Events.Add({^2012-5-25 9:30:00},{^2012-5-25 13:00:00})
	.ShowNonworkingTime = 3
endwith
52:
Is it possible to show the nonworking part behind, on the back

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-5-24}
		.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	endwith
	with .NonworkingPatterns
		.Add(1234,11)
		with .Add(9871,780) && PatternEnum.exPatternFrameThick Or PatternEnum.exPatternYard
			.BackColor = RGB(255,0,0)
		endwith
		with .Add(9872,780) && PatternEnum.exPatternFrameThick Or PatternEnum.exPatternYard
			.BackColor = RGB(255,255,0)
		endwith
	endwith
	with .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",9871)
		.Add("weekday(value) = 4","12:00","12:35",9872)
	endwith
	.Events.Add({^2012-5-25 9:30:00},{^2012-5-25 13:00:00})
	.ShowNonworkingTime = 1
endwith
51:
Can you explain how the non working day patterns work and how to define for different days of the week

with thisform.Schedule1
	with .Calendar
		.Selection = {^2012-5-24}
		.Selection = "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
	endwith
	with .NonworkingPatterns
		.Add(1234,11)
		with .Add(9871,780) && PatternEnum.exPatternFrameThick Or PatternEnum.exPatternYard
			.BackColor = RGB(255,0,0)
		endwith
		with .Add(9872,780) && PatternEnum.exPatternFrameThick Or PatternEnum.exPatternYard
			.BackColor = RGB(255,255,0)
		endwith
	endwith
	with .NonworkingTimes
		.Add("1","00:00","08:45",1234)
		.Add("weekday(value) = 5","10:00","11:45",9871)
		.Add("weekday(value) = 4","12:00","12:35",9872)
	endwith
endwith
50:
How can I add a nonworking time

with thisform.Schedule1
	with .NonworkingTimes
		.Add("1","00:00","08:45",-1)
		.Add("weekday(value) = weekday(date(``))","10:00","11:15",-1)
	endwith
endwith
49:
How can I get the event from the cursor

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Schedule1
		DEBUGOUT( "Calendar.DateFromPoint" )
		DEBUGOUT( .Calendar.DateFromPoint(-1,-1) )
		DEBUGOUT( "AnchorFromPoint" )
		DEBUGOUT( .AnchorFromPoint(-1,-1) )
		DEBUGOUT( "DateTimeFromPoint" )
		DEBUGOUT( .DateTimeFromPoint(-1,-1) )
		DEBUGOUT( "TimeFromPoint" )
		DEBUGOUT( .TimeFromPoint(-1,-1) )
		DEBUGOUT( "TimeScaleFromPoint" )
		DEBUGOUT( .TimeScaleFromPoint(-1,-1) )
		DEBUGOUT( "GroupFromPoint" )
		DEBUGOUT( .GroupFromPoint(-1,-1) )
		DEBUGOUT( "GroupHeaderFromPoint" )
		DEBUGOUT( .GroupHeaderFromPoint(-1,-1) )
		DEBUGOUT( "MarkZoneFromPoint" )
		DEBUGOUT( .MarkZoneFromPoint(-1,-1) )
		DEBUGOUT( "NonworkingTimeFromPoint" )
		DEBUGOUT( .NonworkingTimeFromPoint(-1,-1) )
		DEBUGOUT( "MarkTimeFromPoint" )
		DEBUGOUT( .MarkTimeFromPoint(-1,-1) )
		DEBUGOUT( "EventFromPoint" )
		DEBUGOUT( .EventFromPoint(-1,-1) )
		DEBUGOUT( "PictureFromPoint" )
		DEBUGOUT( .PictureFromPoint(-1,-1) )
	endwith

with thisform.Schedule1
	.BeginUpdate
	.AllowMultiDaysEvent = .F.
	.AllowCreateEvent = 17 && AllowKeysEnum.exCTRLKey Or AllowKeysEnum.exLeftClick
	.AllowMoveEvent = 17 && AllowKeysEnum.exCTRLKey Or AllowKeysEnum.exLeftClick
	.AllowMoveTimeScale = 1
	.AllowMoveSchedule = 1
	.AllowSelectEvent = 17 && AllowKeysEnum.exCTRLKey Or AllowKeysEnum.exLeftClick
	.AllowResizeEvent = 1
	.Calendar.MaxMonthY = 6
	.SelectEventStyle = 816 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesSolid
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = 34
		.Line = 780 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesDash
		.BodyEventBackColor = RGB(128,0,0)
		.BodyEventForeColor = RGB(255,255,255)
		.Movable = .T.
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
48:
How can I show the timer only in the chart section

with thisform.Schedule1
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.Label = " <font ;12>timer</font> "
		.LabelAlign = 34
		.TimeScaleLabel = ""
		.TimeScaleLine = -1
	endwith
endwith
47:
How can I let the user to move the timer from the cursor

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = 34
		.Line = 780 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesDash
		.BodyEventBackColor = RGB(128,0,0)
		.BodyEventForeColor = RGB(255,255,255)
		.Movable = .T.
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
46:
How can I show the timer only in the time scale

with thisform.Schedule1
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.TimeScaleLabel = " <font ;12>timer</font> "
		.Line = -1
	endwith
endwith
45:
I have seen some screen shots and noticed, that you can place images on a timer. How can I do that

with thisform.Schedule1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Calendar.Selection = {^2012-5-24}
	.StatusEventSize = 8
	.StatusEventColor = RGB(255,255,255)
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.Label = "<img>pic1</img>"
		.TimeScaleLabel = "<fgcolor=FF0000><b><%hh%>:<%nn%> <%AM/PM%><br><c><img>1</img>"
		.LabelAlign = 18
		.Line = 780 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesDash
		.Movable = .T.
		.StatusEventPattern.Type = 3
		.StatusEventPattern.Color = RGB(255,0,0)
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
44:
How can I change the timer's color

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes
		with .Add("timer",{^2012-5-24 11:35:00})
			.Movable = .T.
			.LineColor = RGB(0,0,255)
			.StatusEventBackColor = RGB(0,0,255)
			.TimeScaleLineColor = RGB(0,0,255)
			.TimeScaleLabel = "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
		endwith
	endwith
	.EndUpdate
endwith
43:
Can I add multiple timers with different colors

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes
		with .Add("timer1",{^2012-5-24 9:35:00})
			.Movable = .T.
			.StatusEventBackColor = RGB(255,0,0)
		endwith
		with .Add("timer2",{^2012-5-24 13:35:00})
			.Movable = .T.
			.LineColor = RGB(0,255,0)
			.StatusEventBackColor = .LineColor
			.TimeScaleLineColor = .LineColor
			.TimeScaleLabel = "<fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%>"
		endwith
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
42:
How can I specify a different color for the status of the event that intersects with the timer

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.TimeScaleLabelAlign = 1
		.Line = 257 && LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesHDot4
		.TimeScaleLine = 1
		.StatusEventBackColor = RGB(255,0,0)
		.Movable = .T.
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
41:
How can the chart displays the events from the timer with a different color

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = 34
		.Line = 780 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesDash
		.BodyEventBackColor = RGB(128,0,0)
		.BodyEventForeColor = RGB(255,255,255)
		.Movable = .T.
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
40:
Is it possible to display the timer's label on the chart, instead time scales

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .MarkTimes.Add("timer",{^2012-5-24 11:35:00})
		.TimeScaleLabel = ""
		.Label = "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
		.LabelAlign = 34
		.Line = 780 && LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesDash
	endwith
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
39:
How can I add a timer to the scheduler

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.MarkTimes.Add("timer",{^2012-5-24 11:35:00})
	with .Events
		.Add({^2012-5-24 9:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00})
		.Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
38:
Is it possible to define the small increment to 5 minutes

with thisform.Schedule1
	.DayEndTime = "10:00"
	.TimeScales.Item(0).MinorTimeRuler = "00:05"
endwith
37:
How can I change the time format to 24 hours to be displayed in the control's time scale

with thisform.Schedule1
	with .TimeScales.Item(0)
		.MajorTimeLabel = "<%hh%>:<%nn%>"
		.Width = 32
	endwith
endwith
36:
How can I change the time zone

with thisform.Schedule1
	.DayEndTime = "13:00"
	with .TimeScales.Item(0)
		.TimeZone = "+03:00"
		.Caption = .TimeZone
	endwith
endwith
35:
Is it possible to add more time scales

with thisform.Schedule1
	.DayEndTime = "13:00"
	with .TimeScales.Add("+03:00")
		.AlignLeft = .F.
		.Caption = "EST <b>+03"
	endwith
endwith
34:
How can I get any event to be notified if a picture or icon is clicked (Method 2)

*** PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ). ***
LPARAMETERS Key
	with thisform.Schedule1
		DEBUGOUT( Key )
	endwith

with thisform.Schedule1
	.BeginUpdate
	.ShowSelectEvent = .F.
	.Calendar.Selection = {^2012-5-24}
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Pictures
		.Add("pic1","c:\exontrol\images\card.png")
		.Add("pic2","c:\exontrol\images\diary.png")
	endwith
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).Pictures = "pic1/pic2"
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00}).Pictures = "1,2/3"
		.Add({^2012-5-24 13:00:00},{^2012-5-24 15:45:00}).ExtraPictures = "pic2/1"
	endwith
	.EndUpdate
endwith
33:
How can I display a tooltip for an anchor element, for instance

*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
	with thisform.Schedule1
		s = .AnchorFromPoint(-1,-1)
		.ShowToolTip(s,"info","","+16")
	endwith

with thisform.Schedule1
	.BeginUpdate
	.ShowSelectEvent = .F.
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00}).ExtraLabel = "<a remove>remove</a>"
		.Add({^2012-5-24 13:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
32:
Is it possible to prevent selecting events
with thisform.Schedule1
	.BeginUpdate
	.ShowSelectEvent = .F.
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00}).Selected = .T.
		.Add({^2012-5-24 13:45:00},{^2012-5-24 15:45:00})
	endwith
	.EndUpdate
endwith
31:
How can I get any event to be notified if a picture or icon is clicked (Method 1)

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.Schedule1
		DEBUGOUT( AnchorID )
	endwith

with thisform.Schedule1
	.BeginUpdate
	.ShowSelectEvent = .F.
	.Calendar.Selection = {^2012-5-24}
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Pictures
		.Add("pic1","c:\exontrol\images\card.png")
		.Add("pic2","c:\exontrol\images\diary.png")
	endwith
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).ExtraLabel = "<a pic1><img>pic1:32</img></a>"
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00}).ExtraLabel = "<a pic2><img>pic2:48</img></a>"
		.Add({^2012-5-24 13:45:00},{^2012-5-24 15:45:00}).LongLabel = "Start: <%=%1%><br>End: <%=%2%><br><br>Icon: <a 1><img>1</img></a> - <a 2><img>2</img></a>"
	endwith
	.EndUpdate
endwith
30:
How can I display a picture or an icon to an event

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Pictures
		.Add("pic1","c:\exontrol\images\card.png")
		.Add("pic2","c:\exontrol\images\diary.png")
	endwith
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).ExtraLabel = "<img>pic1:32</img>"
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:45:00}).ExtraLabel = "<img>pic2:48</img>"
		.Add({^2012-5-24 11:30:00},{^2012-5-24 14:30:00}).Pictures = "1/2,3/pic1"
		with .Add({^2012-5-24 12:45:00},{^2012-5-24 15:45:00})
			.ExtraPictures = "1/2"
			.Pictures = "1,pic1,2,pic2/3"
		endwith
	endwith
	.EndUpdate
endwith
29:
Is it possible to display the group's caption or ID on the event's label

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .Groups
		with .Add(1,"Group 1")
			.Visible = .T.
			.EventBackColor = RGB(128,128,128)
			.Title = "1'st Group"
		endwith
		with .Add(2,"Group 2")
			.Visible = .T.
			.EventBackColor = RGB(255,0,0)
			.Title = "2'nd Group"
		endwith
	endwith
	.DefaultEventLongLabel = "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).GroupID = 1
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00}).GroupID = 2
		.Add({^2012-5-24 12:30:00},{^2012-5-24 14:30:00}).GroupID = 1
	endwith
	.EndUpdate
endwith
28:
How can I show the events from different groups using the same color

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
	.ApplyGroupingColors = .F.
	with .Groups
		with .Add(1,"Group 1")
			.Visible = .T.
			.EventBackColor = RGB(128,128,128)
			.Title = "1'st Group"
		endwith
		with .Add(2,"Group 2")
			.Visible = .T.
			.EventBackColor = RGB(255,0,0)
			.Title = "2'nd Group"
		endwith
	endwith
	.DefaultEventLongLabel = "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).GroupID = 1
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00}).GroupID = 2
		.Add({^2012-5-24 12:30:00},{^2012-5-24 14:30:00}).GroupID = 1
	endwith
	.EndUpdate
endwith
27:
Is it possible to hide the grid lines in the calendar panel

with thisform.Schedule1
	.Calendar.ShowGridLines = -1
endwith
26:
How can I control the number of months displayed on the calendar pane
with thisform.Schedule1
	with .Calendar
		.MaxMonthX = 2
		.MaxMonthY = 2
	endwith
endwith
25:
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 2)

with thisform.Schedule1
	with .Calendar
		.FirstWeekDay = 1
		.MonthNames = "J-A F-E M-A A-P M-A J-U J-L A-U S-P O-C N-V D-C"
		.WeekDays = "Du Lu Ma Mi Jo Vi Si"
		.TodayCaption = "A z i"
	endwith
endwith
24:
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 1)

with thisform.Schedule1
	with .Calendar
		.FirstWeekDay = .LocFirstWeekDay && .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
	endwith
endwith
23:
How can I show the events grouped

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.DisplayGroupingButton = .T.
	.ShowGroupingEvents = .T.
	with .Groups
		with .Add(1,"Group 1")
			.Visible = .T.
			.EventBackColor = RGB(128,128,128)
			.HeaderBackColor = .EventBackColor
		endwith
		with .Add(2,"Group 2")
			.Visible = .T.
			.EventBackColor = RGB(255,0,0)
			.HeaderBackColor = .EventBackColor
		endwith
	endwith
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00}).GroupID = 1
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00}).GroupID = 2
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00}).GroupID = 1
	endwith
	.EndUpdate
endwith
22:
How can I show 2 or more days in the scheduler

with thisform.Schedule1
	.BeginUpdate
	with .Calendar
		.Selection = "0"
		.SelectDate({^2012-5-24}) = .T.
		.SelectDate({^2012-5-25}) = .T.
	endwith
	.EndUpdate
endwith
21:
Is it possible to change the first week day

with thisform.Schedule1
	.Calendar.FirstWeekDay = 1
endwith
20:
How can I define the new starting / ending points of the day

with thisform.Schedule1
	.DayStartTime = "07:30"
	.DayEndTime = "12:45"
endwith
19:
Is it possible to change the label to be displayed when user moves the events

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.UpdateEventsLabel = "Start: <%=%1%><br>End: <%=%2%>"
	.UpdateEventsLabelAlign = 17
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
18:
How can I change the default tooltip when adding new events

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.DefaultEventTooltip = "Start: <%=%1%><br>End: <%=%2%>"
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
17:
How can I change the default label when adding new events

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.CreateEventLabel = "Start: <%=%1%><br>End: <%=%2%>"
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
16:
How can I change the default label when adding new events

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.DefaultEventLongLabel = "Start: <%=%1%><br>End: <%=%2%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
15:
How can I programatically add events to the control

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
14:
How can I hide the status part of a specific event

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00}).ShowStatus = .F.
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
13:
Is it possible to change the status color for a specific event

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00}).StatusColor = RGB(255,0,0)
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
12:
Is it possible to change the background color for a specific event

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00}).BodyBackColor = RGB(255,0,0)
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
11:
Can I change the size of the status to be larger

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.StatusEventSize = 8
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
10:
I do not need a status, can I hide it

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.ShowStatusEvent = .F.
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
9:
Is it possible to change the status's default background color

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	.StatusEventColor = RGB(255,0,0)
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
8:
How can I change the visual appearance of the Events (Method 2)

with thisform.Schedule1
	.BeginUpdate
	.Calendar.Selection = {^2012-5-24}
	var_s = "gBFLBWIgBAEHhEJAEGg55hAvCcHAkIbD/i0JE0KhYnjQDFEaAQDhEMAAIhAPhBYKA6KhyMJjNZiMJyEA2EAxAUIk0HlEHlUsl0wmU0GYgGcig87AE9AE/lsvmMzEAym8"
	var_s = var_s + "BA=="
	.VisualDesign = var_s
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
7:
How can I change the visual appearance of the Events (Method 1)

with thisform.Schedule1
	.BeginUpdate
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Calendar.Selection = {^2012-5-24}
	.BodyEventBackColor = 0x1000000
	with .Events
		.Add({^2012-5-24 10:00:00},{^2012-5-24 12:00:00})
		.Add({^2012-5-24 10:45:00},{^2012-5-24 12:30:00})
		.Add({^2012-5-24 11:30:00},{^2012-5-24 13:30:00})
	endwith
	.EndUpdate
endwith
6:
How can I show the scheduler panel only, so no Calendar panel is shown

with thisform.Schedule1
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
endwith
5:
May I display the calendar in the right side of the control

with thisform.Schedule1
	.OnResizeControl = 1536 && OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exChangePanels
endwith
4:
Is it possible to disable resizing the vertical splitter

with thisform.Schedule1
	.OnResizeControl = 129 && OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizePanelRight
endwith
3:
How can I show the Calendar panel only

with thisform.Schedule1
	.OnResizeControl = 257 && OnResizeControlEnum.exHideSplitter Or OnResizeControlEnum.exResizePanelRight
endwith
2:
Is there an AutoHide option for the Calendar panel

with thisform.Schedule1
	.OnResizeControl = 2048
endwith
1:
How can I hide the Calendar panel

with thisform.Schedule1
	.OnResizeControl = 768 && OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
endwith