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,87 @@
+'
+'{************************************************************************************}
+'{                                                                                    }
+'{   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 appointment      }
+'{   rendering. Improper modifications may result in incorrect appearance of the      }
+'{   appointment.                                                                     }
+'{                                                                                    }
+'{   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. Add a Register tag in the .aspx page header for each template you use,    }
+'{          as follows: <%@ Register Src="PathToTemplateFile" TagName="NameOfTemplate"}
+'{          TagPrefix="ShortNameOfTemplate" %>                                        }
+'{       3. In the .aspx page find the tags for different scheduler views within      }
+'{          the ASPxScheduler control tag. Insert template tags into the tags         }
+'{          for the views which should be customized.                                 }
+'{          The template tag should satisfy the following pattern:                    }
+'{          <Templates>                                                               }
+'{              <HorizontalAppointmentTemplate>                                       }
+'{                  < ShortNameOfTemplate: NameOfTemplate runat="server"/>            }
+'{              </HorizontalAppointmentTemplate>                                      }
+'{          </Templates>                                                              }
+'{          where ShortNameOfTemplate, NameOfTemplate are the names of the            }
+'{          registered templates, defined in step 2.                                  }
+'{************************************************************************************}
+'
+
+
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Web.UI.WebControls
+Imports System.Web.UI.HtmlControls
+Imports DevExpress.Web.ASPxScheduler
+Imports DevExpress.Web.ASPxScheduler.Drawing
+
+Partial Public Class HorizontalAppointmentTemplate
+	Inherits System.Web.UI.UserControl
+	Private ReadOnly Property Container() As HorizontalAppointmentTemplateContainer
+		Get
+			Return CType(Parent, HorizontalAppointmentTemplateContainer)
+		End Get
+	End Property
+	Private ReadOnly Property Items() As HorizontalAppointmentTemplateItems
+		Get
+			Return Container.Items
+		End Get
+	End Property
+
+	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
+		appointmentDiv.Style.Value = Items.AppointmentStyle.GetStyleAttributes(Page).Value
+
+		lblTitle.ControlStyle.MergeWith(Items.Title.Style)
+		lblStartContinueText.ControlStyle.MergeWith(Items.StartContinueText.Style)
+		lblEndContinueText.ControlStyle.MergeWith(Items.EndContinueText.Style)
+
+		LayoutAppointmentImages()
+
+		statusContainer.Controls.Add(Items.StatusControl)
+		startTimeClockContainer.Controls.Add(Items.StartTimeClock)
+		endTimeClockContainer.Controls.Add(Items.EndTimeClock)
+	End Sub
+	Private Sub LayoutAppointmentImages()
+		Dim count As Integer = Items.Images.Count
+		Dim row As New HtmlTableRow()
+		row.Cells.Add(New HtmlTableCell())
+		For i As Integer = 0 To count - 1
+			Dim cell As New HtmlTableCell()
+			AddImage(cell, Items.Images(i))
+			row.Cells.Add(cell)
+		Next i
+		imageContainer.Rows.Add(row)
+
+		Items.StartContinueArrow.ImageProperties.AssignToControl(imgStartContinueArrow, False)
+		Items.EndContinueArrow.ImageProperties.AssignToControl(imgEndContinueArrow, False)
+	End Sub
+	Private Sub AddImage(ByVal targetCell As HtmlTableCell, ByVal imageItem As AppointmentImageItem)
+		Dim image As New Image()
+		imageItem.ImageProperties.AssignToControl(image, False)
+		targetCell.Controls.Add(image)
+	End Sub
+
+End Class