inherited fEditorElegirPersonaContactoPedido: TfEditorElegirPersonaContactoPedido BorderStyle = bsDialog Caption = 'Entrega del material del pedido' ClientHeight = 269 ClientWidth = 435 Position = poScreenCenter OnCreate = CustomEditorCreate OnShow = CustomEditorShow ExplicitWidth = 441 ExplicitHeight = 301 PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 21 Top = 16 Width = 278 Height = 13 Anchors = [akLeft, akTop, akRight] Caption = 'Indique a qui'#233'n se deber'#225' entregar el material del pedido:' end object Panel1: TPanel Left = 0 Top = 228 Width = 435 Height = 41 Align = alBottom TabOrder = 0 DesignSize = ( 435 41) object bAceptar: TButton Left = 271 Top = 8 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = 'Aceptar' ModalResult = 1 TabOrder = 0 end object bCancelar: TButton Left = 352 Top = 8 Width = 75 Height = 25 Anchors = [akTop, akRight] Cancel = True Caption = 'Cancelar' ModalResult = 2 TabOrder = 1 end end object rdxDestino1: TRadioButton Left = 48 Top = 45 Width = 335 Height = 17 Action = actEmpleadoEmpresa TabOrder = 1 TabStop = True end object cbListaEmpleados: TcxComboBox Left = 63 Top = 68 Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 Width = 320 end object cbListaPersonalSubcontrata: TcxComboBox Left = 63 Top = 121 Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 Width = 320 end object RadioButton1: TRadioButton Left = 48 Top = 98 Width = 335 Height = 17 Action = actSubcontrata Caption = 'Personal de contacto de la subcontrata:' TabOrder = 4 end object rdxDestino2: TRadioButton Left = 48 Top = 151 Width = 335 Height = 17 Action = actOtro TabOrder = 5 end object edtTextoPersona: TcxTextEdit Left = 63 Top = 174 Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 6 Width = 320 end object ActionList1: TActionList Left = 8 Top = 80 object actEmpleadoEmpresa: TAction Caption = 'Empleado de ' Checked = True GroupIndex = 1 OnExecute = actEmpleadoEmpresaExecute end object actSubcontrata: TAction Caption = 'Personal de contacto de la obra:' GroupIndex = 1 OnExecute = actSubcontrataExecute end object actOtro: TAction Caption = 'A la siguiente persona:' GroupIndex = 1 OnExecute = actOtroExecute end end end