object fEditorCategorias: TfEditorCategorias
  Left = 453
  Top = 234
  ActiveControl = ListaCategorias
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Categorias'
  ClientHeight = 490
  ClientWidth = 396
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  InstanceID = 0
  ReadOnly = False
  PixelsPerInch = 96
  TextHeight = 13
  object bAceptar: TButton
    Left = 224
    Top = 456
    Width = 75
    Height = 25
    Action = actAceptar
    Default = True
    TabOrder = 1
  end
  object bCancelar: TButton
    Left = 312
    Top = 456
    Width = 75
    Height = 25
    Action = actCancelar
    Cancel = True
    TabOrder = 2
  end
  object PageControl1: TPageControl
    Left = 2
    Top = 2
    Width = 390
    Height = 445
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Categor'#237'as'
      object Label1: TLabel
        Left = 10
        Top = 12
        Width = 236
        Height = 13
        Caption = 'Lista de categor'#237'as disponibles para los contactos'
      end
      object ListaCategorias: TDBLookupListBox
        Left = 8
        Top = 31
        Width = 281
        Height = 277
        KeyField = 'CODIGO'
        ListField = 'DESCRIPCION'
        ListSource = DADataSource
        TabOrder = 0
      end
      object bEliminar: TButton
        Left = 300
        Top = 32
        Width = 75
        Height = 25
        Action = actEliminar
        TabOrder = 1
      end
      object GroupBox1: TGroupBox
        Left = 6
        Top = 318
        Width = 369
        Height = 81
        Caption = 'A'#241'adir una nueva categor'#237'a'
        TabOrder = 2
        object eCategoria: TLabel
          Left = 18
          Top = 20
          Width = 115
          Height = 13
          Caption = 'Nombre de la categor'#237'a:'
        end
        object bAnadir: TButton
          Left = 282
          Top = 37
          Width = 75
          Height = 25
          Action = actAnadir
          TabOrder = 1
        end
        object editCategoria: TEdit
          Left = 18
          Top = 40
          Width = 255
          Height = 21
          TabOrder = 0
        end
      end
    end
  end
  object ActionList1: TActionList
    Left = 144
    Top = 65528
    object actAnadir: TAction
      Caption = '&A'#241'adir'
      OnExecute = actAnadirExecute
      OnUpdate = actAnadirUpdate
    end
    object actEliminar: TAction
      Caption = '&Eliminar'
      OnExecute = actEliminarExecute
    end
    object actAceptar: TAction
      Caption = 'A&ceptar'
      OnExecute = actAceptarExecute
    end
    object actCancelar: TAction
      Caption = '&Cancelar'
      OnExecute = actCancelarExecute
    end
    object actCerrar: TAction
      Caption = 'actCerrar'
      OnExecute = actCerrarExecute
    end
  end
  object DADataSource: TDADataSource
    DataTable = dmContactos.tbl_Categorias
    Left = 184
    Top = 65528
  end
end
