This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
FactuGES/Agenda/CalendarioBasico.dfm
2007-06-26 08:08:27 +00:00

543 lines
16 KiB
Plaintext

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