david
e918358544
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@286 c93665c3-c93d-084d-9b98-7d5f4a9c3376
116 lines
3.1 KiB
Plaintext
116 lines
3.1 KiB
Plaintext
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
|