Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,67 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Data
+Imports System.Configuration
+Imports System.Collections
+Imports System.Web
+Imports System.Web.Security
+Imports System.Web.UI
+Imports System.Web.UI.WebControls
+Imports System.Web.UI.WebControls.WebParts
+Imports System.Web.UI.HtmlControls
+Imports DevExpress.Web.ASPxScheduler
+Imports DevExpress.XtraScheduler
+Imports DevExpress.Web.ASPxScheduler.Internal
+Imports DevExpress.Web
+Imports DevExpress.XtraScheduler.Native
+Imports DevExpress.XtraScheduler.Localization
+
+Partial Public Class ReminderForm
+	Inherits SchedulerFormControl
+	Public Sub New()
+		MyBase.New()
+	End Sub
+	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
+		'PrepareChildControls();
+	End Sub
+	Public Overrides Sub DataBind()
+		MyBase.DataBind()
+
+		Dim container As RemindersFormTemplateContainer = CType(Parent, RemindersFormTemplateContainer)
+
+		btnDismiss.ClientSideEvents.Click = container.DismissReminderHandler
+		btnDismissAll.ClientSideEvents.Click = container.DismissAllRemindersHandler
+		btnSnooze.ClientSideEvents.Click = container.SnoozeRemindersHandler
+
+		InitItemListBox(container)
+		InitSnoozeCombo(container)
+	End Sub
+	Private Sub InitItemListBox(ByVal container As RemindersFormTemplateContainer)
+		Dim reminders As ReminderCollection = container.Reminders
+		Dim count As Integer = reminders.Count
+		For i As Integer = 0 To count - 1
+			Dim reminder As Reminder = reminders(i)
+			Dim item As New ListEditItem(reminder.Subject, i)
+			lbItems.Items.Add(item)
+		Next i
+		lbItems.SelectedIndex = 0
+	End Sub
+	Private Sub InitSnoozeCombo(ByVal container As RemindersFormTemplateContainer)
+		cbSnooze.Items.Clear()
+		Dim timeSpans() As TimeSpan = container.SnoozeTimeSpans
+		Dim count As Integer = timeSpans.Length
+		For i As Integer = 0 To count - 1
+			Dim timeSpan As TimeSpan = timeSpans(i)
+			cbSnooze.Items.Add(New ListEditItem(container.ConvertSnoozeTimeSpanToString(timeSpan), timeSpan))
+		Next i
+		cbSnooze.SelectedIndex = 4
+	End Sub
+	Protected Overrides Function GetChildEditors() As ASPxEditBase()
+		Dim edits() As ASPxEditBase = { lbItems, lblClickSnooze, cbSnooze }
+		Return edits
+	End Function
+	Protected Overrides Function GetChildButtons() As ASPxButton()
+		Dim buttons() As ASPxButton = { btnDismissAll, btnDismiss, btnSnooze }
+		Return buttons
+	End Function
+End Class