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,70 @@
+'
+'{************************************************************************************}
+'{                                                                                    }
+'{   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