object fEditorCategoriasContacto: TfEditorCategoriasContacto
  Left = 553
  Top = 281
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Categorias del contacto'
  ClientHeight = 460
  ClientWidth = 356
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  InstanceID = 0
  ReadOnly = False
  PixelsPerInch = 96
  TextHeight = 13
  object bAceptar: TButton
    Left = 272
    Top = 424
    Width = 75
    Height = 25
    Action = actAceptar
    Default = True
    TabOrder = 2
  end
  object PageControl1: TPageControl
    Left = 4
    Top = 4
    Width = 348
    Height = 408
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Categorias del contacto'
      object Label5: TLabel
        Left = 8
        Top = 9
        Width = 184
        Height = 13
        Caption = 'Lista de categorias del contacto'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object ListaCategorias: TcxCheckListBox
        Left = 9
        Top = 28
        Width = 320
        Height = 341
        Items = <>
        Style.LookAndFeel.NativeStyle = True
        StyleDisabled.LookAndFeel.NativeStyle = True
        StyleFocused.LookAndFeel.NativeStyle = True
        StyleHot.LookAndFeel.NativeStyle = True
        TabOrder = 0
        OnClickCheck = ListaCategoriasClickCheck
      end
      object editCategoriasContacto: TMemo
        Left = 9
        Top = 382
        Width = 448
        Height = 41
        ReadOnly = True
        TabOrder = 1
        Visible = False
      end
    end
  end
  object bCategorias: TButton
    Left = 15
    Top = 424
    Width = 138
    Height = 25
    Action = actCategorias
    TabOrder = 1
  end
  object ActionList1: TActionList
    Left = 256
    object actAceptar: TAction
      Caption = '&Aceptar'
      OnExecute = actAceptarExecute
    end
    object actCerrar: TAction
      Caption = 'actCerrar'
      OnExecute = actCerrarExecute
    end
    object actCategorias: TAction
      Caption = '&Ver todas las categor'#237'as...'
      OnExecute = actCategoriasExecute
    end
  end
  object DADataSource: TDADataSource
    DataTable = dmContactos.tbl_Categorias
    Left = 280
  end
end
