object fEditorFormasPago: TfEditorFormasPago Left = 453 Top = 234 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Lista de formas de pago' ClientHeight = 406 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 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 = 6 Top = 8 Width = 390 Height = 356 ActivePage = TabSheet1 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Formas de pago' object Label1: TLabel Left = 6 Top = 12 Width = 168 Height = 13 Caption = 'Lista de formas de pago disponibles' end object bEliminar: TButton Left = 284 Top = 90 Width = 95 Height = 23 Action = actEliminar TabOrder = 0 end object bAnadir: TButton Left = 284 Top = 31 Width = 95 Height = 23 Action = actAnadir TabOrder = 1 end object Button1: TButton Left = 284 Top = 61 Width = 95 Height = 23 Action = actModificar TabOrder = 2 end object ListaFormasPago: TDBGrid Left = 6 Top = 31 Width = 272 Height = 289 DataSource = dsFormasPago 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 = [] OnDblClick = ListaFormasPagoDblClick Columns = < item Expanded = False FieldName = 'REFERENCIA' Title.Caption = 'Referencia' Width = 269 Visible = True end item Expanded = False FieldName = 'DESCRIPCION' Title.Caption = 'Descripci'#243'n' Visible = False 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 dsFormasPago: TDADataSource Left = 168 Top = 16 end end