AbetoDesign_FactuGES2/Source/Modulos/Contactos/Views/uEditorGruposCliente.dfm

object fEditorGruposCliente: TfEditorGruposCliente
  Left = 453
  Top = 234
  ActiveControl = ListaGruposCliente
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Administraci'#243'n de grupos de clientes'
  ClientHeight = 499
  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
  InstanceID = 0
  ReadOnly = False
  PixelsPerInch = 96
  TextHeight = 13
  object bAceptar: TButton
    Left = 226
    Top = 464
    Width = 75
    Height = 25
    Action = actAceptar
    Default = True
    TabOrder = 1
  end
  object bCancelar: TButton
    Left = 314
    Top = 464
    Width = 75
    Height = 25
    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 = 'Grupos de cliente'
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object Label1: TLabel
        Left = 10
        Top = 12
        Width = 121
        Height = 13
        Caption = 'Lista de grupos de cliente'
      end
      object ListaGruposCliente: TDBLookupListBox
        Left = 8
        Top = 31
        Width = 281
        Height = 277
        KeyField = 'RecID'
        ListField = 'DESCRIPCION'
        ListSource = DADataSource
        TabOrder = 0
      end
      object bEliminar: TButton
        Left = 304
        Top = 31
        Width = 75
        Height = 25
        Action = actEliminar
        TabOrder = 1
      end
      object GroupBox1: TGroupBox
        Left = 6
        Top = 318
        Width = 369
        Height = 84
        Caption = 'A'#241'adir un nuevo grupo de cliente'
        TabOrder = 2
        object eCategoria: TLabel
          Left = 18
          Top = 20
          Width = 87
          Height = 13
          Caption = 'Nombre del grupo:'
        end
        object bAnadir: TButton
          Left = 282
          Top = 38
          Width = 75
          Height = 25
          Action = actAnadir
          TabOrder = 1
        end
        object editGrupoCliente: TEdit
          Left = 18
          Top = 40
          Width = 255
          Height = 21
          TabOrder = 0
        end
      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