_ Partial Class frmMain Inherits DevExpress.XtraBars.FluentDesignSystem.FluentDesignForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim TimeRuler1 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler() Dim TimeRuler2 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler() Dim TimeRuler3 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler() Me.grd = New DevExpress.XtraGrid.GridControl() Me.grdv = New DevExpress.XtraGrid.Views.Grid.GridView() Me.ridtpStartEndDate = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.btnOpenFile = New DevExpress.XtraBars.BarButtonItem() Me.btnCategories = New DevExpress.XtraBars.BarButtonItem() Me.btnExport = New DevExpress.XtraBars.BarButtonItem() Me.SwitchToDayViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToDayViewItem() Me.SwitchToWorkWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem() Me.SwitchToWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWeekViewItem() Me.SwitchToFullWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem() Me.SwitchToMonthViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToMonthViewItem() Me.SwitchToTimelineViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem() Me.SwitchToGanttViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToGanttViewItem() Me.SwitchToAgendaViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToAgendaViewItem() Me.SwitchToYearViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToYearViewItem() Me.SwitchTimeScalesItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesItem() Me.ChangeScaleWidthItem1 = New DevExpress.XtraScheduler.UI.ChangeScaleWidthItem() Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit() Me.SwitchTimeScalesCaptionItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem() Me.SwitchCompressWeekendItem1 = New DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem() Me.SwitchShowWorkTimeOnlyItem1 = New DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem() Me.SwitchCellsAutoHeightItem1 = New DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem() Me.ChangeSnapToCellsUIItem1 = New DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem() Me.rpMain = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.rpgGeneral = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.ViewRibbonPage1 = New DevExpress.XtraScheduler.UI.ViewRibbonPage() Me.ActiveViewRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.ActiveViewRibbonPageGroup() Me.TimeScaleRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.TimeScaleRibbonPageGroup() Me.LayoutRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.LayoutRibbonPageGroup() Me.OFD = New System.Windows.Forms.OpenFileDialog() Me.tcMain = New DevExpress.XtraTab.XtraTabControl() Me.tpGrid = New DevExpress.XtraTab.XtraTabPage() Me.tpCalendar = New DevExpress.XtraTab.XtraTabPage() Me.sched = New DevExpress.XtraScheduler.SchedulerControl() Me.schedStorage = New DevExpress.XtraScheduler.SchedulerDataStorage(Me.components) Me.SFD = New System.Windows.Forms.SaveFileDialog() Me.splMain = New DevExpress.XtraEditors.SplitContainerControl() Me.xlsSheet = New DevExpress.XtraSpreadsheet.SpreadsheetControl() Me.SchedulerBarController1 = New DevExpress.XtraScheduler.UI.SchedulerBarController(Me.components) Me.FluentDesignFormContainer1 = New DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormContainer() Me.FluentDesignFormControl1 = New DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl() CType(Me.grd, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.grdv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ridtpStartEndDate, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ridtpStartEndDate.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.tcMain, System.ComponentModel.ISupportInitialize).BeginInit() Me.tcMain.SuspendLayout() Me.tpGrid.SuspendLayout() Me.tpCalendar.SuspendLayout() CType(Me.sched, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.schedStorage, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.splMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.splMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() Me.splMain.Panel1.SuspendLayout() CType(Me.splMain.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() Me.splMain.Panel2.SuspendLayout() Me.splMain.SuspendLayout() CType(Me.SchedulerBarController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.FluentDesignFormControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'grd ' Me.grd.Dock = System.Windows.Forms.DockStyle.Fill Me.grd.Location = New System.Drawing.Point(0, 0) Me.grd.MainView = Me.grdv Me.grd.Name = "grd" Me.grd.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.ridtpStartEndDate}) Me.grd.Size = New System.Drawing.Size(650, 517) Me.grd.TabIndex = 0 Me.grd.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grdv}) ' 'grdv ' Me.grdv.GridControl = Me.grd Me.grdv.Name = "grdv" ' 'ridtpStartEndDate ' Me.ridtpStartEndDate.AutoHeight = False Me.ridtpStartEndDate.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.ridtpStartEndDate.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.ridtpStartEndDate.DisplayFormat.FormatString = "g" Me.ridtpStartEndDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime Me.ridtpStartEndDate.EditFormat.FormatString = "g" Me.ridtpStartEndDate.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime Me.ridtpStartEndDate.MaskSettings.Set("mask", "g") Me.ridtpStartEndDate.Name = "ridtpStartEndDate" ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnOpenFile, Me.btnCategories, Me.btnExport, Me.SwitchToDayViewItem1, Me.SwitchToWorkWeekViewItem1, Me.SwitchToWeekViewItem1, Me.SwitchToFullWeekViewItem1, Me.SwitchToMonthViewItem1, Me.SwitchToTimelineViewItem1, Me.SwitchToGanttViewItem1, Me.SwitchToAgendaViewItem1, Me.SwitchToYearViewItem1, Me.SwitchTimeScalesItem1, Me.ChangeScaleWidthItem1, Me.SwitchTimeScalesCaptionItem1, Me.SwitchCompressWeekendItem1, Me.SwitchShowWorkTimeOnlyItem1, Me.SwitchCellsAutoHeightItem1, Me.ChangeSnapToCellsUIItem1}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 31) Me.RibbonControl1.MaxItemId = 20 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.rpMain, Me.ViewRibbonPage1}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.ShowOnMultiplePages Me.RibbonControl1.Size = New System.Drawing.Size(1062, 126) Me.RibbonControl1.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Hidden ' 'btnOpenFile ' Me.btnOpenFile.Caption = "Exceldatei öffnen..." Me.btnOpenFile.Id = 1 Me.btnOpenFile.ImageOptions.SvgImage = Global.FWCreateCalendar.My.Resources.Resources.open Me.btnOpenFile.Name = "btnOpenFile" ' 'btnCategories ' Me.btnCategories.Caption = "Kategorien bearbeiten..." Me.btnCategories.Id = 2 Me.btnCategories.ImageOptions.SvgImage = Global.FWCreateCalendar.My.Resources.Resources.viewsettings Me.btnCategories.Name = "btnCategories" Me.btnCategories.RibbonStyle = CType(((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText) _ Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText), DevExpress.XtraBars.Ribbon.RibbonItemStyles) ' 'btnExport ' Me.btnExport.Caption = "Exportieren..." Me.btnExport.Id = 3 Me.btnExport.ImageOptions.SvgImage = Global.FWCreateCalendar.My.Resources.Resources.exportfile Me.btnExport.Name = "btnExport" ' 'SwitchToDayViewItem1 ' Me.SwitchToDayViewItem1.Id = 4 Me.SwitchToDayViewItem1.Name = "SwitchToDayViewItem1" ' 'SwitchToWorkWeekViewItem1 ' Me.SwitchToWorkWeekViewItem1.Id = 5 Me.SwitchToWorkWeekViewItem1.Name = "SwitchToWorkWeekViewItem1" ' 'SwitchToWeekViewItem1 ' Me.SwitchToWeekViewItem1.Id = 6 Me.SwitchToWeekViewItem1.Name = "SwitchToWeekViewItem1" ' 'SwitchToFullWeekViewItem1 ' Me.SwitchToFullWeekViewItem1.Id = 7 Me.SwitchToFullWeekViewItem1.Name = "SwitchToFullWeekViewItem1" ' 'SwitchToMonthViewItem1 ' Me.SwitchToMonthViewItem1.Id = 8 Me.SwitchToMonthViewItem1.Name = "SwitchToMonthViewItem1" ' 'SwitchToTimelineViewItem1 ' Me.SwitchToTimelineViewItem1.Id = 9 Me.SwitchToTimelineViewItem1.Name = "SwitchToTimelineViewItem1" ' 'SwitchToGanttViewItem1 ' Me.SwitchToGanttViewItem1.Id = 10 Me.SwitchToGanttViewItem1.Name = "SwitchToGanttViewItem1" ' 'SwitchToAgendaViewItem1 ' Me.SwitchToAgendaViewItem1.Id = 11 Me.SwitchToAgendaViewItem1.Name = "SwitchToAgendaViewItem1" ' 'SwitchToYearViewItem1 ' Me.SwitchToYearViewItem1.Id = 12 Me.SwitchToYearViewItem1.Name = "SwitchToYearViewItem1" ' 'SwitchTimeScalesItem1 ' Me.SwitchTimeScalesItem1.Id = 13 Me.SwitchTimeScalesItem1.Name = "SwitchTimeScalesItem1" ' 'ChangeScaleWidthItem1 ' Me.ChangeScaleWidthItem1.Edit = Me.RepositoryItemSpinEdit1 Me.ChangeScaleWidthItem1.Id = 14 Me.ChangeScaleWidthItem1.Name = "ChangeScaleWidthItem1" Me.ChangeScaleWidthItem1.UseCommandCaption = True ' 'RepositoryItemSpinEdit1 ' Me.RepositoryItemSpinEdit1.AutoHeight = False Me.RepositoryItemSpinEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.RepositoryItemSpinEdit1.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.[Default] Me.RepositoryItemSpinEdit1.MaxValue = New Decimal(New Integer() {200, 0, 0, 0}) Me.RepositoryItemSpinEdit1.MinValue = New Decimal(New Integer() {10, 0, 0, 0}) Me.RepositoryItemSpinEdit1.Name = "RepositoryItemSpinEdit1" ' 'SwitchTimeScalesCaptionItem1 ' Me.SwitchTimeScalesCaptionItem1.Id = 15 Me.SwitchTimeScalesCaptionItem1.Name = "SwitchTimeScalesCaptionItem1" ' 'SwitchCompressWeekendItem1 ' Me.SwitchCompressWeekendItem1.Id = 16 Me.SwitchCompressWeekendItem1.Name = "SwitchCompressWeekendItem1" ' 'SwitchShowWorkTimeOnlyItem1 ' Me.SwitchShowWorkTimeOnlyItem1.Id = 17 Me.SwitchShowWorkTimeOnlyItem1.Name = "SwitchShowWorkTimeOnlyItem1" ' 'SwitchCellsAutoHeightItem1 ' Me.SwitchCellsAutoHeightItem1.Id = 18 Me.SwitchCellsAutoHeightItem1.Name = "SwitchCellsAutoHeightItem1" ' 'ChangeSnapToCellsUIItem1 ' Me.ChangeSnapToCellsUIItem1.Id = 19 Me.ChangeSnapToCellsUIItem1.Name = "ChangeSnapToCellsUIItem1" ' 'rpMain ' Me.rpMain.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.rpgGeneral}) Me.rpMain.Name = "rpMain" Me.rpMain.Text = "Allgemein" ' 'rpgGeneral ' Me.rpgGeneral.ItemLinks.Add(Me.btnOpenFile) Me.rpgGeneral.ItemLinks.Add(Me.btnCategories) Me.rpgGeneral.ItemLinks.Add(Me.btnExport) Me.rpgGeneral.Name = "rpgGeneral" Me.rpgGeneral.Text = "Allgemein" ' 'ViewRibbonPage1 ' Me.ViewRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ActiveViewRibbonPageGroup1, Me.TimeScaleRibbonPageGroup1, Me.LayoutRibbonPageGroup1}) Me.ViewRibbonPage1.Name = "ViewRibbonPage1" ' 'ActiveViewRibbonPageGroup1 ' Me.ActiveViewRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToDayViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWorkWeekViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWeekViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToFullWeekViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToMonthViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToTimelineViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToGanttViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToAgendaViewItem1) Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToYearViewItem1) Me.ActiveViewRibbonPageGroup1.Name = "ActiveViewRibbonPageGroup1" ' 'TimeScaleRibbonPageGroup1 ' Me.TimeScaleRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] Me.TimeScaleRibbonPageGroup1.ItemLinks.Add(Me.SwitchTimeScalesItem1) Me.TimeScaleRibbonPageGroup1.ItemLinks.Add(Me.ChangeScaleWidthItem1) Me.TimeScaleRibbonPageGroup1.ItemLinks.Add(Me.SwitchTimeScalesCaptionItem1) Me.TimeScaleRibbonPageGroup1.Name = "TimeScaleRibbonPageGroup1" ' 'LayoutRibbonPageGroup1 ' Me.LayoutRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False] Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.SwitchCompressWeekendItem1) Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.SwitchShowWorkTimeOnlyItem1) Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.SwitchCellsAutoHeightItem1) Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.ChangeSnapToCellsUIItem1) Me.LayoutRibbonPageGroup1.Name = "LayoutRibbonPageGroup1" ' 'OFD ' Me.OFD.Filter = "Excel-Dateien (*.xls, *.xlsx, *.xlsm)|*.xlsx;*.xls;*.xlsm|Alle Dateien (*.*)|*.*" ' 'tcMain ' Me.tcMain.Dock = System.Windows.Forms.DockStyle.Fill Me.tcMain.Location = New System.Drawing.Point(0, 0) Me.tcMain.Name = "tcMain" Me.tcMain.SelectedTabPage = Me.tpGrid Me.tcMain.Size = New System.Drawing.Size(652, 542) Me.tcMain.TabIndex = 2 Me.tcMain.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpGrid, Me.tpCalendar}) ' 'tpGrid ' Me.tpGrid.Controls.Add(Me.grd) Me.tpGrid.Name = "tpGrid" Me.tpGrid.Size = New System.Drawing.Size(650, 517) Me.tpGrid.Text = "Tabelle" ' 'tpCalendar ' Me.tpCalendar.Controls.Add(Me.sched) Me.tpCalendar.Name = "tpCalendar" Me.tpCalendar.Size = New System.Drawing.Size(650, 521) Me.tpCalendar.Text = "Kalender" ' 'sched ' Me.sched.ActiveViewType = DevExpress.XtraScheduler.SchedulerViewType.Year Me.sched.DataStorage = Me.schedStorage Me.sched.Dock = System.Windows.Forms.DockStyle.Fill Me.sched.Location = New System.Drawing.Point(0, 0) Me.sched.MenuManager = Me.RibbonControl1 Me.sched.Name = "sched" Me.sched.Size = New System.Drawing.Size(650, 521) Me.sched.Start = New Date(2021, 12, 27, 0, 0, 0, 0) Me.sched.TabIndex = 0 Me.sched.Text = "SchedulerControl1" Me.sched.Views.DayView.TimeRulers.Add(TimeRuler1) Me.sched.Views.FullWeekView.Enabled = True Me.sched.Views.FullWeekView.TimeRulers.Add(TimeRuler2) Me.sched.Views.WeekView.Enabled = False Me.sched.Views.WorkWeekView.TimeRulers.Add(TimeRuler3) Me.sched.Views.YearView.UseOptimizedScrolling = False ' 'schedStorage ' ' ' ' Me.schedStorage.AppointmentDependencies.AutoReload = False ' ' ' Me.schedStorage.Appointments.Labels.CreateNewLabel(0, "Keine", "&Keine", System.Drawing.SystemColors.Window) Me.schedStorage.Appointments.Labels.CreateNewLabel(1, "Wichtig", "W&ichtig", System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(194, Byte), Integer), CType(CType(190, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(2, "Geschäftlich", "&Geschäftlich", System.Drawing.Color.FromArgb(CType(CType(168, Byte), Integer), CType(CType(213, Byte), Integer), CType(CType(255, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(3, "Persönliche", "&Privat", System.Drawing.Color.FromArgb(CType(CType(193, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(156, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(4, "Urlaub", "&Urlaub", System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(228, Byte), Integer), CType(CType(199, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(5, "Teilnahme erforderlich", "Teiln&ahme erforderlich", System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(206, Byte), Integer), CType(CType(147, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(6, "Anreise einplanen", "&Anreise notwendig", System.Drawing.Color.FromArgb(CType(CType(199, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(255, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(7, "Vorbereitung notwendig", "Vorbereitung ¬wendig", System.Drawing.Color.FromArgb(CType(CType(207, Byte), Integer), CType(CType(219, Byte), Integer), CType(CType(152, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(8, "Geburtstag", "Ge&burtstag", System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(207, Byte), Integer), CType(CType(233, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(9, "Jahrestag", "J&ahrestag", System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(223, Byte), Integer))) Me.schedStorage.Appointments.Labels.CreateNewLabel(10, "Telefonanruf", "&Telefonanruf", System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(247, Byte), Integer), CType(CType(165, Byte), Integer))) ' 'SFD ' Me.SFD.Filter = "iCalendar (*.ics)|*.ics|Alle Dateien (*.*)|*.*" ' 'splMain ' Me.splMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.splMain.Dock = System.Windows.Forms.DockStyle.Fill Me.splMain.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.None Me.splMain.Location = New System.Drawing.Point(0, 157) Me.splMain.Name = "splMain" ' 'splMain.Panel1 ' Me.splMain.Panel1.Controls.Add(Me.tcMain) Me.splMain.Panel1.Text = "Panel1" ' 'splMain.Panel2 ' Me.splMain.Panel2.Controls.Add(Me.xlsSheet) Me.splMain.Panel2.Text = "Panel2" Me.splMain.Size = New System.Drawing.Size(1062, 542) Me.splMain.SplitterPosition = 652 Me.splMain.TabIndex = 4 ' 'xlsSheet ' Me.xlsSheet.Dock = System.Windows.Forms.DockStyle.Fill Me.xlsSheet.Location = New System.Drawing.Point(0, 0) Me.xlsSheet.MenuManager = Me.RibbonControl1 Me.xlsSheet.Name = "xlsSheet" Me.xlsSheet.ReadOnly = True Me.xlsSheet.Size = New System.Drawing.Size(400, 542) Me.xlsSheet.TabIndex = 0 Me.xlsSheet.Text = "SpreadsheetControl1" ' 'SchedulerBarController1 ' Me.SchedulerBarController1.BarItems.Add(Me.SwitchToDayViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToWorkWeekViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToWeekViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToFullWeekViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToMonthViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToTimelineViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToGanttViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToAgendaViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchToYearViewItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchTimeScalesItem1) Me.SchedulerBarController1.BarItems.Add(Me.ChangeScaleWidthItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchTimeScalesCaptionItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchCompressWeekendItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchShowWorkTimeOnlyItem1) Me.SchedulerBarController1.BarItems.Add(Me.SwitchCellsAutoHeightItem1) Me.SchedulerBarController1.BarItems.Add(Me.ChangeSnapToCellsUIItem1) Me.SchedulerBarController1.Control = Me.sched ' 'FluentDesignFormContainer1 ' Me.FluentDesignFormContainer1.Dock = System.Windows.Forms.DockStyle.Fill Me.FluentDesignFormContainer1.Location = New System.Drawing.Point(0, 31) Me.FluentDesignFormContainer1.Name = "FluentDesignFormContainer1" Me.FluentDesignFormContainer1.Size = New System.Drawing.Size(1062, 668) Me.FluentDesignFormContainer1.TabIndex = 6 ' 'FluentDesignFormControl1 ' Me.FluentDesignFormControl1.FluentDesignForm = Me Me.FluentDesignFormControl1.Location = New System.Drawing.Point(0, 0) Me.FluentDesignFormControl1.Name = "FluentDesignFormControl1" Me.FluentDesignFormControl1.Size = New System.Drawing.Size(1062, 31) Me.FluentDesignFormControl1.TabIndex = 8 Me.FluentDesignFormControl1.TabStop = False ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1062, 699) Me.ControlContainer = Me.FluentDesignFormContainer1 Me.Controls.Add(Me.splMain) Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.FluentDesignFormContainer1) Me.Controls.Add(Me.FluentDesignFormControl1) Me.FluentDesignFormControl = Me.FluentDesignFormControl1 Me.Name = "frmMain" Me.Text = "Feuerwehrkalender erstellen" CType(Me.grd, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.grdv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ridtpStartEndDate.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ridtpStartEndDate, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.tcMain, System.ComponentModel.ISupportInitialize).EndInit() Me.tcMain.ResumeLayout(False) Me.tpGrid.ResumeLayout(False) Me.tpCalendar.ResumeLayout(False) CType(Me.sched, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.schedStorage, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.splMain.Panel1, System.ComponentModel.ISupportInitialize).EndInit() Me.splMain.Panel1.ResumeLayout(False) CType(Me.splMain.Panel2, System.ComponentModel.ISupportInitialize).EndInit() Me.splMain.Panel2.ResumeLayout(False) CType(Me.splMain, System.ComponentModel.ISupportInitialize).EndInit() Me.splMain.ResumeLayout(False) CType(Me.SchedulerBarController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.FluentDesignFormControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents grd As DevExpress.XtraGrid.GridControl Friend WithEvents grdv As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents rpMain As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents rpgGeneral As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents btnOpenFile As DevExpress.XtraBars.BarButtonItem Friend WithEvents OFD As OpenFileDialog Friend WithEvents tcMain As DevExpress.XtraTab.XtraTabControl Friend WithEvents tpGrid As DevExpress.XtraTab.XtraTabPage Friend WithEvents tpCalendar As DevExpress.XtraTab.XtraTabPage Friend WithEvents sched As DevExpress.XtraScheduler.SchedulerControl Friend WithEvents schedStorage As DevExpress.XtraScheduler.SchedulerDataStorage Friend WithEvents btnCategories As DevExpress.XtraBars.BarButtonItem Friend WithEvents btnExport As DevExpress.XtraBars.BarButtonItem Friend WithEvents SFD As SaveFileDialog Friend WithEvents splMain As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents xlsSheet As DevExpress.XtraSpreadsheet.SpreadsheetControl Friend WithEvents SwitchToDayViewItem1 As DevExpress.XtraScheduler.UI.SwitchToDayViewItem Friend WithEvents SwitchToWorkWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem Friend WithEvents SwitchToWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWeekViewItem Friend WithEvents SwitchToFullWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem Friend WithEvents SwitchToMonthViewItem1 As DevExpress.XtraScheduler.UI.SwitchToMonthViewItem Friend WithEvents SwitchToTimelineViewItem1 As DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem Friend WithEvents SwitchToGanttViewItem1 As DevExpress.XtraScheduler.UI.SwitchToGanttViewItem Friend WithEvents SwitchToAgendaViewItem1 As DevExpress.XtraScheduler.UI.SwitchToAgendaViewItem Friend WithEvents SwitchToYearViewItem1 As DevExpress.XtraScheduler.UI.SwitchToYearViewItem Friend WithEvents SwitchTimeScalesItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesItem Friend WithEvents ChangeScaleWidthItem1 As DevExpress.XtraScheduler.UI.ChangeScaleWidthItem Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit Friend WithEvents SwitchTimeScalesCaptionItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem Friend WithEvents SwitchCompressWeekendItem1 As DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem Friend WithEvents SwitchShowWorkTimeOnlyItem1 As DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem Friend WithEvents SwitchCellsAutoHeightItem1 As DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem Friend WithEvents ChangeSnapToCellsUIItem1 As DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem Friend WithEvents ViewRibbonPage1 As DevExpress.XtraScheduler.UI.ViewRibbonPage Friend WithEvents ActiveViewRibbonPageGroup1 As DevExpress.XtraScheduler.UI.ActiveViewRibbonPageGroup Friend WithEvents TimeScaleRibbonPageGroup1 As DevExpress.XtraScheduler.UI.TimeScaleRibbonPageGroup Friend WithEvents LayoutRibbonPageGroup1 As DevExpress.XtraScheduler.UI.LayoutRibbonPageGroup Friend WithEvents SchedulerBarController1 As DevExpress.XtraScheduler.UI.SchedulerBarController Friend WithEvents FluentDesignFormContainer1 As DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormContainer Friend WithEvents FluentDesignFormControl1 As DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl Friend WithEvents ridtpStartEndDate As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit End Class