object frCalendarioBasico: TfrCalendarioBasico Left = 0 Top = 0 Width = 822 Height = 680 Color = 16383743 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 Entidad = entAgenda object BarraAgenda: TRdxBarraSuperior Left = 0 Top = 0 Width = 822 Height = 25 Caption = 'Agenda de entregas y montajes' Font.Charset = DEFAULT_CHARSET Font.Color = 11590911 Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [fsBold] Color = 18299 ColorHighLight = 8623776 ColorShadow = 8623776 Align = alTop Alignment = taRightJustify TabOrder = 0 UseDockManager = True Margen = 5 object imgSombra: TImage Left = 0 Top = 0 Width = 822 Height = 8 Align = alTop end object bSeparador1: TShape Left = 212 Top = 5 Width = 1 Height = 17 Brush.Style = bsClear Pen.Color = 4759522 Pen.Style = psDot end object bConsultar: TRdxBotonSuperior Left = 143 Top = 5 Width = 65 Height = 15 Action = actEliminar Alignment = taCenter ColorFocused = 4759522 ColorDown = 4759522 ColorBorder = 4759522 ColorHighLight = 11590911 ColorShadow = 11590911 Font.Charset = DEFAULT_CHARSET Font.Color = 11590911 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 2654615 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 5 ParentFont = False TabOrder = 0 Spacing = 6 end object RdxBotonSuperior1: TRdxBotonSuperior Left = 4 Top = 5 Width = 65 Height = 15 Action = actAnadir Alignment = taCenter ColorFocused = 4759522 ColorDown = 4759522 ColorBorder = 4759522 ColorHighLight = 11590911 ColorShadow = 11590911 Font.Charset = DEFAULT_CHARSET Font.Color = 11590911 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 2654615 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 5 ParentFont = False TabOrder = 1 Spacing = 6 end object RdxBotonSuperior2: TRdxBotonSuperior Left = 73 Top = 5 Width = 65 Height = 15 Action = actModificar Alignment = taCenter ColorFocused = 4759522 ColorDown = 4759522 ColorBorder = 4759522 ColorHighLight = 11590911 ColorShadow = 11590911 Font.Charset = DEFAULT_CHARSET Font.Color = 11590911 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 2654615 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 5 ParentFont = False TabOrder = 2 Spacing = 6 end object bImprimir: TRdxBotonSuperior Left = 218 Top = 5 Width = 65 Height = 15 Action = actImprimir Alignment = taCenter ColorFocused = 4759522 ColorDown = 4759522 ColorBorder = 4759522 ColorHighLight = 11590911 ColorShadow = 11590911 Font.Charset = DEFAULT_CHARSET Font.Color = 11590911 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 2654615 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 5 ParentFont = False TabOrder = 3 Spacing = 6 end end object pnlExtra: TRdxBarraSuperior Left = 0 Top = 25 Width = 822 Height = 25 Caption = ' ' BorderWidth = 1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [fsBold] Color = 14280169 ColorHighLight = 8623776 ColorShadow = 8623776 Align = alTop Alignment = taRightJustify TabOrder = 1 UseDockManager = True Margen = 5 object Shape1: TShape Left = 222 Top = 4 Width = 1 Height = 17 Brush.Style = bsClear Pen.Color = 5594726 Pen.Style = psDot end object bRefrescar: TRdxBoton Left = 228 Top = 3 Width = 116 Height = 19 Action = actRefrescar Alignment = taLeftJustify Color = 15726583 ColorFocused = 12775679 ColorDown = 16383743 ColorBorder = 8623776 ColorHighLight = 5594726 ColorShadow = 5594726 Font.Charset = DEFAULT_CHARSET Font.Color = 5594726 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 5594726 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000C40E0000C40E000010000000000000000084840003B1 B300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222 2222222222222222222222222100011222222222000000012222222012222100 1222222222222210022222202222222000222200022220000000200000222200 0002000000022220002222000222222202222220012222222222222100122221 0222222210000000222222222110001222222222222222222222} Margin = 3 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 2 end object RdxBoton1: TRdxBoton Left = 3 Top = 3 Width = 60 Height = 19 Action = actDia Alignment = taLeftJustify Color = 15726583 ColorFocused = 12775679 ColorDown = 16383743 ColorBorder = 8623776 ColorHighLight = 5594726 ColorShadow = 5594726 Font.Charset = DEFAULT_CHARSET Font.Color = 5594726 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 5594726 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 3 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 2 end object RdxBoton2: TRdxBoton Left = 68 Top = 3 Width = 73 Height = 19 Action = actSemana Alignment = taLeftJustify Color = 15726583 ColorFocused = 12775679 ColorDown = 16383743 ColorBorder = 8623776 ColorHighLight = 5594726 ColorShadow = 5594726 Font.Charset = DEFAULT_CHARSET Font.Color = 5594726 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 5594726 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 3 ParentFont = False ParentColor = False TabStop = True TabOrder = 2 Spacing = 2 end object RdxBoton3: TRdxBoton Left = 144 Top = 3 Width = 73 Height = 19 Action = actMes Alignment = taLeftJustify Color = 15726583 ColorFocused = 12775679 ColorDown = 16383743 ColorBorder = 8623776 ColorHighLight = 5594726 ColorShadow = 5594726 Font.Charset = DEFAULT_CHARSET Font.Color = 5594726 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 5594726 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 3 ParentFont = False ParentColor = False TabStop = True TabOrder = 3 Spacing = 2 end object RdxBoton4: TRdxBoton Left = 467 Top = 3 Width = 95 Height = 19 Action = actSemana5 Alignment = taLeftJustify Color = 15726583 ColorFocused = 12775679 ColorDown = 16383743 ColorBorder = 8623776 ColorHighLight = 5594726 ColorShadow = 5594726 Font.Charset = DEFAULT_CHARSET Font.Color = 5594726 Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = 5594726 FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [fsBold] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 3 ParentFont = False ParentColor = False TabStop = True TabOrder = 4 Spacing = 2 Visible = False end end object cxScheduler: TcxScheduler Left = 0 Top = 50 Width = 822 Height = 630 DateNavigator.RowCount = 2 DateNavigator.ShowWeekNumbers = False ViewDay.AutoContentHeight = True ViewDay.GroupingKind = gkByDate ViewTimeGrid.ShowTimeAsClock = True ViewWeek.GroupingKind = gkByDate ViewWeek.ShowTimeAsClock = True ViewWeeks.Active = True ViewWeeks.GroupingKind = gkNone ViewWeeks.ShowTimeAsClock = True OnCustomDrawEvent = cxSchedulerCustomDrawEvent Align = alClient BevelInner = bvNone BevelOuter = bvNone BorderStyle = cxcbsNone ContentPopupMenu.Items = [cpmiNewEvent, cpmiToday, cpmiGoToThisDay] DialogsLookAndFeel.NativeStyle = True EventOperations.InplaceEditing = False EventOperations.Recurrence = False EventPopupMenu.Items = [epmiOpen, epmiDelete] LookAndFeel.Kind = lfUltraFlat LookAndFeel.NativeStyle = False OptionsCustomize.DynamicSizing = True OptionsView.DayBorderColor = clActiveCaption OptionsView.ShowEventsWithoutResource = True OptionsView.WorkDays = [dMonday, dTuesday, dWednesday, dThursday, dFriday, dSaturday] OptionsView.WorkStart = 0.416666666666666700 OptionsView.WorkFinish = 0.854166666666666800 ParentFont = True ShowHint = True Storage = cxSchedulerDBStorage TabOrder = 2 OnBeforeEditing = cxSchedulerBeforeEditing Selection = 56 Splitters = { A7020000FA00000036030000FF000000A202000000000000A702000076020000} StoredClientBounds = {00000000000000003603000076020000} end object cxSchedulerDBStorage: TcxSchedulerDBStorage Resources.Items = <> Resources.ResourceID = 'CODIGO' Resources.ResourceName = 'NOMBRE' CustomFields = <> FieldNames.Caption = 'CAPTION' FieldNames.EventType = 'TYPE' FieldNames.Finish = 'FINISH' FieldNames.ID = 'ID' FieldNames.LabelColor = 'LABELCOLOR' FieldNames.Location = 'LOCATION' FieldNames.Message = 'MESSAGE' FieldNames.Options = 'OPTIONS' FieldNames.ParentID = 'PARENTID' FieldNames.ResourceID = 'RESOURCEID' FieldNames.Start = 'START' FieldNames.State = 'STATE' Left = 576 Top = 104 end object ActionList: TActionList Left = 376 Top = 16 object actDia: TAction Caption = 'D'#237'a' OnExecute = actDiaExecute end object actSemana: TAction Caption = 'Semana' OnExecute = actSemanaExecute end object actMes: TAction Caption = 'Mes' OnExecute = actMesExecute end object actVerTodos: TAction Caption = 'Ver todos' end object actAnadir: TAction Caption = 'A'#241'adir' OnExecute = actAnadirExecute end object actModificar: TAction Caption = 'Modificar' OnExecute = actModificarExecute OnUpdate = actModificarUpdate end object actEliminar: TAction Caption = 'Eliminar' OnExecute = actEliminarExecute OnUpdate = actEliminarUpdate end object actRefrescar: TAction Caption = 'Refrescar datos' OnExecute = actRefrescarExecute end object actSemana5: TAction Caption = 'Semana laboral' OnExecute = actSemana5Execute end object actImprimir: TAction Caption = 'Imprimir' OnExecute = actImprimirExecute end end object dxComponentPrinter1: TdxComponentPrinter CurrentLink = dxComponentPrinter1Link2 PreviewOptions.EnableOptions = [peoPageSetup, peoPrint] PreviewOptions.Caption = 'Vista previa' PreviewOptions.VisibleOptions = [pvoPageSetup, pvoPrint, pvoPageMargins] Version = 0 Left = 520 Top = 224 object dxComponentPrinter1Link2: TcxSchedulerReportLink Active = True Component = cxScheduler PrinterPage.DMPaper = 9 PrinterPage.Footer = 6350 PrinterPage.Header = 6350 PrinterPage.Margins.Bottom = 12700 PrinterPage.Margins.Left = 12700 PrinterPage.Margins.Right = 12700 PrinterPage.Margins.Top = 12700 PrinterPage.PageSize.X = 210000 PrinterPage.PageSize.Y = 297000 PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 ReportDocument.CreationDate = 38763.473480717590000000 OptionsFormatting.SuppressBackgroundBitmaps = True OptionsFormatting.UseNativeStyles = True PrintRange.TimePrintFrom = 0.416666666666666700 PrintRange.TimePrintTo = 0.854166666666666600 PrintStyles.Weekly.Active = True SupportedCustomDraw = True BuiltInReportLink = True end end object dxPrintDialog1: TdxPrintDialog ButtonsEnabled = [pdbPrinterProperties, pdbNetwork, pdbPreview, pdbPageSetup] ButtonsVisible = [pdbPrinterProperties, pdbNetwork, pdbPreview] OptionsEnabled = [pdoAllPages, pdoPageRange] Left = 368 Top = 176 end end