inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv Width = 586 Height = 301 ExplicitWidth = 586 ExplicitHeight = 301 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 586 Height = 301 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 586 301) object rdxDestino1: TRadioButton Left = 10 Top = 10 Width = 255 Height = 17 Action = actLista TabOrder = 0 TabStop = True end object rdxDestino2: TRadioButton Left = 10 Top = 60 Width = 287 Height = 17 Action = actOtro TabOrder = 2 end object cbLista: TcxDBLookupComboBox Left = 25 Top = 33 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = dsPedido Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'NOMBRE' end> Properties.ListOptions.AnsiSort = True Properties.ListOptions.GridLines = glNone Properties.ListOptions.SyncMode = True Properties.ListOptions.ShowHeader = False Properties.ListSource = dsAlmacenes Properties.PostPopupValueOnTab = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 Width = 425 end object bModificar: TBitBtn Left = 448 Top = 266 Width = 128 Height = 25 Caption = 'Modificar la direcci'#243'n...' TabOrder = 4 OnClick = bModificarClick end object txtDireccion: TStaticText Left = 25 Top = 83 Width = 551 Height = 177 AutoSize = False BevelKind = bkFlat TabOrder = 3 OnDblClick = txtDireccionDblClick end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False Hidden = True ShowBorder = False object dxLayoutItem1: TdxLayoutItem Caption = 'New Item' ShowCaption = False Control = rdxDestino1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item3: TdxLayoutItem Caption = 'New Item' Offsets.Left = 15 ShowCaption = False Control = cbLista ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'New Item' ShowCaption = False Control = rdxDestino2 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'StaticText1' Offsets.Left = 15 ShowCaption = False Control = txtDireccion ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item1: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahRight Offsets.Left = 15 ShowCaption = False Control = bModificar ControlOptions.ShowBorder = False end end end object ActionList1: TActionList Left = 80 Top = 16 object actLista: TAction Caption = 'Recibir el pedido en el almac'#233'n:' Checked = True GroupIndex = 1 OnExecute = actListaExecute end object actOtro: TAction Caption = 'Recibir el pedido en esta otra direcci'#243'n:' GroupIndex = 1 OnExecute = actOtroExecute end end object dsPedido: TDADataSource Left = 40 Top = 8 end object dsAlmacenes: TDADataSource Left = 8 Top = 40 end end