inherited frViewClienteTiendaWeb: TfrViewClienteTiendaWeb Width = 582 Height = 125 ExplicitWidth = 582 ExplicitHeight = 125 object dxLayoutControlTiendaWeb: TdxLayoutControl Left = 0 Top = 0 Width = 582 Height = 97 Align = alTop ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] object Label1: TLabel Left = 42 Top = 55 Width = 333 Height = 13 Caption = '(El cliente debe tener obligatoriamente correo electr'#243'nico en su' + ' ficha)' end object cxDBCheckBox1: TcxDBCheckBox Left = 22 Top = 28 Caption = 'Permitir que este cliente tenga acceso a la tienda web' DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataSource = dsTiendaWeb Properties.ImmediatePost = 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 = 0 Width = 121 end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControlTiendaWebGroup3: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Acceso a la tienda web' object dxLayoutControlTiendaWebItem1: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'cxDBCheckBox1' ShowCaption = False Control = cxDBCheckBox1 ControlOptions.ShowBorder = False end object dxLayoutControlTiendaWebItem2: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Label1' Offsets.Left = 20 ShowCaption = False Control = Label1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end end end end object dsTiendaWeb: TDADataSource Left = 8 Top = 8 end end