inherited fEditorTiendaWeb: TfEditorTiendaWeb Caption = 'Configurar el acceso a la tienda web' ClientWidth = 471 OnShow = FormShow ExplicitWidth = 477 PixelsPerInch = 96 TextHeight = 13 inherited pnlBotones: TFlowPanel Width = 471 ExplicitTop = 374 ExplicitWidth = 471 inherited Button1: TButton Left = 375 ExplicitLeft = 375 end inherited Button2: TButton Left = 285 ExplicitLeft = 285 end end inherited FlowPanel1: TFlowPanel Width = 471 ExplicitTop = 0 ExplicitWidth = 471 inherited Label1: TLabel Width = 255 Caption = 'Configurar el acceso a la tienda web' ExplicitWidth = 255 end inherited Label2: TLabel Height = 15 Caption = 'Indique los par'#225'metros de conexi'#243'n a la tienda web' ExplicitHeight = 15 end end object cbActivo: TcxDBCheckBox [2] Left = 59 Top = 112 Caption = 'Habilitar la tienda web para esta empresa' DataBinding.DataField = 'TIENDA_ACTIVA' 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 = 2 Width = 377 end object GroupBox1: TGroupBox [3] Left = 59 Top = 139 Width = 381 Height = 198 Caption = 'Configuraci'#243'n de la tienda' TabOrder = 3 DesignSize = ( 381 198) object Label3: TLabel Left = 54 Top = 36 Width = 44 Height = 13 Alignment = taRightJustify Caption = 'Servidor:' end object Label4: TLabel Left = 26 Top = 62 Width = 72 Height = 13 Alignment = taRightJustify Caption = 'Base de datos:' end object Label5: TLabel Left = 58 Top = 102 Width = 40 Height = 13 Alignment = taRightJustify Caption = 'Usuario:' end object Label6: 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' 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 = 250 end object edtBDUSER: TcxDBTextEdit Left = 104 Top = 99 DataBinding.DataField = 'BDUSER' 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 = 250 end object edtBDPASS: TcxDBTextEdit Left = 104 Top = 126 DataBinding.DataField = 'BDPASS' 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 = 250 end object edtBDNAME: TcxDBTextEdit Left = 104 Top = 59 DataBinding.DataField = 'BDNAME' 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 = 250 end object bComprobar: TButton Left = 192 Top = 155 Width = 161 Height = 25 Action = actComprobarAcceso Anchors = [akTop, akRight] TabOrder = 4 end end inherited ActionList1: TActionList inherited actAceptar: TAction OnExecute = actAceptarExecute end inherited actCancelar: TAction OnExecute = actCancelarExecute end object actComprobarAcceso: TAction Caption = 'C&omprobar acceso' OnExecute = actComprobarAccesoExecute OnUpdate = actComprobarAccesoUpdate end end object dsTiendaWeb: TDADataSource Left = 80 Top = 264 end end