inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv Width = 785 Height = 515 ExplicitWidth = 785 ExplicitHeight = 515 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 785 Height = 515 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 785 515) object rdxDestino1: TRadioButton Left = 10 Top = 10 Width = 765 Height = 17 Action = actLista Caption = 'Recibir el albar'#225'n en el almac'#233'n:' TabOrder = 0 TabStop = True end object rdxDestino2: TRadioButton Left = 10 Top = 110 Width = 765 Height = 17 Action = actOtro Caption = 'Recibir el albar'#225'n en esta otra direcci'#243'n:' TabOrder = 4 end object cbLista: TcxDBLookupComboBox Left = 10 Top = 33 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = dsAlbaran 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.ShowHeader = False Properties.ListOptions.SyncMode = True Properties.ListSource = dsAlmacenes Properties.PostPopupValueOnTab = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 Width = 765 end object bModificar: TBitBtn Left = 647 Top = 480 Width = 128 Height = 25 Caption = 'Modificar la direcci'#243'n...' TabOrder = 6 OnClick = bModificarClick end object txtDireccion: TStaticText Left = 10 Top = 133 Width = 765 Height = 341 AutoSize = False BevelKind = bkFlat TabOrder = 5 OnDblClick = txtDireccionDblClick end object cbListaObras: TcxDBLookupComboBox Left = 10 Top = 83 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = dsAlbaran 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.ShowHeader = False Properties.ListOptions.SyncMode = True Properties.ListSource = dsObras Properties.PostPopupValueOnTab = True Properties.OnValidate = cbListaObrasPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 3 Width = 765 end object RadioButton1: TRadioButton Left = 10 Top = 60 Width = 765 Height = 17 Action = actListaObras TabOrder = 2 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' ShowCaption = False Control = cbLista ControlOptions.ShowBorder = False end object dxLayoutControl1Item6: TdxLayoutItem ShowCaption = False Control = RadioButton1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item5: TdxLayoutItem Control = cbListaObras ControlOptions.ShowBorder = False end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'New Item' ShowCaption = False Control = rdxDestino2 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end object dxLayoutControl1Item4: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient 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 = 224 Top = 8 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 object actListaObras: TAction Caption = 'Recibir el albar'#225'n en la obra:' GroupIndex = 1 OnExecute = actListaObrasExecute end end object dsAlbaran: TDADataSource Left = 264 Top = 8 end object dsAlmacenes: TDADataSource Left = 304 Top = 8 end object dsObras: TDADataSource Left = 344 Top = 8 end end