inherited fDialogElegirEMail: TfDialogElegirEMail Caption = 'Elegir direcci'#243'n de correo electr'#243'nico' ClientHeight = 258 ClientWidth = 533 OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy ExplicitWidth = 539 ExplicitHeight = 283 PixelsPerInch = 96 TextHeight = 13 inherited pnlBotones: TFlowPanel Top = 202 Width = 533 ExplicitTop = 202 ExplicitWidth = 533 inherited Button1: TButton Left = 437 ExplicitLeft = 437 end inherited Button2: TButton Left = 347 ExplicitLeft = 347 end end inherited FlowPanel1: TFlowPanel Width = 533 Height = 202 ExplicitWidth = 533 ExplicitHeight = 202 inherited lblInstruccion: TLabel Width = 477 Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:' Font.Style = [fsBold] ExplicitWidth = 477 end inherited Label2: TLabel Width = 490 Height = 45 Caption = 'Para enviar el correo, puede usar la direcci'#243'n administrativa (s' + 'i el cliente la tiene en su ficha) o indicar otra direcci'#243'n dist' + 'inta con la segunda opci'#243'n.' WordWrap = True ExplicitWidth = 490 ExplicitHeight = 45 end object Panel1: TPanel Left = 31 Top = 115 Width = 482 Height = 80 Align = alClient BevelOuter = bvNone ParentColor = True TabOrder = 0 object rbCombo: TRadioButton Tag = 1 Left = 10 Top = 6 Width = 170 Height = 17 Caption = 'Usar la direcci'#243'n administrativa:' TabOrder = 0 OnClick = rbComboClick end object cbEMail: TComboBox Left = 211 Top = 6 Width = 262 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 end object rbEdit: TRadioButton Tag = 2 Left = 10 Top = 41 Width = 202 Height = 17 Caption = 'Usar la siguiente direcci'#243'n de correo:' TabOrder = 2 OnClick = rbEditClick end object edtEMail: TcxHyperLinkEdit Left = 211 Top = 39 Properties.UsePrefix = upNever Properties.ValidateOnEnter = True Properties.Prefix = '' 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 = 262 end end end inherited ActionList1: TActionList Left = 8 Top = 8 inherited actAceptar: TAction OnExecute = actAceptarExecute end inherited actCancelar: TAction OnExecute = actCancelarExecute end end end