'
'{************************************************************************************}
'{                                                                                    }
'{   DO NOT MODIFY THIS FILE!                                                         }
'{                                                                                    }
'{   It will be overwritten without prompting when a new version becomes              }
'{   available. All your changes will be lost.                                        }
'{                                                                                    }
'{   This file contains the default template and is required for the form             }
'{   rendering. Improper modifications may result in incorrect behavior of            }
'{   the appointment form.                                                            }
'{                                                                                    }
'{   In order to create and use your own custom template, perform the following       }
'{   steps:                                                                           }
'{       1. Save a copy of this file with a different name in another location.       }
'{       2. Specify the file location as the 'OptionsForms.GotoDateFormTemplateUrl'   }
'{          property of the ASPxScheduler control.                                    }
'{       3. If you need to display and process additional controls, you               }
'{          should accomplish steps 4-6; otherwise, go to step 7.                     }
'{       4. Create a class, derived from the GotoDateFormTemplateContainer,           }
'{          containing additional properties which correspond to your controls.       }
'{          This class definition can be located within a class file in the App_Code  }
'{          folder.                                                                   }
'{       5. Replace GotoDateFormTemplateContainer references in the template page     }
'{          with the name of the class you've created in step 4.                      }
'{       6. Handle the GotoDateFormShowing event to create an instance of the         }
'{          template container class, defined in step 5, and specify it as the        }
'{          destination container  instead of the  default one.                       }
'{       7. Modify the overall appearance of the page and its layout.                 }
'{                                                                                    }
'{************************************************************************************}
'


Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.Web
Imports DevExpress.Web.ASPxScheduler

Partial Public Class GotoDateForm
	Inherits SchedulerFormControl
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
		'PrepareChildControls();
		edtDate.Focus()
	End Sub

	Public Overrides Sub DataBind()
		MyBase.DataBind()
		Dim container As GotoDateFormTemplateContainer = CType(Parent, GotoDateFormTemplateContainer)
		cbView.Value = container.ActiveViewType.ToString()

		btnOk.ClientSideEvents.Click = container.ApplyHandler
		btnCancel.ClientSideEvents.Click = container.CancelHandler

		Dim scheduler As ASPxScheduler = container.Control
		Dim actualSchedulerInstanceName As String = scheduler.ClientInstanceName
		If String.IsNullOrEmpty(actualSchedulerInstanceName) Then
			actualSchedulerInstanceName = scheduler.ClientID
		End If
		edtDate.ClientSideEvents.LostFocus = String.Format("function(s,e) {{" & ControlChars.CrLf & "                var date = s.GetDate();" & ControlChars.CrLf & "                if (date == null || date == false) {{" & ControlChars.CrLf & "                    var selectionInterval = {0}.GetSelectedInterval();" & ControlChars.CrLf & "                    var startDate = selectionInterval.GetStart();" & ControlChars.CrLf & "                    s.SetDate(startDate);" & ControlChars.CrLf & "                }}" & ControlChars.CrLf & "            }}", actualSchedulerInstanceName)
	End Sub
	Protected Overrides Function GetChildEditors() As ASPxEditBase()
		Dim edits() As ASPxEditBase = { lblDate, edtDate, lblView, cbView }
		Return edits
	End Function
	Protected Overrides Function GetChildButtons() As ASPxButton()
		Dim buttons() As ASPxButton = { btnOk, btnCancel }
		Return buttons
	End Function
End Class