david
a7a938bd7f
git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/trunk@4 172823e9-465a-9d4b-80ba-0a9f016f4eb1
784 lines
22 KiB
Plaintext
784 lines
22 KiB
Plaintext
object frAgenda: TfrAgenda
|
|
Left = 0
|
|
Top = 0
|
|
Width = 673
|
|
Height = 438
|
|
Color = 16383743
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnExit = RdxFrameExit
|
|
OnShow = RdxFrameShow
|
|
object Splitter1: TSplitter
|
|
Left = 390
|
|
Top = 50
|
|
Width = 1
|
|
Height = 388
|
|
Align = alRight
|
|
Color = 8623776
|
|
ParentColor = False
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 391
|
|
Top = 50
|
|
Width = 282
|
|
Height = 388
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
BorderWidth = 10
|
|
ParentColor = True
|
|
TabOrder = 0
|
|
object gridVisitas: TcxGrid
|
|
Left = 10
|
|
Top = 67
|
|
Width = 262
|
|
Height = 290
|
|
Align = alClient
|
|
BevelInner = bvNone
|
|
BevelKind = bkFlat
|
|
BorderStyle = cxcbsNone
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnResize = gridVisitasResize
|
|
LookAndFeel.Kind = lfFlat
|
|
LookAndFeel.NativeStyle = True
|
|
object gridVisitasDBCardView1: TcxGridDBCardView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = dsVisitas
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
LayoutDirection = ldVertical
|
|
OptionsCustomize.RowFiltering = False
|
|
OptionsData.DeletingConfirmation = False
|
|
OptionsView.ScrollBars = ssVertical
|
|
OptionsView.CardBorderWidth = 1
|
|
OptionsView.CellAutoHeight = True
|
|
Styles.StyleSheet = dmConfiguracion.StyleSheetCard
|
|
end
|
|
object gridVisitasDBTableView1: TcxGridDBTableView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = dsVisitas
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsBehavior.FocusCellOnTab = True
|
|
OptionsSelection.HideSelection = True
|
|
OptionsView.Indicator = True
|
|
Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
|
|
object gridVisitasDBTableView1DBColumn1: TcxGridDBColumn
|
|
PropertiesClassName = 'TcxTimeEditProperties'
|
|
Properties.ImmediatePost = True
|
|
end
|
|
end
|
|
object gridVisitasLevel1: TcxGridLevel
|
|
GridView = gridVisitasDBCardView1
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 10
|
|
Top = 357
|
|
Width = 262
|
|
Height = 21
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 0
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 10
|
|
Top = 10
|
|
Width = 262
|
|
Height = 31
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 1
|
|
object eListaVisitas: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 273
|
|
Height = 25
|
|
AutoSize = False
|
|
Caption = 'Visitas'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Layout = tlCenter
|
|
end
|
|
end
|
|
object pnlBarraGrid: TRdxPanel
|
|
Left = 10
|
|
Top = 41
|
|
Width = 262
|
|
Height = 26
|
|
Caption = ' '
|
|
ParentColor = True
|
|
ColorHighLight = 8623776
|
|
ColorShadow = 16383743
|
|
Align = alTop
|
|
TabOrder = 3
|
|
UseDockManager = True
|
|
object bAnadir: TRdxBoton
|
|
Left = 0
|
|
Top = 0
|
|
Width = 85
|
|
Height = 19
|
|
Action = actAnadir
|
|
Alignment = taLeftJustify
|
|
Color = 14280169
|
|
ColorFocused = 12775679
|
|
ColorDown = 14280169
|
|
ColorBorder = 8623776
|
|
ColorHighLight = 8623776
|
|
ColorShadow = 8623776
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
FontDown.Charset = DEFAULT_CHARSET
|
|
FontDown.Color = clWindowText
|
|
FontDown.Height = -11
|
|
FontDown.Name = 'Tahoma'
|
|
FontDown.Style = []
|
|
FontDisabled.Charset = DEFAULT_CHARSET
|
|
FontDisabled.Color = clWindowText
|
|
FontDisabled.Height = -11
|
|
FontDisabled.Name = 'MS Sans Serif'
|
|
FontDisabled.Style = []
|
|
Margin = 10
|
|
ParentFont = False
|
|
ParentColor = False
|
|
TabStop = True
|
|
TabOrder = 0
|
|
Spacing = 0
|
|
end
|
|
object bEliminar: TRdxBoton
|
|
Left = 88
|
|
Top = 0
|
|
Width = 85
|
|
Height = 19
|
|
Action = actEliminar
|
|
Alignment = taLeftJustify
|
|
Color = 14280169
|
|
ColorFocused = 12775679
|
|
ColorDown = 14280169
|
|
ColorBorder = 8623776
|
|
ColorHighLight = 8623776
|
|
ColorShadow = 8623776
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
FontDown.Charset = DEFAULT_CHARSET
|
|
FontDown.Color = clWindowText
|
|
FontDown.Height = -11
|
|
FontDown.Name = 'Tahoma'
|
|
FontDown.Style = []
|
|
FontDisabled.Charset = DEFAULT_CHARSET
|
|
FontDisabled.Color = clWindowText
|
|
FontDisabled.Height = -11
|
|
FontDisabled.Name = 'MS Sans Serif'
|
|
FontDisabled.Style = []
|
|
Margin = 10
|
|
ParentFont = False
|
|
ParentColor = False
|
|
TabStop = True
|
|
TabOrder = 1
|
|
Spacing = 0
|
|
end
|
|
object bEliminarTodo: TRdxBoton
|
|
Left = 176
|
|
Top = 0
|
|
Width = 85
|
|
Height = 19
|
|
Action = actEliminarTodo
|
|
Alignment = taLeftJustify
|
|
Color = 14280169
|
|
ColorFocused = 12775679
|
|
ColorDown = 14280169
|
|
ColorBorder = 8623776
|
|
ColorHighLight = 8623776
|
|
ColorShadow = 8623776
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
FontDown.Charset = DEFAULT_CHARSET
|
|
FontDown.Color = clWindowText
|
|
FontDown.Height = -11
|
|
FontDown.Name = 'Tahoma'
|
|
FontDown.Style = []
|
|
FontDisabled.Charset = DEFAULT_CHARSET
|
|
FontDisabled.Color = clWindowText
|
|
FontDisabled.Height = -11
|
|
FontDisabled.Name = 'MS Sans Serif'
|
|
FontDisabled.Style = []
|
|
Margin = 10
|
|
ParentFont = False
|
|
ParentColor = False
|
|
TabStop = True
|
|
TabOrder = 2
|
|
Spacing = 0
|
|
end
|
|
end
|
|
end
|
|
object pnlExtra: TRdxBarraSuperior
|
|
Left = 0
|
|
Top = 25
|
|
Width = 673
|
|
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 eUsuario: TPanel
|
|
Left = 5
|
|
Top = 5
|
|
Width = 49
|
|
Height = 17
|
|
BevelOuter = bvNone
|
|
Caption = 'Usuario:'
|
|
Color = 14280169
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentBackground = True
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 0
|
|
end
|
|
object cbxUsuarios: TcxLookupComboBox
|
|
Left = 58
|
|
Top = 2
|
|
ParentFont = False
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.GridMode = True
|
|
Properties.HideSelection = False
|
|
Properties.ImmediatePost = True
|
|
Properties.KeyFieldNames = 'USUARIO'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'NOMBRE'
|
|
end>
|
|
Properties.ListOptions.AnsiSort = True
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListSource = dsUsuarios
|
|
Properties.ReadOnly = False
|
|
Properties.OnEditValueChanged = cbxUsuariosPropertiesEditValueChanged
|
|
EditValue = ''
|
|
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
|
|
TabOrder = 1
|
|
Width = 272
|
|
end
|
|
object bRefrescar: TRdxBoton
|
|
Left = 336
|
|
Top = 3
|
|
Width = 118
|
|
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 = 2
|
|
Spacing = 2
|
|
end
|
|
end
|
|
object BarraAgenda: TRdxBarraSuperior
|
|
Left = 0
|
|
Top = 0
|
|
Width = 673
|
|
Height = 25
|
|
Caption = 'Agenda'
|
|
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 = 2
|
|
UseDockManager = True
|
|
Margen = 5
|
|
object imgSombra: TImage
|
|
Left = 0
|
|
Top = 0
|
|
Width = 673
|
|
Height = 8
|
|
Align = alTop
|
|
end
|
|
end
|
|
inline frCalendario1: TfrCalendarioPagos
|
|
Left = 0
|
|
Top = 50
|
|
Width = 390
|
|
Height = 388
|
|
Align = alClient
|
|
AutoSize = True
|
|
Constraints.MinHeight = 282
|
|
Constraints.MinWidth = 329
|
|
Color = 16383743
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
inherited pnlContenido: TPanel
|
|
Width = 390
|
|
Height = 388
|
|
Color = 15726583
|
|
ParentColor = False
|
|
inherited pnlCalendario: TPanel
|
|
Width = 370
|
|
Height = 329
|
|
inherited eLunes: TLabel
|
|
Color = 1869976
|
|
Font.Color = 12184045
|
|
end
|
|
inherited eMartes: TLabel
|
|
Color = 1869976
|
|
Font.Color = 12184045
|
|
end
|
|
inherited eMiercoles: TLabel
|
|
Color = 1869976
|
|
Font.Color = 12184045
|
|
end
|
|
inherited eJueves: TLabel
|
|
Color = 1869976
|
|
Font.Color = 12184045
|
|
end
|
|
inherited eViernes: TLabel
|
|
Color = 1869976
|
|
Font.Color = 12184045
|
|
end
|
|
inherited eSabado: TLabel
|
|
Color = 1869976
|
|
Font.Color = 12184045
|
|
end
|
|
inherited eDomingo: TLabel
|
|
Color = 1869976
|
|
Font.Color = 12184045
|
|
end
|
|
inherited pnlDia1: TRdxPanel
|
|
inherited eTextoDia1: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia2: TRdxPanel
|
|
inherited eTextoDia2: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia3: TRdxPanel
|
|
inherited eTextoDia3: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia4: TRdxPanel
|
|
inherited eTextoDia4: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia5: TRdxPanel
|
|
inherited eTextoDia5: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia6: TRdxPanel
|
|
inherited eTextoDia6: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia7: TRdxPanel
|
|
inherited eTextoDia7: TLabel
|
|
Alignment = taLeftJustify
|
|
Color = 15923705
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia8: TRdxPanel
|
|
inherited eTextoDia8: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia9: TRdxPanel
|
|
inherited eTextoDia9: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia10: TRdxPanel
|
|
inherited eTextoDia10: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia11: TRdxPanel
|
|
inherited eTextoDia11: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia12: TRdxPanel
|
|
inherited eTextoDia12: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia13: TRdxPanel
|
|
inherited eTextoDia13: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia14: TRdxPanel
|
|
inherited eTextoDia14: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia15: TRdxPanel
|
|
inherited eTextoDia15: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia16: TRdxPanel
|
|
inherited eTextoDia16: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia17: TRdxPanel
|
|
inherited eTextoDia17: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia18: TRdxPanel
|
|
inherited eTextoDia18: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia19: TRdxPanel
|
|
inherited eTextoDia19: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia20: TRdxPanel
|
|
inherited eTextoDia20: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia21: TRdxPanel
|
|
inherited eTextoDia21: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia22: TRdxPanel
|
|
inherited eTextoDia22: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia23: TRdxPanel
|
|
inherited eTextoDia23: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia24: TRdxPanel
|
|
inherited eTextoDia24: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia25: TRdxPanel
|
|
inherited eTextoDia25: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia26: TRdxPanel
|
|
inherited eTextoDia26: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia27: TRdxPanel
|
|
inherited eTextoDia27: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia28: TRdxPanel
|
|
inherited eTextoDia28: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia29: TRdxPanel
|
|
inherited eTextoDia29: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia30: TRdxPanel
|
|
inherited eTextoDia30: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia31: TRdxPanel
|
|
inherited eTextoDia31: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia32: TRdxPanel
|
|
inherited eTextoDia32: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia33: TRdxPanel
|
|
inherited eTextoDia33: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia34: TRdxPanel
|
|
inherited eTextoDia34: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia35: TRdxPanel
|
|
inherited eTextoDia35: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia42: TRdxPanel
|
|
inherited eTextoDia42: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia41: TRdxPanel
|
|
inherited eTextoDia41: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia40: TRdxPanel
|
|
inherited eTextoDia40: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia39: TRdxPanel
|
|
inherited eTextoDia39: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia38: TRdxPanel
|
|
inherited eTextoDia38: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia37: TRdxPanel
|
|
inherited eTextoDia37: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
inherited pnlDia36: TRdxPanel
|
|
inherited eTextoDia36: TLabel
|
|
Alignment = taLeftJustify
|
|
Layout = tlTop
|
|
end
|
|
end
|
|
end
|
|
inherited pnlSuperior: TPanel
|
|
Width = 370
|
|
ParentColor = True
|
|
inherited pnlOpciones: TPanel
|
|
Left = 368
|
|
Top = 7
|
|
Width = 273
|
|
Height = 26
|
|
inherited eMes: TLabel
|
|
Left = 8
|
|
end
|
|
inherited eAno: TLabel
|
|
Left = 123
|
|
end
|
|
inherited bHoy: TRdxBoton
|
|
Left = 210
|
|
OnClick = frCalendario1bHoyClick
|
|
end
|
|
inherited cbxMes: TcxComboBox
|
|
Left = 39
|
|
Properties.OnEditValueChanged = frCalendario1cbxMesPropertiesEditValueChanged
|
|
Width = 79
|
|
end
|
|
inherited seAno: TcxSpinEdit
|
|
Left = 151
|
|
Properties.OnEditValueChanged = frCalendario1seAnoPropertiesEditValueChanged
|
|
Width = 53
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object TablaCalendario: TIBQuery
|
|
BufferChunks = 1000
|
|
CachedUpdates = False
|
|
Left = 8
|
|
Top = 384
|
|
end
|
|
object dsVisitas: TDataSource
|
|
Left = 296
|
|
Top = 384
|
|
end
|
|
object TablaCalVisitas: TIBQuery
|
|
BufferChunks = 1000
|
|
CachedUpdates = False
|
|
SQL.Strings = (
|
|
'select fechaini, horaini, descripcion, borrado'
|
|
'from agenda'
|
|
'where usuario = :usuario'
|
|
'order by fechaini;')
|
|
Left = 40
|
|
Top = 384
|
|
ParamData = <
|
|
item
|
|
DataType = ftUnknown
|
|
Name = 'usuario'
|
|
ParamType = ptUnknown
|
|
end>
|
|
end
|
|
object Acciones: TActionList
|
|
Left = 504
|
|
Top = 224
|
|
object actAnadir: TAction
|
|
Caption = 'A'#241'adir'
|
|
OnExecute = actAnadirExecute
|
|
end
|
|
object actEliminar: TAction
|
|
Caption = 'Eliminar'
|
|
OnExecute = actEliminarExecute
|
|
OnUpdate = actEliminarUpdate
|
|
end
|
|
object actEliminarTodo: TAction
|
|
Caption = 'Eliminar todo'
|
|
OnExecute = actEliminarTodoExecute
|
|
OnUpdate = actEliminarUpdate
|
|
end
|
|
object actRefrescar: TAction
|
|
Caption = 'Refrescar datos'
|
|
OnExecute = actRefrescarExecute
|
|
end
|
|
end
|
|
object dsUsuarios: TDataSource
|
|
AutoEdit = False
|
|
DataSet = TablaUsuarios
|
|
Left = 440
|
|
Top = 128
|
|
end
|
|
object TablaUsuarios: TIBQuery
|
|
BufferChunks = 1000
|
|
CachedUpdates = False
|
|
SQL.Strings = (
|
|
'select usuario, nombre'
|
|
'from usuarios;')
|
|
Left = 440
|
|
Top = 160
|
|
end
|
|
end
|