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
