object fEditorBalances: TfEditorBalances Left = 453 Top = 234 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Lista de balances' ClientHeight = 406 ClientWidth = 959 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object bAceptar: TButton Left = 236 Top = 373 Width = 75 Height = 23 Action = actAceptar Default = True TabOrder = 1 end object bCancelar: TButton Left = 321 Top = 373 Width = 75 Height = 23 Action = actCancelar Cancel = True TabOrder = 2 end object PageControl1: TPageControl Left = 0 Top = 0 Width = 959 Height = 406 ActivePage = TabSheet1 Align = alClient TabOrder = 0 ExplicitWidth = 573 object TabSheet1: TTabSheet Caption = 'Balances' ExplicitWidth = 565 object Label1: TLabel Left = 6 Top = 12 Width = 138 Height = 13 Caption = 'Lista de balances disponibles' end object bEliminar: TButton Left = 853 Top = 90 Width = 95 Height = 23 Action = actEliminar TabOrder = 0 end object bAnadir: TButton Left = 853 Top = 31 Width = 95 Height = 23 Action = actAnadir TabOrder = 1 end object Button1: TButton Left = 853 Top = 61 Width = 95 Height = 23 Action = actModificar TabOrder = 2 end object ListaBalances: TDBGrid Left = 3 Top = 31 Width = 844 Height = 289 DataSource = dsBalances Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit] TabOrder = 3 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'REF_BALANCE' Title.Caption = 'Referencia' Width = 110 Visible = True end item Expanded = False FieldName = 'NATURALEZA' Title.Caption = 'Descripci'#243'n' Width = 154 Visible = True end item Expanded = False FieldName = 'NIVEL1' Visible = True end item Expanded = False FieldName = 'DESCRIPCION1' Visible = True end item Expanded = False FieldName = 'NIVEL2' Visible = True end item Expanded = False FieldName = 'DESCRIPCION2' Visible = True end item Expanded = False FieldName = 'NIVEL3' Visible = True end item Expanded = False FieldName = 'DESCRIPCION3' Visible = True 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 object actModificar: TAction Caption = '&Modificar...' OnExecute = actModificarExecute OnUpdate = actModificarUpdate end end object dsBalances: TDADataSource Left = 168 Top = 16 end end