object fEditorFamilias: TfEditorFamilias
  Left = 453
  Top = 234
  ActiveControl = ListaFamilias
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Administraci'#243'n de familias de art'#237'culos'
  ClientHeight = 494
  ClientWidth = 404
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = CustomEditorClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object bAceptar: TButton
    Left = 235
    Top = 462
    Width = 75
    Height = 23
    Action = actAceptar
    Default = True
    TabOrder = 1
  end
  object bCancelar: TButton
    Left = 321
    Top = 462
    Width = 75
    Height = 23
    Action = actCancelar
    Cancel = True
    TabOrder = 2
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 390
    Height = 442
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Familias de art'#237'culos'
      object Label1: TLabel
        Left = 10
        Top = 12
        Width = 213
        Height = 13
        Caption = 'Lista de familias disponibles para los art'#237'culos'
      end
      object Label2: TLabel
        Left = 10
        Top = 326
        Width = 116
        Height = 13
        Caption = 'A'#241'adir una nueva familia'
      end
      object Bevel1: TBevel
        Left = 132
        Top = 330
        Width = 244
        Height = 5
        Shape = bsBottomLine
      end
      object eCategoria: TLabel
        Left = 18
        Top = 353
        Width = 98
        Height = 13
        Caption = 'Nombre de la familia:'
      end
      object ListaFamilias: TDBLookupListBox
        Left = 8
        Top = 31
        Width = 262
        Height = 277
        KeyField = 'RecID'
        ListField = 'DESCRIPCION'
        ListSource = DADataSource
        TabOrder = 0
      end
      object bEliminar: TButton
        Left = 281
        Top = 31
        Width = 95
        Height = 23
        Action = actEliminar
        TabOrder = 1
      end
      object editFamilia: TEdit
        Left = 122
        Top = 349
        Width = 254
        Height = 21
        TabOrder = 2
      end
      object bAnadir: TButton
        Left = 281
        Top = 382
        Width = 95
        Height = 23
        Action = actAnadir
        TabOrder = 3
      end
    end
  end
  object ActionList1: TActionList
    Left = 144
    Top = 16
    object actAnadir: TAction
      Caption = '&A'#241'adir'
      OnExecute = actAnadirExecute
      OnUpdate = actAnadirUpdate
    end
    object actEliminar: TAction
      Caption = '&Eliminar'
      OnExecute = actEliminarExecute
      OnUpdate = actEliminarUpdate
    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
    Left = 168
    Top = 16
  end
end
