object fEditorElegirPersonaContactoCliente: TfEditorElegirPersonaContactoCliente Left = 227 Top = 108 BorderStyle = bsDialog Caption = 'Elegir una direcciones de cliente' ClientHeight = 383 ClientWidth = 599 Color = clBtnFace ParentFont = True OldCreateOrder = True Position = poOwnerFormCenter PixelsPerInch = 96 TextHeight = 13 object JvgWizardHeader1: TJvgWizardHeader Left = 0 Top = 0 Width = 599 Height = 60 CaptionFont.Charset = DEFAULT_CHARSET CaptionFont.Color = clWindowText CaptionFont.Height = -11 CaptionFont.Name = 'Tahoma' CaptionFont.Style = [fsBold] CommentFont.Charset = DEFAULT_CHARSET CommentFont.Color = clWindowText CommentFont.Height = -11 CommentFont.Name = 'Tahoma' CommentFont.Style = [] SymbolFont.Charset = DEFAULT_CHARSET SymbolFont.Color = clHighlightText SymbolFont.Height = -35 SymbolFont.Name = 'Wingdings' SymbolFont.Style = [fsBold] Captions.Strings = ( 'Seleccione una persona de contacto') Comments.Strings = ( 'El cliente dispone de personas de contacto dadas de alta en su f' + 'icha. Seleccione la que quiere utilizar.') Gradient.FromColor = clHighlight Gradient.ToColor = clWindow Gradient.Active = False Gradient.Orientation = fgdVertical BufferedDraw = False ExplicitLeft = -57 ExplicitTop = 27 ExplicitWidth = 656 end inline frViewBarraSeleccion1: TfrViewBarraSeleccion Left = 0 Top = 334 Width = 599 Height = 49 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 ReadOnly = False ExplicitTop = 334 ExplicitWidth = 599 inherited JvFooter1: TJvFooter Width = 599 ExplicitWidth = 599 inherited bSeleccionar: TJvFooterBtn Left = 387 ExplicitLeft = 387 end inherited bCancelar: TJvFooterBtn Left = 491 ExplicitLeft = 491 end end inherited BarraSeleccionActionList: TActionList Top = 11 inherited actSeleccionar: TAction OnExecute = frViewBarraSeleccion1actSeleccionarExecute end inherited actCancelar: TAction OnExecute = frViewBarraSeleccion1actCancelarExecute end end end object DBCtrlGrid1: TDBCtrlGrid Left = 8 Top = 66 Width = 583 Height = 261 Margins.Left = 10 Margins.Top = 10 Margins.Right = 10 Margins.Bottom = 0 AllowDelete = False AllowInsert = False Color = clBtnFace DataSource = dsPersonas PanelHeight = 87 PanelWidth = 566 ParentColor = False TabOrder = 1 SelectedColor = clHighlight OnDblClick = DBCtrlGrid1DblClick object ePuesto: TDBText Left = 58 Top = 28 Width = 502 Height = 17 DataField = 'PUESTO' DataSource = dsPersonas Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True OnDblClick = ComponenteDblClick end object eTelefono: TDBText Left = 70 Top = 47 Width = 187 Height = 17 DataField = 'TELEFONO' DataSource = dsPersonas Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True OnDblClick = ComponenteDblClick end object eNombre: TDBText Left = 8 Top = 7 Width = 537 Height = 17 DataField = 'NOMBRE' DataSource = dsPersonas Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True OnDblClick = ComponenteDblClick end object Label1: TLabel Left = 15 Top = 28 Width = 37 Height = 13 Caption = 'Puesto:' OnDblClick = ComponenteDblClick end object Label2: TLabel Left = 15 Top = 47 Width = 46 Height = 13 Caption = 'Tel'#233'fono:' OnDblClick = ComponenteDblClick end object Label3: TLabel Left = 281 Top = 47 Width = 47 Height = 13 Caption = 'Tlf. m'#243'vil:' OnDblClick = ComponenteDblClick end object eMovil: TDBText Left = 334 Top = 47 Width = 187 Height = 17 DataField = 'MOVIL' DataSource = dsPersonas Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True OnDblClick = ComponenteDblClick end object Label4: TLabel Left = 16 Top = 66 Width = 48 Height = 13 Caption = 'N'#250'm. fax:' OnDblClick = ComponenteDblClick end object eFax: TDBText Left = 70 Top = 66 Width = 187 Height = 17 DataField = 'FAX' DataSource = dsPersonas Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True OnDblClick = ComponenteDblClick end object Label5: TLabel Left = 281 Top = 66 Width = 32 Height = 13 Caption = 'E-mail:' OnDblClick = ComponenteDblClick end object eEMail: TDBText Left = 334 Top = 66 Width = 187 Height = 17 DataField = 'EMAIL' DataSource = dsPersonas Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = True OnDblClick = ComponenteDblClick end end object dsPersonas: TDADataSource Left = 24 Top = 286 end end