inherited frViewProveedor: TfrViewProveedor Height = 454 ExplicitHeight = 454 inherited dxLayoutControlContacto: TdxLayoutControl Height = 454 ExplicitHeight = 454 object Label1: TLabel [3] Left = 379 Top = 307 Width = 342 Height = 26 Caption = '(Al incluir un proveedor en la tienda, todos los materiales que ' + 'sirve ese proveedor ser'#225'n tambi'#233'n incluidos)' WordWrap = True end object Label2: TLabel [4] Left = 22 Top = 266 Width = 324 Height = 39 Margins.Bottom = 0 Caption = 'Si procede, indique la direcci'#243'n de correo electr'#243'nico del prove' + 'edor que se utilizar'#225' para enviar documentaci'#243'n (como pedidos) p' + 'or e-mail.' WordWrap = True end object PngSpeedButton4: TPngSpeedButton [5] Left = 326 Top = 311 Width = 23 Height = 22 Action = actMandarCorreoTrabajo PngImage.Data = { 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 610000000970485973000017120000171201679FD252000001964944415478DA 63FCFFFF3F03232323033A58BCE9F87F647EAC9F258622B05E6C068034873B8A 80D92019C62F8F194C1356339CDF399D91A0014B361FFB1FE6208AA299E1F323 306D52F90CC5100C03566E3DFC3FD04E02A2F9F727064690462066006A66FC02 64FFFAC8603451096E088A01CB361FFDFF8F819981183077D11A86FDAB7B18E1 062CDD7CE27F14573FC3B2EF450CD13E86181ABE7DFFCDF0F5DB6F866FDFFE30 1CB97897218AB38FC1B85B98E1DC8E698C600396000D8861696058FAB7116CC0 94C5FBB0DAEC6CAECF70EED6238668E67AB057500CF8F0E10383A0A0208A0B90 6D06B1BF01D9379E3C67387AFE09C389A37BD15CE06B01B47907434EAC13C3EF 3F7F19662E3F8862BB898606C3EFDFFF1896EF3DCFA0A5C0CD306FE9265403FC 9D20362F5CB71F4CE7C47AA01890D5BC164C7716F980D56018606BAC0656B079 EF2986F82047AC6150DEB785A13CD911AC06C300234D05867DC72F30B8D818E1 8DC2494B0E63F702281075D455884A07576EDEC134404A5480E1DAED07441900 021806F44D5D44B46618801B400900007F4518F05E90AAF20000000049454E44 AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end inherited eCalle: TcxDBTextEdit Left = 134 Top = 155 ExplicitLeft = 134 ExplicitTop = 155 ExplicitWidth = 264 Width = 264 end inherited eProvincia: TcxDBTextEdit Left = 134 Top = 209 ExplicitLeft = 134 ExplicitTop = 209 ExplicitWidth = 264 Width = 264 end inherited ePoblacion: TcxDBTextEdit Left = 134 Top = 182 ExplicitLeft = 134 ExplicitTop = 182 ExplicitWidth = 163 Width = 163 end inherited eCodigoPostal: TcxDBTextEdit Left = 284 Top = 182 ExplicitLeft = 284 ExplicitTop = 182 end inherited eObservaciones: TcxDBMemo Top = 369 TabOrder = 16 ExplicitTop = 369 ExplicitHeight = 43 Height = 43 end object cxDBCheckBox1: TcxDBCheckBox [11] Left = 379 Top = 280 Caption = 'Incluir este proveedor en la tienda web' DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataSource = dsContacto Properties.ImmediatePost = True Properties.MultiLine = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False 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 = 15 Width = 310 end inherited eTlfParticular: TcxDBTextEdit Left = 474 TabOrder = 9 ExplicitLeft = 474 ExplicitWidth = 91 Width = 91 end inherited eTlfTrabajo: TcxDBTextEdit Left = 474 TabOrder = 8 ExplicitLeft = 474 ExplicitWidth = 127 Width = 127 end inherited eTlfMovil: TcxDBTextEdit Left = 474 TabOrder = 10 ExplicitLeft = 474 ExplicitWidth = 155 Width = 155 end inherited eFax: TcxDBTextEdit Left = 474 TabOrder = 11 ExplicitLeft = 474 ExplicitWidth = 121 Width = 121 end object eMailAdministracion: TcxDBHyperLinkEdit [16] Left = 134 Top = 311 DataBinding.DataField = 'EMAIL_ADMINISTRACION' DataBinding.DataSource = dsContacto Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged Properties.OnValidate = eMailAdministracionPropertiesValidate Properties.Prefix = 'mailto:' Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False 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 = 7 Width = 186 end inherited eNombre: TcxDBTextEdit Left = 134 ExplicitLeft = 134 ExplicitWidth = 221 Width = 221 end inherited eNIFCIF: TcxDBTextEdit Left = 207 ExplicitLeft = 207 ExplicitWidth = 205 Width = 205 end inherited eMailTrabajo: TcxDBHyperLinkEdit Left = 474 Properties.Prefix = 'mailto:' TabOrder = 12 ExplicitLeft = 474 ExplicitWidth = 133 Width = 133 end inherited eMailParticular: TcxDBHyperLinkEdit Left = 474 Properties.Prefix = 'mailto:' TabOrder = 13 ExplicitLeft = 474 ExplicitWidth = 133 Width = 133 end inherited ePaginaWeb: TcxDBHyperLinkEdit Left = 474 TabOrder = 14 ExplicitLeft = 474 ExplicitWidth = 133 Width = 133 end inherited eReferencia: TcxDBTextEdit Left = 134 ExplicitLeft = 134 ExplicitWidth = 38 Width = 38 end inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup object dxLayoutControlContactoGroup14: TdxLayoutGroup Caption = 'Correo electr'#243'nico de administraci'#243'n' object dxLayoutControlContactoItem20: TdxLayoutItem ShowCaption = False Control = Label2 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControlContactoGroup15: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControlContactoItem21: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Correo administrativo:' Control = eMailAdministracion ControlOptions.ShowBorder = False end object dxLayoutControlContactoItem22: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight ShowCaption = False Control = PngSpeedButton4 ControlOptions.ShowBorder = False end end end end inherited dxLayoutControlContactoGroup6: TdxLayoutGroup object dxLayoutControlContactoGroup10: TdxLayoutGroup Caption = 'Tienda web' object dxLayoutControlContactoItem19: TdxLayoutItem ShowCaption = False Control = cxDBCheckBox1 ControlOptions.ShowBorder = False end object dxLayoutControlContactoItem16: TdxLayoutItem ShowCaption = False Control = Label1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end end end end end inherited dsContacto: TDADataSource Left = 32 Top = 88 end inherited ActionList1: TActionList object actMandarCorreoAdministrativo: TAction OnExecute = actMandarCorreoAdministrativoExecute OnUpdate = actMandarCorreoAdministrativoUpdate end end end