object fEditorTiendaWeb: TfEditorTiendaWeb Left = 195 Top = 108 BorderStyle = bsDialog Caption = 'Tienda web' ClientHeight = 356 ClientWidth = 367 Color = clBtnFace ParentFont = True OldCreateOrder = True Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 367 Height = 322 Align = alClient BevelOuter = bvNone BorderWidth = 5 ParentColor = True TabOrder = 0 object PageControl1: TPageControl Left = 5 Top = 5 Width = 357 Height = 312 ActivePage = TabSheet1 Align = alClient TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Tienda web' DesignSize = ( 349 284) object cbActivo: TcxDBCheckBox Left = 3 Top = 16 Caption = 'Habilitar la tienda web para esta empresa' DataBinding.DataField = 'TIENDA_ACTIVA' DataBinding.DataSource = dsTiendaWeb Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 Properties.OnEditValueChanged = cbActivoPropertiesEditValueChanged 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 = 0 Width = 377 end object GroupBox1: TGroupBox Left = 8 Top = 43 Width = 333 Height = 198 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'Probar conexi'#243'n con la tienda' TabOrder = 1 DesignSize = ( 333 198) object Label1: TLabel Left = 54 Top = 36 Width = 44 Height = 13 Alignment = taRightJustify Caption = 'Servidor:' end object Label3: TLabel Left = 26 Top = 62 Width = 72 Height = 13 Alignment = taRightJustify Caption = 'Base de datos:' end object Label4: TLabel Left = 58 Top = 102 Width = 40 Height = 13 Alignment = taRightJustify Caption = 'Usuario:' end object Label5: TLabel Left = 38 Top = 129 Width = 60 Height = 13 Alignment = taRightJustify Caption = 'Contrase'#241'a:' end object edtBDSERVER: TcxDBTextEdit Left = 104 Top = 32 DataBinding.DataField = 'BDSERVER' DataBinding.DataSource = dsTiendaWeb 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 = 0 Width = 209 end object edtBDUSER: TcxDBTextEdit Left = 104 Top = 99 DataBinding.DataField = 'BDUSER' DataBinding.DataSource = dsTiendaWeb 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 = 209 end object edtBDPASS: TcxDBTextEdit Left = 104 Top = 126 DataBinding.DataField = 'BDPASS' DataBinding.DataSource = dsTiendaWeb Properties.EchoMode = eemPassword Properties.PasswordChar = '*' 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 = 209 end object edtBDNAME: TcxDBTextEdit Left = 104 Top = 59 DataBinding.DataField = 'BDNAME' DataBinding.DataSource = dsTiendaWeb 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 = 1 Width = 209 end object bComprobar: TButton Left = 104 Top = 155 Width = 161 Height = 25 Action = actComprobar Anchors = [akTop, akRight] Caption = 'Probar la conexi'#243'n' TabOrder = 4 end end end end end object Panel2: TPanel Left = 0 Top = 322 Width = 367 Height = 34 Align = alBottom BevelOuter = bvNone ParentColor = True TabOrder = 1 DesignSize = ( 367 34) object OKBtn: TButton Left = 207 Top = 2 Width = 75 Height = 25 Action = actAceptar Anchors = [akTop, akRight] TabOrder = 0 end object CancelBtn: TButton Left = 286 Top = 2 Width = 75 Height = 25 Action = actCancelar Anchors = [akTop, akRight] Cancel = True TabOrder = 1 end end object ActionList1: TActionList Left = 40 Top = 264 object actAceptar: TAction Caption = '&Aceptar' OnExecute = actAceptarExecute end object actCancelar: TAction Caption = '&Cancelar' OnExecute = actCancelarExecute end object actComprobar: TAction Caption = 'Comprobar la conexi'#243'n' OnExecute = actComprobarExecute OnUpdate = actComprobarUpdate end end object dsTiendaWeb: TDADataSource Left = 80 Top = 264 end end