object frElegirDireccionCliente: TfrElegirDireccionCliente Left = 532 Top = 333 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Elecci'#243'n de direcci'#243'n de cliente' ClientHeight = 319 ClientWidth = 464 Color = 16383743 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object eTitulo: TLabel Left = 8 Top = 7 Width = 144 Height = 16 Caption = 'Direcciones del cliente' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 11 Top = 32 Width = 445 Height = 33 AutoSize = False Caption = 'Este cliente posee al menos una sucursal. Puede utilizar la dire' + 'cci'#243'n principal del cliente o los datos de una de las sucursales' + '.' WordWrap = True end object RdxPanel1: TRdxPanel Left = 8 Top = 72 Width = 449 Height = 209 BorderStyle = bsSingle Caption = ' ' BorderWidth = 1 Color = 15726583 ColorHighLight = 8623776 ColorShadow = 8623776 TabOrder = 0 UseDockManager = True object DireccionPrincipal: TLabel Left = 40 Top = 40 Width = 382 Height = 49 AutoSize = False Caption = 'DireccionPrincipal' WordWrap = True end object DireccionSucursales: TcxListBox Left = 40 Top = 120 Width = 385 Height = 69 ItemHeight = 13 Style.BorderColor = 8623776 Style.BorderStyle = cbsSingle Style.Color = 16383743 Style.HotTrack = False Style.LookAndFeel.Kind = lfFlat Style.LookAndFeel.NativeStyle = False StyleDisabled.LookAndFeel.Kind = lfFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfFlat StyleFocused.LookAndFeel.NativeStyle = False StyleHot.LookAndFeel.Kind = lfFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 0 IntegralHeight = True end object rbDireccionPrincipal: TRdxRadioButton Left = 16 Top = 16 Width = 409 Height = 17 Transparent = True Caption = 'Usar los datos de la direcci'#243'n principal' Checked = True Color = 16383743 ColorFocused = clWhite ColorDown = clWhite ColorDot = clBlack ColorBorder = clBtnShadow GroupIndex = 1 ParentColor = False TabOrder = 1 TabStop = True Action = actDireccionPrincipal end object rbDireccionSucursales: TRdxRadioButton Left = 16 Top = 96 Width = 409 Height = 17 Transparent = True Caption = 'Usar los datos de una de las siguientes sucursales del cliente:' Color = 16383743 ColorFocused = clWhite ColorDown = clWhite ColorDot = clBlack ColorBorder = clBtnShadow GroupIndex = 1 ParentColor = False TabOrder = 2 Action = actDireccionSucursales end end object bGuardar: TRdxBoton Left = 381 Top = 289 Width = 75 Height = 25 Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 GroupIndex = 1 Caption = 'Aceptar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000000000000000000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FAFAFA00EBEBEB00E6E6E600EBEBEB00FAFA FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FAFAFA00DCDCDC00A8A8A80098989800A8A8A800DCDC DC00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FAFAFA00DCDCDC007DB90C0075AC0E0075AC0E0084848400A8A8 A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FAFAFA00DCDCDC007AB40D007DB90C0084C50B007DB90C0075AC0E009494 9400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFA FA00DCDCDC007AB40D0071A6100084C50B0084C50B0087C90A0089CD09008484 8400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBEB EB007AB40D0071A6100084C50B008CD207007AB40D007DB90C0080BF0B0089CD 090094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF007AB4 0D0071A6100092DB05008CD2070075AC0E00DCDCDC0080BF0B0084C50B0089CD 090084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF006EA1 110098E6030075AC0E006EA11100DCDCDC00FAFAFA00FFFFFF0084C50B0089CD 090089CD090094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00618D 130075AC0E0065921200EBEBEB00FAFAFA00FFFFFF00FFFFFF0087C90A008CD2 070084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008CD2 070092DB050087C90A0094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0090D7 060092DB050084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF0096E3040098E6030087C90A0094949400D7D7D700FAFAFA00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF0096E304009AEA020084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF009AEA020092DB050084C50B00ADADAD00EBEBEB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF0092DB05007AB40D0092DB0500EBEBEB00FAFAFA00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 6 ModalResult = 1 end object ActionList1: TActionList Left = 264 Top = 8 object actDireccionPrincipal: TAction AutoCheck = True Caption = 'Usar la direcci'#243'n principal del cliente' Checked = True GroupIndex = 1 OnExecute = actDireccionPrincipalExecute OnUpdate = actDireccionPrincipalUpdate end object actDireccionSucursales: TAction AutoCheck = True Caption = 'Usar la direcci'#243'n de una de las siguientes sucursales del client' + 'e:' GroupIndex = 1 OnExecute = actDireccionSucursalesExecute OnUpdate = actDireccionSucursalesUpdate end end end